用delphi7.0写一个生成txt文档的程序

procedure Twrt_Form.N1Click(Sender: TObject);
var
myfile: Textfile;
s,str:string;
begin
richedit1.Text:='';
if opendialog1.Execute then //此处选择你要打开的文件
begin
caption:=opendialog1.FileName;
str:=opendialog1.FileName;
assignfile(myfile,str);
reset(myfile);
try
while not eof(myfile) do
begin
readln(myfile,s); //读文件
richedit1.Lines.Add(s);
end;
finally
closefile(myfile);
end;
end;
end;

最简单的办法。弄个memo.然后直接savetofile