var
Buf :Array[0..1023] of byte;
  filename_full: string;  //文件路径
  fs: TFileStream;      //文件流
begin
    openfile_d.Execute ;
    if(openfile_d.FileName <> '') then
    begin
    E_filename.Text :=openfile_d.FileName ;
    filename_full:=openfile_d.FileName ;   //同时赋值给全局字符变量 携带打开的文件名
    fs:=TFileStream.Create(filename_full,fmOpenRead ,fmShareDenyNone) //以只读方式打开
   // E_back_yes_sim.Text := StrToInt64Def(fs.Size);
    //fs.ReadBuffer(Buf,SizeOf(Buf));
    end
end;
问什么后两句出错啊，请明白的指点一下。

怪了。我第一遍也是这么写的出错。