procedure TForm1.Timer1Timer(Sender: TObject);
var a:integer;
begin
if a=0 then
begin
Button.Font.Color:=clblack;
a:=1;
end
else
begin
Button.Font.Color:=clred;
a:=0;
end;
end;

Кнопочка Button не моргает так, как я задумал, точнее она вообще никак не моргает....А в стареньком школьном бейсике моргала...

Заработало!!!
Правда мой (первый) вариант. Достаточно было переменную a объявить в глобальных переменых...