OnExecute selbst aufrufen

[Kalle_XXXX]

Ok jetzt hab ich mein Uses so erweitert

Code:

[b]uses[/b] ... System.Threading;

um einen Thread verwenden zu können.
Unter Public hab ich dann meine Procedure angelegt:

Code:

procedure IdTCPServerExecute(AThread: Thread);

Definierte Procedure im Code:

Code:

procedure TWinForm1.IdTCPServerExecute(AThread: Thread);
begin 

end;

Und jetzt das wo er hängt:
Im TWinForm1.Create
ServerSocket ist mein idTCPServer Object

Code:

ServerSocket.OnExecute := IdTCPServerExecute;

Folgende Fehlermeldung erhalte ich:

Code:

Incompatyple Types: 'TidServerThreadEvent' and 'procedure, untyped pointer or untyped parameter'

Hast du noch ne Idee? Hab schon Probiert nen Thread mit zu übergeben, aber das wird auch dankend abgelehnt!
Thx