Problemas Lectura Archivo CSV

[ASAPLTDA]

Gracias Roman por contestar:

El primer codigo es para ller el archivo que voy a importar y declaro un archivo texto, el cual leo linea a linea, una vez que leo una linea lo que hago es descomponer el registro en campos.

Código Delphi [-]
procedure forma1.leer_texto;
var
  w_F          :TextFile;
  w_string     :string   ;
begin
 Readln(w_F, w_string);
  w_string := Trim(w_string)  ;
  While not (Eof(w_F)) OR (w_string  > '') do begin
    descomponer_texto_en_campos(); 
   w_string:='';
    Readln(w_F, w_string);
  end;
  CloseFile(w_F);

Con el anterior el programa no lee registros ya que el while esta condicionado con eof(w_f) , tal como lo anote en la descripcion si el archivo lo copio a otro archivo usando copy parte y salvarlo el archivo si es procesado en forma normal

En el siguiente formato, uno puede grabar la inormacion de un archivo de texto dentro de un campo memo. La prueba conv delhi 5 solo trae 3 caracteres que no se que son, usando delphi xe2 con el mimo codigo si funciona,

Código Delphi [-]
 MemoCSV.Lines.Clear;  // componente tipo memo en la forma
  OpenDialog1.FileName:= '*.CSV';
  OpenDialog1.Execute;
  MemoCSV.Lines.LoadFromFile(OpenDialog1.FileName);  // grabar a un campo memo toda la informacion del archivo a importar

Creo que existe algo en el archivo que no deja que se lea normalmente, pero a su vez existe alguna diferencia en la forma que se lee un load fromfile entre delphi 5 y delphi xe

Gracias por su atencion