[VRO]

Gracias MarcosZorrilla, ya lo había solucionado de la siguiente manera:

Código Delphi [-]
    leer:=exc.cells[6,1];

    while (leer=num) do
           ...........

donde leer es de tipo String.

Ahora ya se otra forma de solucionar el problema, la tuya.

Muchas Gracias