Wie kann ein Zeiger auf eine Funktion als Paramater übergeben werden?

[FriendOfDelphi]

Wie kann ich beim Instanziieren eines Objekts dem Konstruktor einen Zeiger auf eine Funktion übergeben?

Delphi-Quellcode:

constructor TMyClass.Create(AOwner: TComponent; Zeiger auf Klasse);
begin
  inherited Create(AOwner);
  //...
end;

Aufruf:

Delphi-Quellcode:

procedure TForm1.Test();
begin
  ShowMessage('Test');
end;

Test:=TMyObj.Create(self, Zeiger auf Test);