StringGrid Fehlermeldung

[lucy]

Fehlermeldung : Gitterindex außerhalb des zulässigen Bereichs.

Wenn der Button ausgeführt wird, kommt die Fehlermeldung! (StringGrid mit 7 Spalten)

Delphi-Quellcode:

function SeekRecord(Grid: TStringGrid; ColOrder: array of integer;
  StrList: array of String): Boolean;
 var
  i: integer;
  j: integer;
begin
 result := false;
  for i := 1 to Grid.RowCount - 1 do
   begin
    for j := low(ColOrder) to high(ColOrder) do
     begin
      if (Grid.Cells[ColOrder[J],I]=StrList[J]) then
       result := true
      else
       result := false;
      if result = false then break;
     end;
      if result = true then break;
   end;
 if result = false then
  Grid.Row := i
 else
  ShowMessage('Datensatz gefunden!');
  //GridDeleteRow(Grid, i);
 if result = true then
  Grid.Row := i
 else
  ShowMessage('Datensatz nicht gefunden!');
end;

Delphi-Quellcode:

procedure TForm1.BitBtn7Click(Sender: TObject);
begin
  SeekRecord(StringGrid1,[2],['1508972155']);
end;