delphi 用record结构读取记录文件的问题

type //曲线分析

  TQxfx = record

    TTName :  string[128];

    ZName :   string[128];

    Xl30150 : Real;

    sjl30150 : Real;

    xl150170 : Real;

    sj150170 : Real;

    hhxv     : Real;

    hl217sj  : Real;

    fzwd     : Real;

    fzwdc    : Real;

    jwxl     : Real;

    jwsj     : Real;

 end;

type

  TFileSysTem = record

    qxfx : TQxfx;

 end;

procedure TFormTest.Open1Click(Sender: TObject);

var

  Fsys:TFileSysTem;

  F : File of TFileSysTem;

begin

  Fsys.qxfx.TTName:= 'aa33333333333333333333';

  AssignFile(f,'c:\1.dat');

  Rewrite(f);

  write(f,fsys);

  CloseFile(f);

end;

procedure TFormTest.read1Click(Sender: TObject);

var

  ss,Fsys:TFileSysTem;

  F : File of TFileSysTem;

  i:Integer;

begin

  AssignFile(f,'c:\1.dat');

  Reset(f);

  if not Eof(f)then begin

   read(f,fsys);

   edit1.Text :=fsys.qxfx.TTName;

   CloseFile(f);

  end;

end;