Pascal unit with "semi-globals"

unit Unit1;

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    CheckBox1: TCheckBox;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure CheckBox1Change(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
  end;

var
  Form1: TForm1;

implementation

Var
  Button_Pushed: boolean = False;        // it looks like a global to me

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button_Pushed := true;
end;

Var
  CheckBox_Clicked: boolean = false;     // it looks like a global to me

procedure TForm1.CheckBox1Change(Sender: TObject);
begin
  CheckBox_Clicked := true;
end;

Var
  Text_Entered: boolean = False;         // it looks like a global to me

procedure TForm1.Edit1Change(Sender: TObject);
begin
  Text_Entered := true;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: boolean);
begin
  CanClose := Button_Pushed and CheckBox_Clicked and Text_Entered;
  if not CanClose then
     ShowMessage(
       'You are not allowed to close this window until you'#13 +
       'pushed the button,'#13'clicked the checkbox'#13'and entered some text'
     );
end;

end.