procedure TForm1.btn1Click(Sender: TObject);vartext:TextFile;s:string;begin s:=edt1.text; AssignFile(text,'e:\test.txt'); Rewrite(text); Writeln(text,s); closefile(text);end;
