IdTCPServer zur Laufzeit erstellen..

[monty.ms]

Guten Abend

Habe mal wieder ein kleines Problem. Natürlich hab ich auch gleich im Forum was dazu gefunden, aber so richtig hat das dann doch nicht funktioniert:

Delphi-Quellcode:

  private 
      { Private-Deklarationen } 
      procedure ServerExecute(AThread: TIdPeerThread); 
   public 
      { Public-Deklarationen } 
   end; 

var 
   Form1: TForm1; 

implementation 

var TCPServer:array[1..10] of TIdTCPServer; 

{$R *.DFM} 

procedure SetPort(Port:integer); 
begin 
   TCPServer[1] := TIdTCPServer.Create(nil); 
   TCPServer[1].DefaultPort := Port; 
   TCPServer[1].OnExecute := ServerExecute; 
end; 

procedure TForm1.ServerExecute(AThread: TIdPeerThread); 
begin 

end;

Als Fehler bekomme ich immer: Undeclared identifier: 'ServerExecute'

Hat einer ne Idee was ich falsch gemacht habe?

EDIT: Sry, hatte versehentlich den falschen Code drinne.

Danke schonmal.