[ecfisa]

Hola abelg.

Depende de que clase de botón... Con un TButton no es posible, pero no hay problema usando un TBitBtn.

Ejemplo:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Interval := 100; // velocidad a gusto
  Timer1.Enabled  := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  with BitBtn1.Font do
    if Color = clBlack then
      Color := clBtnFace
    else
      Color := clBlack;
end;

Saludos