Asynchroner Client Fehler 10049

[Delphi-Narr]

Hallo,
ich habe ein Problem mit einer Server-Socket Verbindung:
Ich habe eine Server-Applikation und eine Client-Applikation.

Hier der Server:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
     ip.caption:=Watch.LocalIP;
     Server.Open;
end;

procedure TForm1.ServerClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
     Passiert.Lines.Add('Verbunden ('+TimeToStr(Now)+')');     
end;

procedure TForm1.ServerClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
     Passiert.Lines.add('Gestartet ('+TimeToStr(Now)+')')
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin              
     Server.active:=False;
end;

und hier der Client:

Delphi-Quellcode:

procedure TForm1.ConnectClick(Sender: TObject);
begin
     CLient.Host:=ip.text;
     client.Active:=True;
     Client.open;
     Start.enabled:=True;   
     Passiert.Lines.Add('Verbunden ('+TimeToStr(Now)+')'); 
end;

procedure TForm1.StartClick(Sender: TObject);
begin
     Client.Socket.SendText('start');
     Passiert.Lines.add('Gestartet ('+TimeToStr(Now)+')')
end;

Beide laufen auf Port 8181 und ich möchte mich jetzt mit der Clientapplikation bei der Serverapplikation anmelden und "Start" schicken.
Bisher laufen beide Programme auf einem PC und wenn ich auf Verbinden klicke kommt folgender Fehler:
Asynchroner Socketfehler: 10049
Wo ist hier der Fehler?

Viele Grüße!