Stringgrid-Gitter färben, bei bestimmter Zeichenkette

[pp-deluxe]

Hallo,
ich hab mal wieder eine Frage ^^

Ich möchte eine komplette Reihe eines StringGrid-Gitters färben, wenn die 4. Spalten den Text "PP:2" enthalten.

Code:

procedure TForm1.ffnen1Click(Sender: TObject);
var fg: integer;
begin
for fg := 1 to Stringgrid1.Rowcount do
              begin
                  with Stringgrid1 do
                  begin
                  if cells[fg,3] = 'PP:2' then // 4. Spalte
                    begin
                    Canvas.Brush.Color := clYellow;
                    end;
                  end;
              end;
end;

Hab auch schon gesucht, und folgendes gefunden: Zeilen färben

Kann mir das jemand erklären, ich hab das noch nicht in der Schule gehabt ...

ThX :)