كود :
Procedure Button1Click(Sender:tobject);
var
ss:tstringlist;
begin
ss:=tstringlist.create;
ss.text:=nedit1.text;
ss.savetofile('c:\ok.txt');
ss.free;
end ;