[[seoane]]

¿Podria servirte esto?

Código Delphi [-]
procedure Escribir(Archivo: String; Str: String);
begin
  with TStringList.Create do
  try
    if FileExists(Archivo) then
      LoadFromFile(Archivo);
    // Supongo que como numero secuencial nos puede servir Count
    Add(IntToStr(Count) + ' - ' + Str);
    SaveToFile(Archivo);
  finally
    Free;
  end;
end;


// Por ejemplo
Escribir('c:\1.txt',TimeToStr(Time));