Delphi-Quellcode:
var f:textfile;
begin
assignfile(f,'test.txt');
rewrite(f); //Achtung, bestehende Datei wird evtl. gelöscht.
writeln(f,edit1.text);
closefile(f);
end;
Soviel zur Frage. Man kann das auch noch schöner mit nem try-finally-block und/oder TFilestream machen.