[NumLock]

Код:

var
  i: Integer;
  b: TButton;
begin
  for i:=1 to 10 do
  begin
    b:=TButton(FindComponent('Button'+IntToStr(i)));
    b.Caption:=IntToStr(i);
  end;
end;