Fórum Criar Arquivo Texto em tempo de execução #409560

Porque você não cria um Memo, e neste memo coloca todas as informações que você quer salvar e assim que o memo estiver com os dados como você quer, então salva o conteúdo deste memo como texto.

procedure TfrmNovo.bbtCadastrarClick(Sender: TObject);
var
arquivo: TextFile;
nome:String;
PWC:PWideChar; // equivale a ^WideChar .. > P(ponteiro) W(Wide) C(Char)
begin
AssignFile(arquivo, edtLogin.Text + .txt);
Rewrite(arquivo); //abre o arquivo para escrita
Write(arquivo,edtLogin.Text + + edtSenha.Text + ); //escreve no arquivo e desce uma linha
ShowMessage(edtLogin.Text + cadastrado com Sucesso!);
CloseFile(arquivo); //fecha o handle de arquivo
nome:= edtLogin.Text + .txt; // nome = o caminho do arquivo que será oculto
PWC:=@nome[1]; // esta variável recebe nome por motivos de conversão
// para ser usada sem problemas na função SetFileAttributes
Windows.SetFileAttributes(PWC,FILE_ATTRIBUTE_HIDDEN); // função que oculta o arquivo
edtLogin.Clear;
edtSenha.Clear;
end;

Ai um exemplo comentado para você fazer

Você pode utilizar o TStringList. De uma olhada nestes links:
http://www.ericksasse.com.br/gerando-arquivos-texto-usando-tstringlist/
https://www.devmedia.com.br/articles/post-3231-Manipulando-arquivos-texto-com-TStringList.html

Espero ter colaborado.

Não esqueça de finalizar o tópico caso esteja resolvido.