[danytorres]

Gracias jmariano y a todos por el interes en ayudarme, ya resolvi el pequeño problema. Hay momentos en que uno esta mentalmente agotado y la solucion estan sencilla que no la ves. Gracias

haa la solucion fue esta;

Code:
__________________________________________
Cant := 0;
Campos.Clear;
Campos.CommaText:= Archivo[i];

if (Campos[0] <> '') and (Campos[1] <> '') then
begin
Codigo:= Campos[0];
Cant:= Strtofloat(Campos[1]);
end;
____________________________________________