Try Except will nicht funktionieren

[Real_Thunder]

ich habe ein problem, und zwar möchte ich das mein Formular beim OnShow Ereignis versuchen soll eine verbindung aufzubauen, und falls dieses nicht klappt, dann soll er halt das Except machen, aber Pustekuchen macht er nicht.

Hier mal der Source:

P.S. server_verbindung ist ein TlientSocket;

Delphi-Quellcode:

procedure Tmsg_haupt.FormShow(Sender: TObject);
begin
  try
    server_verbindung.Active:= True;
  except
    label1.Caption:='Serverfehler';
  end;
end;

Hintergrund ist es ein Fehlerframe einzubinden, falls er nicht connected kann, den fehlerframe habe ich bereits im OnError event des Clientsocket drin, also er wird aufgerufen, doch ich bekomme immernoch eine exception fehlermeldung.

Könnte mir jemand verraten wie ich sie abstellen kann ?

Fehlermeldung ist Asyncroner Socket-Fehler 10061