Procedure als Parameter übergeben

[David Martens]

Ich weiß das Thema ist schon etwas älter, aber meine Frage ist eine Weiterführung von diesem hier. Da wollte ich keinen neuen anfangen.

Nun zur Frage.

Ich habe ein Aktivformular. An das übergebe ich eine Prozedur als Property. Diese wird in ShowModal aufgerufen. Der einzige Nachteil an diesem Vorgehen, die Prozedur muß Parameterlos, bzw. die Parameter haben die ich in der Deklaration angegeben habe, besitzen.
Kann ich als Property eine Anonyme Prozedur angeben?

Hier was ich bisher habe (nur die wesentlichen Teile):

Delphi-Quellcode:

  TCallProc = procedure of object;
  TCallFunc = function: string of object;

  TWorkerThread = class(TThread)
    procedure Execute; override;
  private
    FCallProc: TCallProc;
    procedure SetCallProc(const Value: TCallProc);
  public
    property CallProc : TCallProc read FCallProc write SetCallProc;
  end;


  TAktivForm = class(TForm)
    procedure FormShow(Sender: TObject);
  private
    procedure WmAfterShow(var Msg: TMessage); message WM_AFTER_SHOW;
  public
    property CallProc : TCallProc read FCallProc write SetCallProc;
  end;

procedure TAktivForm.FormShow(Sender: TObject);
begin  
  PostMessage(Self.Handle, WM_AFTER_SHOW, 0, 0);
end;

procedure TAktivForm.WmAfterShow(var Msg: TMessage);
begin
  Thread := TWorkerThread.Create(True);
  Thread.FreeOnTerminate := True;
  Thread.CallProc := FCallProc;
  Thread.Start;

  while (not Thread.Terminated) do
  begin
    Application.ProcessMessages;
    Sleep(50);
  end;

  Close;
end;

...

  AktivForm := TAktivForm.Create(Self);
  AktivForm.CallProc := Run;
  AktivForm.lblText.Caption := rcDatenabfrage;
  AktivForm.ShowModal;

Im wesentlichen wird an die Form eine Prozedur übergeben, die bei OnShow ausgeführt wird und am Ende wird das Formular geschlossen.
Nochmal:
Nachteil, die Prozedur "Run" muß so aussehen wie TCallProc definiert ist.

Jetzt habe ich versucht:
  TCallProc = reference to procedure[(parameterlist)]; Aber da damit geht es nicht:
E2010 Inkompatible Typen: 'TCallProc' und 'Procedure of object'

Kann man das irgendwie machen oder eher nicht?

David