обращение к adoquery напрямую.

ADOQuery1.FieldByName('IDzakaza').AsString:=ADOQuery2.Fields[0].AsString;
procedure TForm1.ComboBox2Select(Sender: TObject);
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM telemaster WHERE Nameap = '+QuotedStr(ComboBox2.Text));
//точное сопадение текста
ADOQuery1.Active:=True;
end;
QuotedStr(const S:string):string;
Функция добавляет символ одиночной кавычки в начало и конец строки