RosettaCodeData/Task/Exceptions/Delphi/exceptions-3.pas

procedure test3;
begin
  try
    test2;
  finally
    ShowMessage('test3 finally');
  end;
end;