Delphi БД - Поиск через ADOQuery

[Strangee]

Здравствуйте, после компиляции данного кода после нажатия кнопки ничего не происходит.
После нажатия кнопки должен осуществляться поиск по подключенной бд

Код Delphi

procedure TForm2.Button1Click(Sender: TObject);
 
var
 str:string;
 search:string;
 
begin
  DBGrid2.Visible:=true;
 str:=Edit1.Text;
str:=TRIM(str);
 
 ADOQuery1.SQL.Clear;
 
 search:='Select Категория, [Начальная станция], [Конечная станция] from Поезда '+
 'where [Начальная станция] Like "%'+str+'%" or'  +
 ' [Конечная станция] Like "%'+str+'%" or' +
 ' [Номер поезда] Like "'+str+'" or' +
 ' [Категория] like "%'+str+'%" ';
 ADOQuery1.SQL.Add(search);
 ADOQuery1.Active:=true;

На форме присутсвуют элементы DBGrid, Button, Edit, ADOConnection, ADOTable, DataSource, ADOQuery

[Slym]

в дизайнере перечисленные DBGrid, DataSource, ADOQuery, ADOConnection должны быть соединены

[Strangee]

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

в дизайнере перечисленные DBGrid, DataSource, ADOQuery, ADOConnection должны быть соединены

Все подключено

[Konstantin_ua]

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

Все подключено

если ошибки не возникает значит код выполняеться, может условие не правельное, Попробуй использовать параметры:

 ADOQuery1.SQL.Clear;
 
 search:='Select [Категория], [Начальная станция], [Конечная станция] from Поезда '+
 'where [Начальная станция] Like :p1 or ' +
 ' [Конечная станция] Like :p1 or' +
 ' [Номер поезда] Like :p1 or' +
 ' [Категория] like :p1 ';
 ADOQuery1.SQL.Add(search);
 ADOQuery1.Parameters.ParamByName('p1').Value:=Trim(Edit1.Text);
 ADOQuery1.Active:=true;