Problem mit einen XStringgrid und DrawCell

[bekosch]

Ich hab einen seltsamen Fehler beim DrawCell bei einen XStringGrid.
Mein Code schaut folgendermaßen aus :

Delphi-Quellcode:

procedure TFRFahrzeugsuche.XSGDatenausgabeDrawCell(Sender: TObject; ACol, 
  ARow: Integer; Rect: TRect; State: TGridDrawState); 
begin  

if odd(ARow) then begin  
    XSGDatenausgabe.Canvas.Brush.Color := clCream; 
    XSGDatenausgabe.Canvas.FillRect(Rect); 
  end; 
end;

Er schreibt mir aber immer die Zeile doppelt, einmal den Ausgabetext in die Zeile (weiß) und die Cream Zeile bleibt leer? An was kann das noch liegen?