Рассмотрим пример программного нажатия на кнопку. Для этого:

  1) Помещаем на форму следующие компоненты: 1 - Label, и 2 - компонента Button;

  2) В OnClick на Button2 записываем:

begin

Label1.Caption:='Клавиша была нажата';

end;

  3) В OnClick на Button1 пишем:     

begin

Button2.Perform(WM_LBUTTONDOWN, 0, 0);

Button2.Perform(WM_LBUTTONUP, 0, 0);

end;

  4) Запускаем проект, жмем на Button1 и наблюдаем событие, прописанное в Button2;