Te pongo un ejemplito para que lo pongas en uso.
Código Delphi
[-]
type TRegistro=record
Id:Integer;
Nombre:String[30];
end;
...
procedure TForm1.Button1Click(Sender: TObject);
var
F:file of TRegistro;
Reg: TRegistro;
begin
Randomize;
Reg.Id:=Random(1000);
Reg.Nombre:='Append registro';
AssignFile(F,'c:\pruebas.dat');
if FileExists('c:\pruebas.dat') then
begin
Reset(F); Seek(F,FileSize(F)); end
else
ReWrite(F);
BlockWrite(F,Reg,1); CloseFile(F);
end;
Saludos