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