Valtran Silva

NomeDoArq := 'C:\1234\TV.txt'; // Arquivo Na Pasta escolhida
  AssignFile(Arquivo,NomeDoArq);
  //reset(Arquivo);
  //Readln(Arquivo,linha);
  /////////////////////////////////////////////
    if fileExists(NomeDoArq) then
     begin
       Append(Arquivo) // se existir, apenas adiciona linhas }
       end
       else
       RewRite(Arquivo);  // cria um novo se não existir }
       try
         Writeln(Arquivo, DateToStr(Now)); // data atual do micro
       finally
       CloseFile(Arquivo);
       end;
 
Código correto agora