Durch Klick auf Button eine Integervariable erhöhen

[Elachiim]

Ich will durch Klick auf Button eine Integervariable erhöhen.
Also wenn ich schreibe:

var i:integer; //als globale Variable in anderer Prozedur Wert 0 zugewiesen

in folgender procedure soll, wenn man auf einen Button klickt, die Variable erhöht werden
begin
i:i+1 (inc(i) geht auch nicht)
end;

, dann wird der letzte Wert nie gespeichert. Ich möchte ja nur bei jedem Klick erst 1, dann 2 usw. haben

Danke für eine Antwort, wenn ihr mich versteht