{ TForm1 }

  TForm1 = class(TForm)
    procedure FormDblClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: char);
  private
    FOutParam: Integer;
    FInParam: Integer;
  public
    procedure Proc1();
    procedure Proc2(out OutParam: Integer);

  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormDblClick(Sender: TObject);
begin
  Proc1();
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: char);
begin
  if Key = chr(ord(VK_ESCAPE)) then FInParam:= 1;
end;

procedure TForm1.Proc1();
begin
  Proc2(FOutParam);
  if FOutParam <> 1
    then Self.Caption:= 'был exit'
    else Self.Caption:= 'не было exit''а';
end;

procedure TForm1.Proc2(out OutParam: Integer);
var n: Integer = 0;
begin
  FInParam:= 0;
  OutParam:= 1;
  while n < 10 do
  begin
    Application.ProcessMessages;
    if FInParam > 0 then
    begin
      OutParam:= 0;
      Exit;
    end;
    inc(n);
    Self.Caption:= IntToStr(n) ;
    Sleep(500);
  end;
end;