delphi写入文本文件代码

procedure TForm1.btn1Click(Sender: TObject);
Var
F : Textfile;
Str,FileName:String;
i:integer;
Begin
filename:=extractfilepath(application.ExeName)+'/'+formatdatetime('yyyy-mm-dd',now())+'.txt';//按日期保存为文本文件
if not fileexists(filename) then//如果不存在，创建
begin
AssignFile(F,FileName);
i:=filecreate( FileName);
fileclose(i);
end;
AssignFile(F,FileName);
Append(F);//追加方式，不覆盖
Writeln(F, lblxm.caption+' '+lblsfzh.caption);
CloseFile(F);
End;