StringGrid Zeile bei bestimmten Werten anders farbig markier

[Ykcim]

Hallo,

mit diesem Code bekomme ich nur folgendes Ergebnis (Screenshot)

Delphi-Quellcode:

procedure TTest3.StringGrid4DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var i:integer;
begin
      if StringGrid4.Cells[0,Arow]='135746' then
        begin
          StringGrid4.Canvas.Brush.Color := clYellow;
          StringGrid4.Canvas.TextOut(ACol,ARow,StringGrid4.Cells[ACol,ARow]);
          StringGrid4.Canvas.FillRect(Rect);
        end;
end;