TIdTCPServer zur laufzeit erstellen

[SleepyMaster]

@fiasko: Genau so mein ichs! Super! Hatte selbst schon das so ähnlich geschrieben. Ungefähr so vom Schema:

Delphi-Quellcode:

type
  TServer = class(TIdTCPServer)
    procedure Execute(AThread: TIdPeerThread);
  end;

procedure TServer.Execute(AThread: TIdPeerThread);
begin
//
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  IdTCPServer1: TServer;
begin
  IdTCPServer1 := TServer.Create(nil);
  try
    with IdTCPServer1 do
    begin
      OnExecute:=IdTCPServer1.Execute;
      DefaultPort:=1234;
      Active:=true;
    end;
  finally
    IdTCPServer1.Free;
  end;
end;

aber irgendwie gings nie!

Und jetzt wo ich deinen Code so umgschrieben hab, gehts!!!

Vielen Dank!!!