String-Suche in einem TStringGrid

[Alex_ITA01]

Ich wollte es jetzt so lösen aber das geht nicht:

Delphi-Quellcode:

function GridSuche(Grid: TStringGrid; StrList: array of String; var AList: TStringList): Boolean;
var
  I, J : Integer;
begin
  Result := False;
  AList.Clear;
  AList.Duplicates := dupIgnore;
  for i := 1 to Grid.RowCount - 1 do
  begin
    for j := 1 to Grid.ColCount - 1 do
    begin
      if (Grid.Cells[j,i] = StrList[j]) then
      begin
        AList.Add(IntToStr(i));
      end;
    end;
  end;
end;

Könnt ihr mir bitte irgendwie helfen.
Ich will, dass das Array of String durchsucht wird und alle Zeilen wieder zurückgibt, wo auch alle Strings aus dem Array gefunden wurden.
MFG Alex