[NumLock]

подстать матрицы:

Код:

type
  TForm1 = class(TForm)
    Button11: TButton;
    Button12: TButton;
    Button13: TButton;
    Button21: TButton;
    Button22: TButton;
    Button23: TButton;
    Button31: TButton;
    Button32: TButton;
    Button33: TButton;
...
var
  x, y: Integer;
  b: TButton;
begin
  for x:=1 to 3 do
    for y:=1 to 3 do
    begin
      b:=TButton(FindComponent('Button'+IntToStr(x)+IntToStr(y)));
      b.Caption:=IntToStr(x)+IntToStr(y);
    end;
end;