fileread 读record文件 字符部分老是显示空白 求高手解答

Question

写文件的代码
  yy=record
  i:integer;
  v:string;
  b:word;
  end;
  .....
var
  Form1: TForm1;
  y:yy;
procedure TForm1.Button1Click(Sender: TObject);
var
 h:integer;
begin
 h:=fileopen('.\db.db',fmOpenReadWrite or fmShareDenyNone);
 y.i:=10;
 y.v:='yaohaming';
 filewrite(h,y,sizeof(yy));
 fileclose(h);
end;
读文件的程序
type
  yy=record
  i:integer;
  v:string;
  b:word;
  end;
var
  Form1: TForm1;
  y:yy;
procedure TForm1.Button1Click(Sender: TObject);
var
  h:integer;
begin
  h:=fileopen('.\db.db',fmOpenRead);
  fileread(h,y,sizeof(yy));
  showmessage(y.v);
  fileclose(h);
end;
读文件的程序 读y.i整型能正常读 但读y.v字符型显示空白，并且关闭读文件的程序 地址报错 何解 求高手指点一二呀