Quiero Saber como hacer que un boton se vea que esta siendo pulsado

[roman]

¡Vaya requerimientos raros!

Intenta esto: pon una componente TApplicationEvents en tu formulario y escribe el siguiente código para su evento OnMessage:

if (Msg.hwnd = Button1.Handle) and (Msg.WParam = VK_RETURN) then
  case Msg.message of
    WM_KEYDOWN:
      SendMessage(Button1.Handle, WM_LBUTTONDOWN, 0, 0);
    WM_KEYUP:
      ReleaseCapture;
end;

// Saludos