Как прописать условный оператор кликанья на кнопку?

[BaronTreep]

Значит нужно именно для TButton, и Нельзя OnClick... У TButton, тоже есть методы OnMouseDown и OnMouseUp, их то можно?

Ещё вы говорите, что это такое упражнение. Если так, то по какой теме/разделу? Если по классам, то наверно предполагается наследовать TButton, и переопределять OnClick?

Если по winapi, то проблема такая: повесить на события окна кнопки обработчик:

var
  H : HWND;
begin
  H := Handle;
  H := FindWindowEx(H, HWND(0), 'TButton', nil);

  // Эта строчка - предположение:
  if CallWindowProc(@{адрес обработчика}, H, WM_KEYDOWN, 1, 0)<>0 then 

end;