После строчки
Код:
ADOQuery1.SQL.Add('WHERE (Дата >:StartDate) AND (Дата<:FinishDate)');
необходимо добавить тип параметров:
Код:
ADOQuery1.Parameters.ParamByName('StartDate').DataType:= ftDateTime;
ADOQuery1.Parameters.ParamByName('FinishDate').DataType:= ftDateTime;