Salvar Edit em txt

var
   Arquivo: TextFile;
begin
     AssignFile(Arquivo, 'c:\arquivo.txt');  // Aqui você deve informar o local e nome do arquivo que será criado.
     IOResult;  // Uso esta linha para evitar erros de I/O
     Rewrite(Arquivo); // Essa linha cria um arquivo novo, zerado...

     Writeln(Arquivo, Edit1.Text);   // Gravação das linhas no arquivo
     Writeln(Arquivo, Edit2.Text); 
     Writeln(Arquivo, Edit3.Text);

     CloseFile(Arquivo); // Fecha o arquivo e efetiva a gravação
end;