ConnectTimeOut bei IF abfrage

[fatalerror]

Mit Try Except?

Delphi-Quellcode:

   HTTp:=TidHTTP.Create(NIL);
   HTTP.ConnectTimeout:=5000;
   HTTP.ReadTimeout:=1000;
   try
     result:=HTTP.get(URL);
   except
     on E: Exception do
     begin 
       myresult:=-1;
       showmessage('Fehler: '+E.Message);
     end;
   end;