Явное cвязывание обработчиков событий

Создается объект и его событию Changed дается обработчик OnChanged. Признак event нужен для помещения имени функции в таблицу entry-point'ов.

function OnChanged (var x : integer);
// event-функция
begin
  x := x+1;
end;

procedure MakeMyObj1;
var l : longInt;
begin
  l := OleCreate ('MyDataObject1');
  if l = 0 then
	exit;
  OleBindEvent (l, 'OnChanged', 'Changed');
end;