Dos estados de un botón
 

Hola a todos, mas de uno ya habrá visto que recién estoy aprendiendo a programar con delphi.
Logre que cuando clickeo un button1, el caption de dicho button cambie de 'desactivado' a 'activado', lo que no me sale es que al apretear nuevamente el button por segunda vez cambie a desactivado. ¿Es posible hacerlo con un button?

Desde ya muchas gracias a todos.
Saludos.

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!

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