Edit1.Text := Copy(ComboBox1.Text, 4, 1);//ouEdit1.Text := Copy(ComboBox1.Text, Pos('COM', ComboBox1.Text)+3, 1);//ou...