Button...

[Черничный]

вот код:

var
  butn: TButton;
begin
  butn := TButton.Create(Owner);
  butn.Parent := Form1;
  windows.SetParent(butn.Handle, Handle);
  butn.Left := 20;
  butn.Top := 20;
  butn.Caption := 'Button';

Все понятно и ясно. А как обрабатывать клик по ней?

From Stilet: Будь добр оформляй код соответствующим тегом.

[Квэнди]

public
....
procedure <ваша процедура> (sender:Tobject);
......
begin
button.onclick := <ваша процедура>

[Черничный]

а подробнее можно, ну хоть маленький пример)) К примеру процедура меняющая caption у формы

[Баламут]

Только я что-то не понял, а на кой здесь SetParent еще нужен?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    btn: TButton;
    procedure MyClick(Sender: TObject);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
btn := TButton.Create(Owner);
btn.Parent := Form1;
btn.Left := 20;
btn.Top := 20;
btn.Caption := 'Йа креведко!';
btn.OnClick := myClick;
end;

procedure TForm1.MyClick(Sender: TObject);
begin
Form1.Caption := 'Превед, медвед!!!';
end;

end.

[Черничный]

ну просто огромнейшее спасиба