¿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;