Delphi - Nose como explicarlo Brevemente

Vamos a Ver.Me gustaria saber como se puede hacer que al pulsar un boton por ejemplo ocurra una cosa y que si se vuelve a pulsar ocurra otra cosa distinta.Es decir que cada vez que lo pulse ocurra algo distinto que yo ya aya definido.Nose si me explico bien bueno espero que alguien me entienda.Esto no es para nada en particular es para saber como se hace.Gracias

Supongo que usando una variable o propiedad del Form donde está el botón como bandera, un contador o algo así.
Sería:
TForm1.ButtonClick1(Sender: TObject);
begin
case Bandera of
1:Accion1;
2:Accion2;
3:Accion3;
{ ... }
end;
Inc(Bandera);
end;

Muchas Gracias

Tb puedes jugar con la propiedad capotion del boton:
if boton.caption = "xxx" then ....
begin
...
boton.caption := "zzz";
end;
else
...

Si son solo dos opciones como por ejemplo activar -desactivar puedes hacerlo con If (interructor on-off).

if tabla activada
desactivar
else
activar