如何在有类型文件中添加数据（急用）(20分)

我在编制一个程序，定义了一个结构文件，需要不断地添加数据，但我不能实现，基本结构如下：
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;

type
tdata=record
name:string[10];
num:integer;
end;
tfile=file of tdata;
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Panel1: TPanel;
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Panel2: TPanel;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
{ function form1.getdata: tdata;}
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
f:tfile;
implementation

{$R *.DFM}
function getdata:tdata;
begin
try
with result do begin
name:=form1.edit1.text;
num:=strtoint(form1.edit2.text)
end
except
showmessage('error');abort
end
end;
procedure setdata(const data:tdata);
begin
with data do begin
form1.edit1.text:=name;
form1.edit2.text:=inttostr(num);
end
end;
procedure TForm1.Button1Click(Sender: TObject);
var
adata:tdata;
begin
if button1.caption='add' then begin
panel2.Visible:=false;
button1.caption:='save';
end
else begin
adata:=getdata;
assignfile(f,'f:/zlx/delphi/lucky/lucky.dat');
rewrite(f); {用这句会将原文件覆盖，在文件中只有一个数据，请问应如何解决}
write(f,adata);
edit1.text:='';
edit2.text:='';
button1.caption:='add';
panel2.visible:=true;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
adata:tdata;
begin
panel2.visible:=false;
assignfile(f,'f:/zlx/delphi/lucky/lucky.dat');
reset(f);
read(f,adata);
setdata(adata);
end;

end.

把rewrite改为 append 如何？
可在帮助中输入 Append procedure获得具体信息

assignfile 后可以有3种方法 rewrite,append,reset ,区别如下

－－－－－－－－－－－－－－－－－－
rewrite 删除内容后从新写
append 在尾部添加
reset 重置，文件已经开了就关掉它在打开

啊，有类型文件只要用RESET就行了，它不像文本文件，只要用
那个就可以读、写、SEEK，放心地干吧

reset 重置方式打开文件,你可以用
procedure Seek(var F; N: Longint);

定位到文件的任何地方重写或追加.
我认为此方式最好用.

append只能用于文本文件
想添加,这样做:
AssignFile(f,Filename);
if FileExists(Filename) then Reset(f)
else Rewrite(f);
try
Seek(f,FileSize(f));
....//添加数据
finally
CloseFile(f);
end;

接受答案了.