[Black Raider]

Страдалецъ же тебе написал.

Код:

Var
  X,Y,i: Integer;
begin
 i := 0;
 for Y := 0 to 6
 do for X := 0 to 3
    do with TButton.Create(Self)
       do begin
          Inc(i);
          Top := Y * 30;
          Left := X * 30;
          Width := 30;
          Height := 30;
          Tag := i;
          Caption := IntToStr(i);
          Parent := Self;
          end;
end;

(с) Страдалецъ