TcpServer/TcpClient gehen nicht

[rayj]

Hallo,
So ein Mist bei mir wollen die TcpServer/Client Komponenten nicht verbinden.

Delphi: Delphi 2005 (vcl)
Komponenten: TTcpServer und TTcpClient.
Port: 1000

Code:

Server:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
TcpServer.Active := false;
TcpServer.LocalPort := '1000';
TcpServer.Active := true;
end;

procedure TForm1.TcpServerAccept(Sender: TObject;
  ClientSocket: TCustomIpClient);
begin
lblTcpStatus.Caption := 'connected';
ClientSocket.Sendln('connected');
end;

Client:

Delphi-Quellcode:

procedure TForm2.cmdConnectClick(Sender: TObject);
begin
TcpClient.Close;
TcpClient.RemoteHost := eRemoteHost.Text;
TcpClient.RemotePort := '1000';
TcpClient.Connect;
end;

Das ganze bringt aber überhaupt nix Keine Fehler, nichts. Wenn ich ne falsche IP eingebe, hängt das Programm ne Weile, bei der richtigen IP (localhost, da läuft der Tcpserver ja) hängt er nicht, das beudetet ja dass er den Server erkannt.

Warum springt der dann nicht ins Accept Ereigniss?

Bitte helft mir.

MfG