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;