[Страдалецъ]

Код:

 b.OnClick := TBitBtn.onClick;

Сие есть ересь.
Вместо TBitBtn.onClick тут должно быть имя процедуры которое собственно и обрабатывает событие. Вот таким макаром:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
 ShowMessage('Жмякнули!')
end;

procedure TForm1.FormCreate(Sender: TObject);
Var
  MyButton: TButton;
begin
 MyButton := TButton.Create(Self);
 MyButton.Parent := Self;
 MyButton.Left := 100;
 MyButton.Top := 100;
 MyButton.Width := 100;
 MyButton.Height := 50;
 MyButton.Caption := 'Жмякни меня!';
 MyButton.OnClick := Button1Click;
end;