Как привязать процедуру к программно создаваемой кнопке?

[Busybackson]

У меня есть форма, которая создается в процессе открытия файла. В конце у нее есть две кнопки, тоже добавляемых программно. Как привязать к ним процедуры, которые они должны выполнять?
Пытаюсь изменить имя типа

Set BtnAdd = FAddComments.Controls.Add("Forms.CommandButton.1")
BtnAdd.Caption = "Добавить"
BtnAdd.Left = 430
BtnAdd.Top = 51 + paramcount * 23
BtnAdd.Name = "BtnAdd"

И заранее создаю процедуру BtnAdd_Click(), но это не работает ;(

[GSerg]

private withevents btnadd as commandbutton

После чего погляди в списке событийных контролов слева...