Foros Club Delphi - Cannont conver string to double

Buenas el problema que tengo es el siguiente, he metido un ComboBox el cual cargo con una ADOTable, en el evento OnChange de este combo pretendo que según el valor del combo coja la primera letra de este, busque en la base de datos y cada vez que encuentre una referencia que: 1 empiece por la misma letra que la elección del combo y 2 el segundo carácter de la referencia sea un numero, incrementara un contador, de manera que la referencia nueva que se añada generara la inicial del usuario que esta trabajando mas, el numero de productos que ese usuario ha añadido.

No se si me he expresado con claridad, de todas formas os dejo el código aquí, y pido perdón por la sobrecarga de variables, pero no se porque me salta el error de que no puede convertir string a doble, no lo veo.

Código:

void __fastcall TXPrincipal::ComboBox6Change(TObject *Sender)

{

        String nombre="";

        String ini="";

        nombre=ComboBox6->Text;

        ini = nombre[1];

        XDatos->QReferencia->Open();

        String refe="";

        int contador=0;

        while(!XDatos->QReferencia->Eof)

        {



                refe = XDatos->QReferenciaREFERENCIA->Value;

                ShowMessage(refe[1]);

                ShowMessage(refe[2]);

                if (refe[1] == ini)

                {

                        ShowMessage(refe[2]);

                        if (refe[2] == '0' || refe[2]== '1'|| refe[2]== '2'|| refe[2]== '3'|| refe[2]== '4'|| refe[2]== '5'|| refe[2]== '6'|| refe[2]== '7'|| refe[2]== '8'|| refe[2]== '9')

                                contador ++;

                }

                XDatos->QReferencia->Next();

        }

        ShowMessage(contador);

        Edit2->Text = ini + Label11->Caption;

}