[v1s2222]

Код:

procedure TForm1.Click_(Sender: TObject);
begin
ТВОЙ код СЮДА вставляй
  ShowMessage('Вы нажали на кнопку.');
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  Btn: TButton;
begin
  Btn := TButton.Create(Form1);
  With Btn do begin
    parent:=Form1;
    caption:='button';
    OnClick := Form1.Click_;
  end;
end;