Editando un archivo de texto

[sirsolrac]

Necesito generar un archivo te texto y escribir siempre en el principio de dicho archivo sin borrar ninguna informacion escrita anteiormente. El codigo para la parte del texto es el siguiente:

Código Delphi [-]
   CardNum: TEdit;
   Block0data: TEdit;
   myFile : TextFile;
   text   : string;

//Aqui escribe en el archivo de texto que previamente ha sido creado
AssignFile(myFile, 'archivotedexto.txt');
Append(myFile);
WriteLn(myFile,'');
Write(myFile,'# Tarjeta numero: '+CardNum.Text+'');  // escirbo una linea dentro del archivo de texto con una variable string
WriteLn(myFile,'  ');
Write(myFile,Block0data.Text+'  ' + 'Dato del bloque = "' + ,'  ' );
WriteLn(myFile,'  ');
CloseFile(myFile);

y esa secuencia se va a ejecutar ciclicamente de manera indefinada para cada lectura que realice mi programa. Les agradeceria si me ayudan con el codigo. De antemano muchas gracias por tomar su tiempo.