copiar datos de un txt y generar otro

[[coso]]

Hola, puedes hacer algo asi

Código Delphi [-]

var 
   sl : TStringList;
   s : string;
begin
   sl := TStringList.Create;
   sl.LoadFromFile(fichero);

   sl.Commatext := sl.Text;
   showmessage(sl[0]);
   showmessage(sl[2]);

   sl.Free;
end;