fehler mit dem server

[kphaber321]

hallo!

ich habe ein kleines client-server programm gemacht...

problem ist: der server ist nicht immer on und wenn das so ist, soll der client einfach in 5 Minuten nochmal versuchen zu verbinden... er macht das allerdings nicht so und er unterdrückt durch das try except auch nicht die fehlermeldung!

kann mir jemand helfen?

hier der code:

Delphi-Quellcode:

while Initialized = False do
  begin
    try
      Initialized := True;
      Client := TClientSocket.Create( Form1 );
      Client.Host := '127.0.0.1';  // Localhost
      Client.Port := 1990;
      Client.OnRead := ClientRead;
      Client.Open;
    Except
      Initialized := False;
      sleep(5000);
    end;
  end;

ich bin für jede hilfe dankbar!!!