[M.A.D.M.A.N.]

Все просто
смотри

Код:

var SaveStream:TMemoryStream;
      Text:String;
begin
  savestream:=tmemorystream.create;
  text:=edit1.text;
  savestream.write(text,length(text));
  savestream.savetofile('FileName.txt');
  savestream.free;
end;

можно использовать TextFile но потоки более удобны.
как работать с TextFile;

Код:

var f:textfile;
begin
  assignfile(f,'c:\123.txt');
  rewrite(f);
  write(f,text);
  closefile(f);
end;