Coluna da grid piscando

COORDENADAS := Rect;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   if Cor = $000080FF then
      Cor := clBlue
   else
      Cor := $000080FF;

  with DbGrid1 do
  begin
     //trocando a cor da fonte da celula pra deixar visível quando trocar a cor da célula
     if Cor = $000080FF then
        Canvas.Font.Color := clBlack
     else
        Canvas.Font.Color := $000080FF;

     // pintando a celula
     Canvas.Brush.Color := Cor;

(*   descrição:  Rect| X:Integer    |Y:integer|  String*)
  Canvas.TextRect(COORDENADAS, COORDENADAS.Left + 2, COORDENADAS.Top + 2, SelectedField.Text);
     (*MANDA AS COORDENADAS QUE FORAM ARMAZENADAS NA VARIAVEL GLOBAL E COLOCA NA FUNÇÃO  *)
  end;
end;