odliczanie czasu trwania koloru shape

Witam,
Panowie jakiej pętli użyć żeby komponent shape był danego koloru lub był widoczny przez odliczony czas wyliczony z jakiegoś wzoru .
Mam taki kodzik ale mi nie działa po prostu kolor shape nie zmienia się.
begin
shape1.visable:=false;
x:=3;
u:=2;
i:=x+y;
timer1.interval:= (i)
if timer1.interval=0 then
shape1.visable:=false;
Za pomoc dziękuję.

timer1.interval:= (i)
timer1.Active:=true;

procedure Form1.Timer1Timer(Sender:TObject);
begin
shape1.visable:=false;
timer1.Active:=false;
end;