Funktion nach except Block nicht verlassen

[danielA]

Hallo erstmal,

Wie schaffe ich es nach dem auslösen einer Exception nicht aus der Funktion zu fliegen.

Delphi-Quellcode:

Function Konvertiere : integer;
begin
  try
    Result:=strtoint('Hallo');
  except
    Result:=0;
  end;
  beep;
end;

Also das beep noch auszuführen.

Hintergrund der Sache ist natürlich nicht so ein einfaches Beispiel. Ich muß mich in einer Schleife mit mehreren DBServern verbinden. Sind die jedoch gerade heruntergefahren oder haben eine Störung bleibt mein System an der Stelle mit einer Exception stehen.

Schonmal Danke im vorraus.

Gruß Daniel