Поиск данных в нескольких таблицах(Delphi))

[Strangee]

Доброго времени суток!
Никак не получается сделать поиск из нескольких таблиц.
После компиляции при попытке выполнить запрос появляется сообщение о синтаксической ошибке

procedure TForm1.Button6Click(Sender: TObject);
var
 str:string;
 search:string;
 
  begin
  DBGrid1.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+'%" or' +
 ' [Категория] like "%'+str+'%"' ;
 ADOQuery1.SQL.Add(search);
 ADOQuery1.SQL.Add('union all');
 
search:= 'Select [Номер поезда], [Название станции] from Станции '+
 'where [Название станции] Like "%'+str+'%" ';
  ADOQuery1.SQL.Add(search);
 ADOQuery1.SQL.Add('union all');
 
search:= 'Select [Номер поезда], [Название станции] from Направления '+
 'where [Номер поезда] Like "%'+str+'%" or'+
 ' Направление Like "%'+str+'%" ';
 ADOQuery1.SQL.Add(search);
 ADOQuery1.Active:=true;
end;

[evg_m]

если использовать union, то набор столбцов(полей) ВО ВСЕХ частичных подзапросах должен быть одинаков по количеству, по типу полей и и по порядку.
Если нужного поля в таблице нет, можно в качестве поля задать константу NULL.

Select [Номер поезда], [Категория], [Начальная станция], [Конечная станция] from

Select [Номер поезда], NULL,        [Название станции], NULL from Направления