Процедуры выхода внутри блока try..finally

procedure TryExit;
var
  i: Integer;
  ar: array of Integer;
begin
  SetLength(ar, 10);
  Randomize;
  try
    for i := 0 to Length(ar) - 1 do
    begin
      ar[i] := Random(10);
      if i = 3 and 1 then
      begin
        //ShowMessage('Halt!');
        //Halt;                     // вылетит без предупреждений
 
        //ShowMessage('Exit!');
        //Exit;                     // выполнится блок finally и выход из процедуры
 
        //ShowMessage('Break!');
        //Break;                    // выполнится блок finally и выход из процедуры
 
        //ShowMessage('Application.Terminate!');
        //Application.Terminate;    // вылетит без предупреждений
 
        ShowMessage('Close!');
        Form1.Close;                // вылетит без предупреждений
      end;
    end;
  finally
    ShowMessage(IntToStr(i) + ' and finally.');
  end;
end;