[aqula]

Выдает следующее

Вот сама процедура вызывающая ее

Код:

procedure TBarcodeForm.RadioButton1Click(Sender: TObject);
begin
 if BarcodeForm.Combobox1.ItemIndex > 0 then
   begin
BarcodeForm.ADOQuery1.SQL.Clear;
BarcodeForm.ADOQuery1.Close;
    BarcodeForm.ADOQuery1.SQL.Add('SELECT * FROM works WHERE :dd1 = "Âûñîêàÿ"');
     case BarcodeForm.Combobox1.ItemIndex  of
      1: BarcodeForm.ADOQuery1.Parameters.ParamByName('dd1').Value:= 'cImpotance';
      2: BarcodeForm.ADOQuery1.Parameters.ParamByName('dd1').Value:= 'cSrochost';
     else BarcodeForm.ADOQuery1.Parameters.ParamByName('dd1').Value:= 'cImpotance';
     end;
BarcodeForm.ADOQuery1.Open;
   end;
end;