Fehler-Meldung trotz try except ?

[MCQ]

Danke für eure Tipps.
Ich habe mal den Dubugger abgeschaltet und die Prozedure wie folgt geändert. Nun funktioniert es wie beabsichtigt.

Delphi-Quellcode:

function Ping(Server:string):boolean;
begin
 Result:=true;
 with Form1 do
  begin
   Client.Host:=Server;
   Client.ReceiveTimeout:=1500;
   try
    Client.Ping();
   except
    Result:=false;
   end;
  end;
end;