1:
2:
3:
4:
5:
6:
7:
8:
9:

var
  button: Tbutton;
begin
  button := TButton.Create(form1);
  button.Parent := form1;
  button.Top := 100;
  button.Left := 100;
  button.Width := 300;
  button.Caption := 'Ich bin im laufenden Betrieb erstellt worden !';					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

var
  ButtonTop : Integer;
begin
    ButtonTop := 3;
    for i := 0 to 9 do begin
      with TButton.Create(self) do begin
        Caption   := 'Button-Nr ' + IntToStr(i);
        Left     := 3;
        parent     := Form1;
        Top     := ButtonTop;
        Width     := 200;
        Height    := 19;
        inc (ButtonTop, 21);
      end;
    end;
end;