[[nlsgarcia]]

Jere_84,

Revisa estos links :

Procedimientos y funciones de archivos en Delphi:
http://www.delphibasics.co.uk/ByFunction.asp?Main=Files

Managing Ascii (Text) Files from Code in Delphi:
http://delphi.about.com/od/fileio/a/ascii_textfile.htm

5 métodos para copiar un archivo en Delphi:
http://www.clubdelphi.com/foros/show...256#post448256

Revisa este código:

Código Delphi [-]
// Tomado de la página : http://www.delphibasics.co.uk/RTL.asp?Name=AssignFile
// Example code : Write to a text file, and then read back its contents
var
  myFile : TextFile;
  text   : string;

begin
  // Try to open the Test.txt file for writing to
  AssignFile(myFile, 'Test.txt');
  ReWrite(myFile);

  // Write a couple of well known words to this file
  WriteLn(myFile, 'Hello');
  WriteLn(myFile, 'World');

  // Close the file
  CloseFile(myFile);

  // Reopen the file for reading
  Reset(myFile);

  // Display the file contents
  while not Eof(myFile) do
  begin
    ReadLn(myFile, text);
    ShowMessage(text);
  end;

  // Close the file for the last time
  CloseFile(myFile);
end;

Espero sea util

Nelson.