title: Invalid typecast: convert record to tobject on 64-bit platform
body: <p>it works on 32-bit platform.but not 64-bit
  here is the exzample</p>
  
  <pre><code>  TVerbInfo = packed record
      Verb: Smallint;
      Flags: Word;
    end;
  
  var
    VerbInfo: TVerbInfo;
    strList : TStringList;
    verb : Smallint;
    flags : Word;
  begin
    strList := TStringList.create();
    .....
    verbInfo.verb := verb;
    verbInfo.flags := flags;
    strList.addObject('verb1',TObject(VerbInfo));  //invalid typecast happened here
  end;
  </code></pre>
  
  <p>can anyone help me? thank you very much</p>