if pos(ComboBox1.Text,'钢管') > 0 then