[Alegun]

Нужно объявить Button1Click для всех баттонов

Код:

var
i: integer = 0; 
...

procedure TForm1.Button1Click(Sender: TObject);
begin

inc(i);

arr[i]:= (Sender as TButton).Tag;

case (Sender as TButton).Tag of
3: a:= radiogroup1.ItemIndex;
6: a:=radiogroup2.itemindex;
1,2,4 :  l:= (Sender as TButton).Caption;
end;

case (Sender as TButton).Tag of
1: v1:=a;
2: v2:=a;
4:
begin
b:=v1 and v2;
a:=1-b;
label1.caption:=inttostr(a);
end;
5:
begin
Memo2.lines.Add(inttostr(c));
Timer1.Enabled:=True;
end;
end;

// итд.

end;

вроде значение свойства tag совпадает с нумерацией кнопок.