TIdTcpServer dynamisch OnExecute zuweisen....

[zwaem86]

Hallo Leudz,

ich steh aufm Schlauch...........
Das ist nicht das erste mal, dass ich dynamisch Ereignisse irgendwo anhänge....
Aber anscheinend seh ich den Wald vor lauter Bäumen net.......

Kann mir bitte einer nen Tipp geben??????????

(Dies wird ein Hintergrundprozess)

Delphi-Quellcode:

program Server;

//{$APPTYPE CONSOLE}

uses
  SysUtils, IdTCPServer, Forms;

procedure ServerExecute(AThread: TIdPeerThread);
begin
  //todo
end;

var
  ServerSocket: TIdTCPServer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  ServerSocket.Create(Application);

  ServerSocket.Active       := True;
  ServerSocket.DefaultPort  := 6000;
  ServerSocket.OnExecute    := ServerExecute; //hier kommt die Fehlermeldung
end.

Compiler- Fehlermeldung: Incompatible Typs 'method pointer and regular method'

Greetziiii...
Euer zwaem86