stringrid füllen mit suchergebnis

[horst]

das funktioniert so nicht, was mache ich falsch?

Delphi-Quellcode:

procedure ZuMemoFallsKiterienerfuellt(const pfad, BestimmteDatei,SuchTextInDerDatei: string);
var
i:integer;
aStringList : TStringList;
begin
 aStringList := TStringList.Create;
  if Str1IstInStr2(BestimmteDatei,pfad)
    and istInderDatei(SuchTextInDerDatei,pfad) then
   form1.memo1.lines.add('"'+pfad + '" enthält den Text "' + SuchTextInDerDatei);
   FOR i := 0 TO aStringList.Count - 1 DO
       BEGIN
// erste Spalte
Form1.StringGrid1.Cells[0, i + 1] := pfad;
// zweite Spalte
Form1.StringGrid1.Cells[1, i + 1] :=SuchTextInDerDatei[i];
end;
end;