Problema (y solución) al leer archivos en formato UNIX
 

Estimados
Tuve que hacer un proceso que lea un archivo TXT, línea a línea, para incorporar información en una base de datos.
Al leer los datos de un archivo descargado de un FTP, con formato UNIX, en el cual los renglones finalizan con #10 y no con #13#10, como lo espera el ReadLN, no funcionaba bien.
Estuve buscando y encontré algunas soluciones. La mejor la pongo a dispocisión de quienes la necesiten:

Código Delphi [-]
procedure ConvertirUNIX2DOS(Arc: String);
var
  SL: TStringList;
begin
  SL := TStringList.Create;
  try
    SL.LoadFromFile(Arc);
    SL.SaveToFile(Arc);
  finally
    SL.Free;
  end;
end;

Saludos