Problema al Pintar DBGrid

[MaMu]

Yo hago lo siguiente, y me funciona perfecto, pero es como si temblara la grilla del DBGrid, como si todo el tiempo estuviera pintándose, y queda feo, como lo puedo solucionar???

Código Delphi [-]
procedure TBuscar.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
const
   clPaleMacho = TColor($00F1E8DE);
   clPaleHembra = TColor($00E1C4FF);
begin
     If Column.Field.Dataset.FieldbyName('sexo').AsString = 'MACHO'
         then dbgrid1.Columns[3].color := clPaleMacho
         else dbgrid1.Columns[3].color := clPaleHembra;
     DBGrid1.DefaultDrawColumnCell(rect,DataCol,Column,State)
end;