Stringgrid række farve og tekst

Jeg har følgende procedure:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if aRow = 1 then
  with StringGrid1.Canvas do
  begin
    Brush.Color := clRed;
    FillRect(Rect);
  end;
end;

Det virker osse fint problemet er bare at hele rækken bliver rød og man kan ikke se teksten hvordan får jeg gjort teksten synlig!?

....Christian