код:
Код:
begin
Query1.Close;
Query1.SQL.Clear;
Query1.ParamByName('date18').AsDateTime := IncYear(Date,-18);
Query1.SQL.Add('Select * from stud.db WHERE Datro >= :date18');
Query1.Open;
Query1.FieldByName('FIO').DisplayLabel:='ФИО';
Query1.FieldByName('Datro').DisplayLabel:='Дата рождения';
Query1.FieldByName('Nac').DisplayLabel:='Национальность';
Query1.FieldByName('Socpol').DisplayLabel:='Социальное положение';
Query1.FieldByName('PaspN').DisplayLabel:='№ паспорта';
Query1.FieldByName('Kemvy').DisplayLabel:='Кем выдан';
Query1.FieldByName('AdrVgor').DisplayLabel:='Адрес в городе';
Query1.FieldByName('Mespr').DisplayLabel:='Место проживания';
Query1.FieldByName('Fioma').DisplayLabel:='ФИО метери';
Query1.FieldByName('fiopa').DisplayLabel:='ФИО отца';
Query1.FieldByName('Mrma').DisplayLabel:='Место работы матери';
Query1.FieldByName('Mrpa').DisplayLabel:='Место работы отца';
Query1.FieldByName('Tel').DisplayLabel:='Телефон';
Query1.FieldByName('Kurs').DisplayLabel:='Курс';
Query1.FieldByName('Pr').DisplayLabel:='Присутствие';
Query1.FieldByName('Prichpr').DisplayLabel:='Причина присутствия';
Query1.FieldByName('Prots').DisplayLabel:='Причина отсутствия';
end;
при попытке его использовать выдаёт такую ошибку: "Project Project 1 .exe raised exception class EDatabaseError with message Query 1:Parameter date18 not Found. Process stopped. Use Step or Run to continue.
"
где я туплю??
