[Black Raider]

Ваш код с исправлениями

Код:

procedure TForm1.Label1Click(Sender: TObject);
var i, j: byte;
n,k: integer;
count:String;
begin
count:=inputbox('Введите клоичество вопросов',' ','10');

try
n := StrToInt(count);
except
on EConvertError do ShowMessage('???');
end;
setlength(arr3,n,4);
k:=0;
for i:=0 to n-1 do
for j:=0 to 3 do begin
inc(k);
Arr3[i,j]:=Tbutton.Create(Self);
Arr3[i,j].Parent := Self;
Arr3[i,j].Top:=(i-1)*Arr3[i,j].Height+50;
Arr3[i,j].Left:=(j-1)*Arr3[i,j].Width+800;
Arr3[i,j].Width :=50;
Arr3[i,j].tag:=k; //чтобы обращаться к контролу по его тагу
Arr3[i,j].caption :=IntToStr ((i+1)*(j+1));
TButton( Arr3[i,j]).onClick:=arr1Click;//присвоил обработчику процедуры OnClick обычной кнопки обработчик массива кнопок процедуру arr1Click,
end;
end;