Использовать параметры.
В запросе пишешь так:
Код:
SELECT * FROM Ustroystwa
WHERE ID = :ID
В коде используешь так:
Код:
procedure TForm1.ComboBox1Select(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.ParamByName['ID'].AsInteger := KopyIDUstr;
ADOQuery1.Open;
DataSource1.DataSet:=ADOQuery1;
end;
PS. Не помню точно где там в ADO параметры сидят. Возможно надо обращаться к ним через ADOQuery1.Params.ParamByName['ID'].AsInteger.