Serverbrowser mit Sockets funktioniert nicht

[NickPower]

Hi,
ich habe versucht einen Serverbrowser zu erstellen mit den Sockets von Delphi 5.

Delphi-Quellcode:

procedure TFMMulti.Panel1Click(Sender: TObject);
var
   IP,IP2:String;
   pos1,pos2,pos3,i:Integer;
begin
     IP2:= LocalIP;

     Pos1 := Pos('.', IP2);

     if Pos1 <> 0 then
     begin
     Pos2 := PosEx('.', IP2, Pos1 + 1);
     begin
     Pos3 := PosEx('.', IP2, Pos2 + 1);
     end;
     end
     else
     Showmessage('Error');

     IP := Copy(IP2, 1, Pos3);



     listbox1.Clear;
     clientsocket1.Port := 1024;
     for i := 1 to 254 do
     begin
     Clientsocket1.Host := IP + IntToStr(i);
     try

     clientsocket1.open;
     listbox1.Items.add(IP+IntToStr(i));
     clientsocket1.Close;
     application.ProcessMessages;

     except

     application.ProcessMessages;
     end;
     end;
end;

Wenn ich diese Porcedure ausführe, zeigt er mir immer diesen Fehler:
Asynchroner Socket-Fehler 10061.
Das bedeutet laut dem Internet, dass der Socket die Verbindung nicht herstellen kann.
Aber diese Fehlermeldung sollte er mir doch eigentlich gar nicht anzeigen, da ich ja try benutze.
Außerdem listet er mir alle IP-Adressen auf, obwohl er das nur bei einer erfolgreichen Verbindung tun soll.
Es wäre sehr nett, wenn mir jemand helfen könnte.

Mit freundlichen Grüßen
NickPower

[RWarnecke]

Hallo,

der Fehler wird Dir standardmäßig beim Ausführen des Programms mit F9 aus der IDE immer angezeigt. Hast Du die EXE mal so ausgeführt ?

[NickPower]

Zitat:

Zitat von RWarnecke (Beitrag 1160237)

Hallo,

der Fehler wird Dir standardmäßig beim Ausführen des Programms mit F9 aus der IDE immer angezeigt. Hast Du die EXE mal so ausgeführt ?

Danke für deine Antwort :)

Ja, ich habe es bereits versucht. Trotzdem wird diese Fehlermeldung in 100 facher Ausführung angezeigt.

Mit freundlichen Grüßen
NickPower