[Страдалецъ]

Смотря куда вставляешь.
Примерно так должно быть:

Код:

procedure TForm1.FormPaint(Sender: TObject);
Var
 t,i: LongInt;
begin
 t := GetTickCount;
 i := 1;
 repeat
  if GetTickCount - t > 500
  then begin
       if i mod 2 = 0
       then TaxiLogo(Canvas, 20, 20, clYellow, clBlack)
       else TaxiLogo(Canvas, 20, 20, clBlack, clYellow);
       t := GetTickCount;
       Inc(i);
       end;
 until False;
end;