[ОСОБО НЕОПАСЕН]

Нужно было создать приложение работающее с Базой Данных, чтобы там был поиск по телефону (строка ввода и кнопка, при нажатии которой открывается новая форма с результатами поиска).

Я создал, перепроверил - вроде бы всё правильно, ошибок не нашёл, но программа всё равно почему-то не хочет переходить на новую форму при нажатии на Кнопку поиска всплывает ошибка.

Ошибка:

Код кнопки поиска:

procedure TForm1.Button1Click(Sender: TObject);
begin
telephone:=Edit1.Text;
form1.adoQuery1.Active:=false; // делаем компонент запроса неактивным
form1.adoQuery1.parameters.ParamByName('telephone' ).Value:=Edit1.Text;
form1.adoQuery1.Active:=true; // делаем компонент активным
Form2.ShowModal; //для отображения результата используем форму


end;

Форма:



SQL:

[Assistant]

странно, у меня работает

Код:

  form1.adoQuery1.Active:=false;
  form1.adoQuery1.Parameters.ParamByName('telephone').Value := '%'+Edit1.Text+'%';
  form1.adoQuery1.Active:=true;

[ОСОБО НЕОПАСЕН]

Сообщение от Assistant

странно, у меня работает

Код:

  form1.adoQuery1.Active:=false;
  form1.adoQuery1.Parameters.ParamByName('telephone').Value := '%'+Edit1.Text+'%';
  form1.adoQuery1.Active:=true;

Видимо проблема не в кнопке поиска, а в чем-то другом.

Кто-нибудь знает чем может быть вызвана подобная ошибка (в старт. пост скрин)?