list index out of bounds (9)

[lord24]

Добрый день. Ребята вылазит такая ошибка "list index out of bounds (9)". вот код

Memo1.Clear;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:=('SELECT * From Statement WHERE Data_s>=D1 AND Data_s<=D2');
ADOQuery1.Parameters.ParamByName('D1').Value:= FormatDateTime('dd/mm/yyyy',DateTimePicker1.Date);
ADOQuery1.Parameters.ParamByName('D2').Value:= FormatDateTime('dd/mm/yyyy',DateTimePicker2.Date);
ADOQuery1.Open;
  while not ADOQuery1.Eof do
  begin
      Memo1.Lines.Add(ADOQuery1.Fields[2].AsString +'   '+ ADOQuery1.Fields[3].AsString+'   '+ ADOQuery1.Fields[4].AsString+'   '+ ADOQuery1.Fields[5].AsString+'   '+ ADOQuery1.Fields[9].AsString);
      ADOQuery1.Next;
  end;

Причем ошибка вылазит если выбрать значение в календаре с 1 января до сего дня, а точнее с 9 марта и назад. А вот с 10 марта все норм. Где собака?

[Аватар]

А покажь структуру таблицы Statement

[lord24]

[Аватар]

Поля в Fields с 0 нумеруются, а не с 1.

[lord24]

Да точно, попутал понятия маленько.
Спасибо за наводку.