Fange exceptions

Jeg har et problem med at fange exceptions, jeg kan ikke helt få det til at virke.

Jeg har følgende function som jeg vil have skal returnere true eller false afhængig af om connect gik godt eller skidt:


function SMTPConnect : boolean;
begin
  try
    Mail:=TIdSMTP.Create(nil);
    Mail.Host := smtpserver;
    Mail.Connect;
    Result := true;
  except
    Result := false;
  end;
end;


Når connect går godt virker den fint, men kan der ikke connectes så fanges det af Delphi overordnede exception handler og programmet afbrydes. Jeg vil ikke have at programmet afbrydes lige her - jeg vil istedet kunne skrive en fejlmeddelelse i en log.

Hvad gør jeg galt i ovenstående eksempel.