Delphi - Condiciones y bottones

disculpen quisiera saber si me pudieran desir como puedo aser una condicon con botones por ejemplo:

si apreto el boton1 'accion' si no 'accion'

Haz que el manejador del evento OnClick sea el mismo para todos los botones (o crea un procedimiento que sea llamado por cada manejador):
procedure UnBotonCualquieraClick(Sender: TObject);
begin

if Sender = Boton1 then
//Accion1

if Sender = Boton2 then
//Accion2;

...

end;//DecideAccion