stringrid füllen mit suchergebnis

[horst]

das stringgrid wird nicht gefüllt...

hiermit geht es:

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 Form1.StringGrid1.ColCount - 1 DO
// erste Spalte
Form1.StringGrid1.Cells[0, i + 1] := pfad;
// zweite Spalte
Form1.StringGrid1.Cells[1, i + 1] :=BestimmteDatei;
end;

sieht aber komisch aus
http://www.fusshoeller.com/screens/s2.gif