Funktion / Procedure eine Procedure übergeben?

[Nothine]

generalisiert so:

Delphi-Quellcode:

type
  TMyProcedure = procedure(X,Y: Integer);  //Parameter nur beispielhaft

procedure MyProcedure(Proc: TMyProcedure);

...

var AProc: TMyProcedure;
begin
  AProc := SomeProcWith2Parameters;
  MyProcedure(AProc);
end;