list index out of bounds (0)

[King_Of_Arthur]

Делаю запрос к таблице БД и записываю его в таблицу памяти

 kbmMemTable1.Append;
 kbmMemTable1['num']:='5.';
 kbmMemTable1['ind']:='Количество граждан с впервые выявленными хроническими неинфекционными 
заболиваниями из числа полностью завершивших диспансеризацию за отчетный период, из них:';
try
  Q1.Close;
  Q1.DatabaseName:='ARENA';
  Q1.SQL.Clear;
  Q1.SQL.Text:='SELECT COUNT (ODD) as ODD FROM PDISP WHERE ODD<>'' and ETAP=2 AND DTP BETWEEN :param1 AND :param2';
  Q1.Params.ParseSQL(Q1.SQL.text, true);
  Q1.Params[0].Value:=DateOf(DateTimePicker1.Date);
  Q1.Params[1].Value:=DateOf(DateTimePicker2.Date);
  Q1.Open;
 kbmMemTable1['zind']:=Q1.fieldbyname('ODD').asstring;
except
end;

Q1.Params[0].Value:=DateOf(DateTimePicker1.Date );-на этой строке вылазиет ошибка подскажите почему и как ее исправить?))

[Аватар]

ParseSQL - скорее всего после него от параметров и следа не осталось. Без него катит?

[King_Of_Arthur]

не работает та же ошибка у меня есть другие запросы они все работают, а тут я думаю из за этого ODD<>''

[Аватар]

А так

Q1.SQL.Text:='SELECT COUNT (ODD) as ODD FROM PDISP WHERE ODD<>'''' and ETAP=2 AND DTP BETWEEN :param1 AND :param2';

[King_Of_Arthur]

Работает только когда я поставили ""-такие скобки Спасибо тебе)))