procedure Fehler (procedure zum Filtern eines Stringgrids)

[maximus Caesar]

Hallo!
Ich versuche gerade eine Procedure zu schreiben, die alle Zellen eines StringGrid nach einem Stichwort durchsucht, und jede Zeile, in der es vorkommt in ein anderes Stringgrid kopiert.
Dies ist mein bisheriger TExt:

Delphi-Quellcode:

procedure TForm5.Button1Click(Sender: TObject);
var Zellen:Integer;
    i,i2,i3,i4:Integer;
    Zeilen:Integer;
    Daten:String;
begin
  i4:=0;
  Stringgrid1.ColCount:=Form1.StringGrid1.ColCount;
  StringGrid1.Rows[0]:=Form1.StringGrid1.Rows[0];
  StringGrid1.DefaultColWidth:=Form1.StringGrid1.DefaultColWidth;
  StringGrid1.RowCount:=1;
  Zellen:=Form1.StringGrid1.ColCount;
  Zeilen:=Form1.StringGrid1.RowCount;
  for i:=0 to Zeilen do begin
    i3:=0;
    for i2:=0 to Zellen do begin
      if pos(lowercase(Form1.StringGrid1.Cells[i2,i]),lowercase(Edit1.Text))<>0 then i3:=1;
    end;
   // showmessage(lowercase(Form1.StringGrid1.Cells[i2,i]));
   // showmessage(lowercase(Edit1.Text));
    if i3=1 then begin
      StringGrid1.RowCount:=StringGrid1.RowCount+1;
      i4:=i4+1;
      Stringgrid1.Rows[i4]:=Form1.StringGrid1.Rows[i];
      StringGrid1.FixedRows:=1;
    end;
  end;

aber irgendwie funzt das net. kann mir jemand weiterhelfen?

PS: Form1.Stringgrid1 ist das Stringgrid, aus dem die Daten kommen, Stringgrid1 ist das, in das die Zeilen kopiert werden sollen.