Problem mit ESocketError

[Bubblegun]

hi leute

ich baue eine tcp/ip verbindung auf. jetzt will ich abfragen ob der server
vorhanden ist. wenn der server schweigt kommt ein "socket error" zurück.
ich will diese errormeldung abfangen und eine eigene meldung anzeigen lassen.

das problem ist jetzt dass meine abfrage aus irgendeinem grund nicht funktioniert.

Code:

procedure TClientForm.BtnConnectClick(Sender: TObject);
begin
  with TCPClient do begin
    if TCPClient.Connected = False then begin
      try begin
        Connect;
        Messeages.Lines.Add(ReadLn);
      end
      except
        on ESocketError do begin
          Messeages.Lines.Add('Server('+ TCPClient.Host +') not found!');
        end
      end
    end
    else begin
      Messeages.Lines.Add('Already Connected');
    end
  end
end;

ich freue mich über jede hilfe von euch!