Query1.SQL.Clear;
        Query1.SQL.Add('select FittingName,FittingCode from Fitting where (FittingCode>=:IFittingCode1) and (FittingCode<=:IFittingCode2)');
        Query1.ParamByName('IFittingCode1').Value :=UpperCase(DbComboBox1.Text)+Chr(0) ;
        Query1.ParamByName('IFittingCode2').Value :=UpperCase(DbComboBox1.Text)+Chr(255) ;
        Query1.Open;