小妹求求各位帮个忙，问题简单！！！！

[jiangjiangao]

procedure TForm1.Button1Click(Sender: TObject);
var
xfile:textfile;
s:string;
begin
assignfile(xfile,'d:\a.txt');
rewrite(xfile);
s:='nihao';
write(xfile,s);
end;
可以通过运行
但是可我单击Button1时d:\a.txt中并未添加什么东西
请问我的问题出在哪里？
如果要实现我的功能（单击Button1时在d:\a.txt中添加字符串）该怎么写

[jinjazz]

procedure TForm1.Button1Click(Sender: TObject);
var
xfile:textfile;
s:string;
begin
assignfile(xfile,'d:\a.txt');
rewrite(xfile);
s:='nihao';
write(xfile,s);
closefile(xfile)----------->>>
end;

[沾上了甩不掉]

procedure TForm1.Button1Click(Sender: TObject);
var
HTextFile: TextFile;
FileName: String;
WriteStr: String;
begin
FileName := 'd:\test.txt';
WriteStr := '技术不分性别';
AssignFile(HTextFile,FileName);
ReWrite(HTextFile);
WriteLn(HTextFile,WriteStr);
CloseFile(HTextFile);
end;

[sweig0721]

但是泡美女要分呀！

[tanyun1111]

他们说的对
帮你
up

[hsmserver]

加上
closefile(xfile)
就沾了

[huiwww]

加上
closefile(xfile)
这样才能真正的将数据写入文件