delphi write text

procedure tform1.NewTxt(filename:string);
begin
if fileExists(FileName) then DeleteFile(FileName); {看文件是否存在,在就刪除}
　AssignFile(Input, FileName);
　ReWrite(Input);
　Writeln( '将您要写入的文本写入到一个 .txt 文件');
　Closefile(Input); {关闭文件}
end;