Globale Variablen und OOP

[sirius]

Im allgemeinen gehören (nicht lokale) Variablen zu irgendeiner Klasse. Und genau da solltest du sie auch definieren.
Für dein Beispeil wahrscheinlich:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
    meine_variable1:integer;
    meine_variable2:string; 
  public
    { Public-Deklarationen }
    function get_meine_variable1:integer;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  meine_variable1:=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  inc(meine_variable1);
end;

function TForm1.get_meine_variable1:integer;
begin
  result:=meine_variable1;
end;

Damit hast du gesichert, dass bei jeder neuen Instanz von TForm1 eine neue Variable (meine_variable1) existiert.