Stringgrid zeilen färben

[DieFliege]

Hallo Zusammen

Leider bin ich mal wieder etwas begriffsstutzig oder zu naiv um mein Vorhaben umzusetzen:

Also, ich habe ein StringGrid gefüllt mit Daten. Nun möchte ich alle Zeilen in dem StringGrid farbig machen, die einen bestimmten Wert ("x") in einer Spalte haben. Dazu habe ich erst mal was einfaches gebastelt: Form, StringGrid und Button.

Dies ist mein Code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Rect    : TRect;

begin
  //--
  if StringGrid1.Cells[2,2] = 'x' then
    begin
      StringGrid1.Canvas.Brush.Color := clRed;
      StringGrid1.Canvas.FillRect(Rect);
      StringGrid1.Canvas.TextOut(Rect.Left, Rect.Top, StringGrid1.Cells[2, 2]);
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  //--
  StringGrid1.Cells[2,2] := 'x';
end;

Hier gebe ich zum Testen die Zelle vor, wo sich der gesuchte Wert befindet, später will ich das mit einer Schleife zeilenweise durchlaufen lassen.

Wo ist mein Fehler?

LG Fliege