关于Ado的，在线等待

Question

if OpenDialog1.Execute then
  begin
    MyFile:=TFileStream.Create
    (OpenDialog1.FileName,fmOpenRead);
    with adotable1 do
      begin
        Open;
        Stream := TADOBlobStream.Create(adotable1.FieldByName('word') as Tblobfield, bmWrite);//系统提示这句有问题的。
        {‘Doc’为BLOB字段名}
        MemSize := MyFile.Size;
        Inc(MemSize);
        Buffer := AllocMem(MemSize);
        try
          Stream.Seek(0, soFromBeginning);
          myFile.Read(Buffer^,MemSize);
          Stream.Write(Buffer^,MemSize);
        finally
          MyFile.Free;
          Stream.Free;
        end;
  Docole.CreateObjectFromFile
  (OpenDialog1.FileName,False);
  Docole.Run;请问这句话有什么问题？总是提示‘Invalid class typecast'

Answer 1

现在有出现了新的问题。当我退出应用程序时。
系统会出现如下问题：EInvalidpoointer 'Invalid pointer qperation'