[NumLock]

Код:

var
  ButtonArr: array [0..15] of TButton;
  i: Integer;
begin
  for i:=0 to Length(ButtonArr)-1 do
  begin
    ButtonArr[i]:=TButton.Create(Self);
    ButtonArr[i].Parent:=Self;
    ButtonArr[i].Left:=i*40;
    ButtonArr[i].Top:=i*20;
    ButtonArr[i].Caption:=IntToStr(i);
  end;
end;