Запросы к бд а делфи

[Анастасия1902]

Здравствуйте, подскажите пожалуйста, в чем ошибка в процедуре.

procedure TForm1.Button2Click(Sender: TObject);
var
st:string;
begin

st:=InputBox('Поиск','Введите номер организации','');
if st<> '' then
begin
DataModule2.ADOQuery1.Active:=false;
DataModule2.ADOQuery1.SQL.Clear;
DataModule2.ADOQuery1.SQL.Add('SELECT naim_org,adress');
DataModule2.ADOQuery1.SQL.Add('FROM spravochnik');
DataModule2.ADOQuery1.SQL.Add('WHERE');
DataModule2.ADOQuery1.SQL.Add('(numb_tel="+numb_tel+")');
DataModule2.ADOQuery1.Active:=true;
form4.ShowModal;
  end; end;

Не выводится результат почему-то, хотя ошибки никакой не выдает!

[Stilet]

Видимо здесь:

DataModule2.ADOQuery1.SQL.Add('(num b_tel="+numb_tel+")');

Предположу что нужно так:

DataModule2.ADOQuery1.SQL.Add('(numb_tel='+QuotedStr(numb_tel)+')');