Code:

type

{©Drkb v.3(2007): www.drkb.ru,

®Vit (Vitaly Nevzorov) - Этот адрес электронной почты защищён от спам-ботов. У вас должен быть включен JavaScript для просмотра.}

TForm1 = class(TForm)

Button1: TButton;

procedure FormCreate(Sender: TObject);

private

procedure Click(Sender: TObject);

end;

var Form1: TForm1;

implementation

procedure TForm1.Click(Sender: TObject);

begin

// do something

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

button1.OnClick:=Click;

end;

end.