Não há como fugir. Cedo ou tarde precisaremos escrever em um arquivo texto usando Delphi. E esta dica foi escrita com o propósito de facilitar esta tarefa.

O primeiro passo para se escrever em um arquivo texto usando Delphi é declarar uma variável do tipo TextFile. Em seguida usamos a procedure AssignFile() para associar a variável TextFile ao arquivo em disco.

Como queremos escrever conteúdo novo no arquivo, a função Rewrite() pode ser usada. Esta função cria o arquivo em disco se este ainda não existir. Se o mesmo existir, ele é excluído e a função cria outro com o mesmo nome. E, para escrever conteúdo no arquivo texto, usamos as funções Write() e WriteLn(). A primeira escreve no arquivo enquanto a segunda escreve no arquivo e adiciona o marcador de quebra de linha.

Veja o exemplo para um melhor entendimento:

Código PHP:
procedure TForm1.Button1Click(SenderTObject);
var
  
arquivoTextFile;
begin
  
// vamos fazer uma ligação entre a variável arquivo e o
  // arquivo que queremos manipular
  
AssignFile(arquivo'C:\arquivo de codigos\dados.txt');

  
// vamos abrir o arquivo ou criar um novo
  
Rewrite(arquivo);

  
// vamos escrever no arquivo agora
  
WriteLn(arquivo'Sou a primeira linha.');
  
Write(arquivo'Sou a segunda linha.');
  
WriteLn(arquivo' E lá vem...');
  
WriteLn(arquivo'A terceira linha');

  
// hora de fechar o arquivo
  
CloseFile(arquivo);

  
// fim
  
ShowMessage('Operação realizada com sucesso.');
end
Créditos: arquivodecodigo