TIdTCPServer zur laufzeit erstellen

[SleepyMaster]

Hi ihrs!

Weiß jemand wie ich das hinbekomme??? (Ohne ein Forumlar)

Delphi-Quellcode:

var
  IdTCPServer1: TIdTCPServer;

begin
IdTCPServer1:=TIdTCPServer.Create(nil);
with IdTCPServer1 do
  begin
  DefaultPort:=1234;
  Active:=true;
  end;
end.

soweit komm ich ja noch aber wenn ich dann auch will, dass was passiert, wenn der Server was empfängt:

Delphi-Quellcode:

var
  IdTCPServer1: TIdTCPServer;

procedure IdTCPServer1Execute(AThread: TIdPeerThread);
begin
//
end;

begin
IdTCPServer1:=TIdTCPServer.Create(nil);
with IdTCPServer1 do
  begin
  OnExecute:=IdTCPServer1Execute; // Will Borland nicht!
  DefaultPort:=1234;
  Active:=true;
  end;
end.

Spielt Borland nicht mehr mit!
Kennt jemand ne lösung???

Vielen Dank schon mal!