Procedure als Event definieren? Wenn ja, wie?

[omata]

Delphi-Quellcode:

type
  TEvent1 = function(index:integer):boolean;
  TEvent2 = procedure(index:integer);

:
:

function EventHandler1(i:integer):boolean;
begin
end;

procedure EventHandler2(i:integer);
begin
end;

procedure StartEvent;
var Event1:TEvent1;
    Event2:TEvent2;
begin
  Event1:=EventHandler1;
  Event2:=EventHandler2;

  if Event1(1) then begin
  end;
  Event2(1);
end;