finally: if "exception exists" then ... else ... Ist das möglich?

[Alaitoc]

Wäre es nicht einfacher das ohne finally zu realisieren?

Delphi-Quellcode:

function DoSomething(IntVal: integer): integer;
begin
  try
    try
      Result := 10 div IntVal;
    except
      ShowMessage('Oops')
    end;
    ShowMessage('Alles prima');
end;

Sollte doch so funktionieren....denke ich.

MfG Alaitoc