[v1s2222]

Ты имеешь в виду создание компонентов в run time.
На хороший код не рассчитывай, 12 часов дня, 1 число, но все же.

Код:

procedure TForm1.Click(Sender: TObject);
begin
  ShowMessage('Вы нажали на кнопку.');
end;

...
var
  Btn: TButton;
begin
  Btn := TButton.Create(Form1);
  With Btn1 do begin
    parent:=self;
    caption:='button';
    OnClick := Click;
  end;