TIdTCPServer zur laufzeit erstellen

[fiasko]

Das hab ich nicht gesagt, und supermuckl meint glaubig das gleiche. Du brauchst nur eine Klasse, z.B. mit folgendem ungetestetem Code:

Delphi-Quellcode:

type
  TFoo = class(TObject)
    procedure Bar(Sender: TObject);
  end;

procedure TFoo.Bar(AThread: TIdPeerThread);
begin
  // Blah
end;

var
  IdTCPServer1: TIdTCPServer;
  Foo: TFoo;

begin
  IdTCPServer1 := TIdTCPServer.Create(nil);
  Foo := TFoo.Create();
  try
    with IdTCPServer1 do
    begin
      OnExecute:=Foo.Bar;
      DefaultPort:=1234;
      Active:=true;
    end;
  finally
    Foo.Free;
    IdTCPServer1.Free;
  end;
end.

[edit]
Man könnte natürlich auch einfach die Indy Klasse ableiten...
[/edit]