preguntar si un boton esta apretado

[ecfisa]

Hola Isajar y bienvenido a Club Delphi

En realidad cuando un TButton es presionado se dispara el evento OnClick del mismo, es decir que allí es donde deberías controlar.

Distinto es si quisieras saber si un TButton "ya" ha sido presionado, en ese caso podrías usar la propiedad Tag como bandera, fijando su valor inicial en 0 y poniendo su valor en 1 cuando fuese presionado:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Tag:= 1;
end;

Si quisieras que alternara los valores cada vez que fuera presionado podrías hacer:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Tag:= Integer(not Boolean(Button1.Tag));
end;

Pero creo que si nos explicas con más detalle para que deseas saber si el botón está apretado sería más fácil darte una idea apropiada.

Saludos.