Создание Кнопок В Режиме Реального Времени

[Sascha]

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage((Sender as TButton).Caption);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  Button1: TButton;
  i      : integer;
begin
  for i:=0 to 4 do begin
    Button1 := TButton.Create(Form1);
    Button1.Parent := Form1;
    Button1.Caption := 'Кнопка '+IntToStr(i+1);
    Button1.Height := 25;
    Button1.Width := 75;
    Button1.Top := i * 25 + 25;
    Button1.Left := 50;
    Button1.OnClick := Button1Click;
  end;
end;