Schon wieder Arrays... Werte abwechselnd ändern?

[malo]

Und zwar hab ich ein (recht schwer zu beschreibenes) Problem:

Ich hab ein 2Dimensionales Array erstellt. Jetzt hab ich von Anfang an alle ArrayWerte auf 0 gesetzt.

Jetzt hab ich außerdem für jedes Array einen Button erstellt.

Wenn ich jetzt auf einen Button klicke, hab ich mithilfe eines if-Befehls dafür gesorgt, dass, wenn der jeweilige Array-Wert = 0 ist, ändert sich das Caption des Buttons und der Wert.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
if
Array[1,1] = 0 then
Button1.Caption := 'Geklickt!';
if
Array[1,1] = 0 then
Array[1,1] := 1;

So weit, so gut. Jetzt soll aber, wenn ich auf einen beliebigen anderen Button klicke, der jeweilige Wert in 2 geändert werden und es soll eine neue Caption hin. Beim nächsten Klick auf einen weiteren beliebigen anderen Button soll der Wert wieder auf 1 und die erste Caption hin. Nur wie soll ich das anstellen?