Dos estados de un botón

[ContraVeneno]

¿por que no usas un SpeedButton?

Ese botón tiene una propiedad "Down", la cuál es verdadera cuando está presionado y falso cuando no está presionado, solo tienes que establecer la propiedad "AllowAllUp" a verdadero y debes asignar un número a la propiedad "GroupIndex":

Código Delphi [-]
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
 if (Sender as TSpeedButton).Down then
  (Sender as TSpeedButton).Caption := 'Activo'
 else
  (Sender as TSpeedButton).Caption := 'NO Activo';
end;