try ClientSocket1.active:=true führt zu fehler

[Minz]

Also ich führe regelmäßig folgenden Code aus:

Code:

procedure TForm1.PingServerTimer(Sender: TObject);
begin
       if ClientSocket1.Active=false then begin
                try
                        ClientSocket1.Open;
                        richedit1.Lines.Add('Checking Server: '+ClientSettingsIP.edit1.text);
                except
                        HandleExceptionPing;
                end;
                exit;
        end;

        if ClientSocket1.Active=true then begin
                panel4.Color:=clGreen;
                Label4.Caption:='Server Online';
        end;
end;

Dies klappt für ein paar Minuten, danach kommen dann bei jedem weiteren Prozeduraufruf Fehlermeldung á la WinSocket oder so.

Weiß jemand wieso das eine Zeit lang gut läuft und dann nicht mehr?