Программа. Типизированый файл. Ввод данных.

[ArtS]

Разработать приложение, которое позволяет записать в типизированный файл введенные пользователем данные о сотрудниках предприятия: фамилия, имя, отчество, дата рождения, отдел, должность, штатный/совместитель.
Наименования отделов и должностей в комбинированных списках задать произвольно (не менее 3 наименований в каждом списке).
Предусмотреть возможность отсутствия файла данных (ошибка при попытке открытия файла). В этом случае программа должна вывести окно с соответствующим сообщением и создать новый файл.

PHP код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    DateTimePicker1: TDateTimePicker;
    RadioGroup1: TRadioGroup;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Button1: TButton;
    Button2: TButton;
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  TOTD = (stat,sovm);
  Tsotr = record


end;

var
  f:  file of  Tsotr;
  Form1: TForm1;
 fam: string[20];    // фамилия
     name: string[20];    // имя
     otch: string[20];    // отчество
     hb: string[20];          // день рождения
     dol: string[30];        // должность
     otd: string[30];          // отдел
     tip: TOTD;              // тип
implementation

{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);
begin
AssignFile(f, 'C:\Staff.db');
  {$I-}  Reset(f);  {$I+}//директива запрещающая автоматическую обработку ошибок
  Seek(f, filesize(f));
  if  IOResult = 0 // если операция завершилось успешно
    then Button1.enabled := True
    else MessageDlg('Файл данных не найден', mtInformation, [mbOk], 0);
end;



procedure TForm1.Button1Click(Sender: TObject);
var sotr: Tsotr;
begin
with Sotr do
fam:=Edit1.Text;
name:=Edit2.Text;
otch:=Edit3.Text;
hb:=DateToStr(DateTimePicker1.DateTime);
dol:=ComboBox2.Text;
otd:=ComboBox1.Text;
case RadioGroup1.ItemIndex of
0:tip:=stat;
1:tip:=sovm;
end;
write(f,sotr);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

end. 


вот мне выдает ошибку в этом месте: Seek(f, filesize(f)); , что мне исправить или переписать чтоб не было ошибки? заранее благодарен