Server in LAN suchen

[alleinherrscher]

Hallo@all!

Habe vor ein Programm zu schreiben, dass alle PCs in einem LAN verbindet, sodass Nachrichten ausgetauscht, Files hinundher versendet, und Befehle an den jeweils anderen Rechner gesendet werden können.

Da ich mich mit Indy nicht auskenne, habe ich versucht es mit ClientSocket und Serversocket zu programmieren: Der Clientsocket soll zunächst alle IPs in Netzwerk scannen um zu schauen, ob schon ein Server besteht, zu dem connected werden kann, ist dies nicht der fall, soll mein Programm selber einen Server eröffnen.

Dafür habe ich eine Prozedur geschrieben, die Rekursiv arbeitet:
(IP ist die IP bis auf den letzten Zahlenblock, der mit i gekennzeichnet ist und hochgezählt wird, bis zu Verbindungen- also z.B. i= 100..150)

Delphi-Quellcode:

function TForm1.SucheOffeneVerbindung(IP:string;Verbindungen,i:integer):boolean;
begin
  TRY  
   begin
    ClientSocket1.Host := IP+inttostr(i);
    ClientSocket1.Active := true;
    result:=True;
    clientsocket1.Socket.Connect(1);
   end;
  EXCEPT
    result:=False;
    memo1.Lines.Add(ClientSocket1.host + ' hat keinen bereiten Server');
    if i<Verbindungen then 
      SucheOffeneVerbindung(IP,Verbindungen,i+1);
 
  END;{EXCEPT}


end;

Leider gibt es bei clientsocket1.Socket.Connect(1) ein Asyncronous Socket Error...ich dachte das wird durch das TRY abgefangen...

Habt ihr da ne Lösung oder vielleicht sogar bessere Idee??

Liebe Grüße, Alleinherrscher