[BrunoBsso]

Sí, acá te pongo 2 ejemplos simples

Código Delphi [-]
//En el evento OnClick
if (TButton(Sender).Caption[1]='D') or (TButton(Sender).Captio[1]='d') then
  //Si la primer letra del caption es D o d
  TButton(Sender).Caption:='Activado'
else
  TButton(Sender).Caption:='Desactivado';

Eso tomando como precondición que el botón solamente va a decir "Activado" y "Desactivado".
Otra idea es usar la propiedad Tag.

Código Delphi [-]
//Tag=1 sería activado y Tag=0 sería desactivado
if (TButton(Sender).Tag = 0) then begin
  //Si el Tag está en 0 al momento de pulsarlo
  TButton(Sender).Tag:=1;
  TButton(Sender).Caption:='Activado';
end
else begin
  TButton(Sender).Tag:=0;
  TButton(Sender).Caption:='Desactivado';
end;

Ahí tendrías que ver vos cómo inicializás el Tag para hacerlo bien.
Saludos!