[angvelem]

А чего это ты присваиваешь значение неинициализированной переменной?

Код:

  i := DataModule1.qry1.Fields[0].AsInteger;

измени хотя бы так:

Код:

  SetLength(i, Length(i) + 1);
  i[Length(i) - 1] := DataModule1.qry1.Fields[0].AsInteger;