StringGrid Zeile bei bestimmten Werten anders farbig markier

[Ykcim]

Das hatte ich in der Zwischenzeit auch so auprobiert - ohne Erfolg. Siehe Screenshot im Anhang...

Was mache ich nur falsch?

Hier der Code zu dem hochgeladenen Screenshot2.jpg

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(Rect.Left, Rect.Top, StringGrid4.Cells[ACol,ARow]);
          StringGrid4.Canvas.FillRect(Rect);
        end;
end;

Danke für Deine Mühe!

Ykcim