Chat Proggy-Problem Asynchroner Socketfehler 10061

[goodvirus]

Jaja, den namen hab ich irgentwann ma von nem Kumpel bekommen weil ich ihm bei nem Virus geholfen hab(ihn zu entfernen) ud

Ich fand den ganz cool, und hab den jetzt seit ca 5 Jahren

Kommen wir zuerst zu dem Fehler den er ausspuckt, wenn ich eine Falsche Ip eingebe(nicht existent oder kein Server drauf)
Dann sacht er mir das er einen Windows-Socket Fehler hat und nicht über die richtig zugordneten Daten verfügt, API 'Sync Lookup'

Nun zum Code:
Erstmal der Client:
Läuft über Port 6000

Der Code wenn ich connecten will:

Delphi-Quellcode:

procedure TForm1.IpsetzenClick(Sender: TObject);
var Nachricht : string;
begin
ClientSocket1.Host:=Edit2.Text;
ClientSocket1.Active:=True;
Ipsetzen.Enabled:=False;
Edit2.Enabled:=False;
Senden.Enabled:=True;
Nachricht:=Edit3.Text+' hat den Raum betreten';
delay(500);
CLientSocket1.Socket.SendText(Nachricht);
end;

Zum Server:

Delphi-Quellcode:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var Text:string;
    i   : Integer;
begin
Text:=Socket.ReceiveText;
Memo1.Lines.Add(Timetostr(now)+': '+Text);
  for i := 0 to ServerSocket1.Socket.ActiveConnections - 1 do
    begin
    with ServerSocket1.Socket.Connections [i] do
  if (Connected) then SendText(Text);
  end;
end;

Wie ihr sicherlich schon erkannt abt läuft alles Über TClientSocket und TServerSocket

gez. goodvirus