Connect / Disconnect bei IdTCPClient

[divBy0]

Hallo!

Eine TCP-Verbindung mit IdTCPClient aufzubauen funktioniert ganz gut, allerdings habe ich ein Problem, wenn ich die Verbindung trenne und gleich wieder aufbauen möchte. Dann bekomme ich einen 'Socket Error # 10048 Address already in use.'.

Verbindung aufbauen:

Delphi-Quellcode:

procedure TForm1.connect;
begin
  with IdTCPClient1 do
  begin
    BoundIP := '192.168.123.113';
    BoundPort := 2001;
    Host := '192.168.123.150';
    Port := 2000;
    ConnectTimeout := 2000;
    Connect;
  end;
end;

Verbindung trennen:

Delphi-Quellcode:

procedure TForm1.disconnect;
begin
  IdTCPClient1.Disconnect;  
end;

Was mache ich denn da falsch? Sollte doch eigentlich so funktionieren, oder nicht?
Es scheint wohl irgendwie an dem disconnect zu hängen.

Bin für jede Hilfe dankbar!

Gruß
Marc

EDIT: Ich nutze Delphi2007 und Indy 10.