[Janom]

Код:

procedure MyClick(Sender: TObject);
....
procedure TForm1.MyClick(Sender: TObject);
begin
form1.caption:='Смотри внимательно'
end;

procedure TForm1.FormCreate(Sender: TObject);
var b:Tbutton;
begin
b:=TButton.Create(Self);
b.Parent:=self;
b.OnClick:=MyClick;
end;