Неявное связывание обработчиков событий для внедренных объектов

// описание панели для внедрения
embedded emObj1 OLE;
end;

function emObj1_Changed (var x : integer);
// связывание по названию
begin
  x := x + 1;
end;

var l : longInt;

procedure MakeMyObj1;
begin
  l := OleCreate ('MyDataObject1'); // создание
  if l = 0 then
	exit;
  // автоматическое присоединение обработчика события Changed
  OleEmbed (l, emObj1);
end;