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;
AssignFile(myFile, 'archivotedexto.txt');
Append(myFile);
WriteLn(myFile,'');
Write(myFile,'# Tarjeta numero: '+CardNum.Text+''); 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.