StringGrid Problem nach draw cell

[MrFish]

Nabend an alle;

Ich habe mit Folgendem Code Zellen im StrinGrid eingfärbt.

Code:

 with Sender as TStringGrid do
        begin
          s := Cells[ACol, ARow];
          Canvas.Brush.Color := CellColor[Acol,Arow];
          Canvas.FillRect(Rect);
          DrawText(Canvas.Handle, PChar(s), Length(s), Rect, DT_CENTER);
        end;

Funktioniert nur wird jetzt die jeweils markierte Zelle in weiss hinterlegt, und nicht wie normal in blau.Da die Schrift ebenfalls in weiss dargestellt wird, solange die zelle selektiert ist, ist das ziemlich blöd.
Ich habe bereits versucht FillRect Brush auf clBackground zu stellen. ohne Erfolg. Wat nu?