procedure Test3;
begin
   try
      test2;
   finally
      PrintLn('Test3 finally');
   end;
end;