Delphi内存拷贝与记录到另一个记录

TypeA = record
  value1 : word;
  value2 : word;
  value3 : word;
  end;

TypeB = record
  b1 : byte;
  b2 : byte;    
  end;

我有两个记录TypeA和TypeB.例如,我发现TypeA记录中的数据属于TypeB记录.注意：TypeA具有更长的数据长度.

问题：如何复制TypeA内存并将其放在TypeB记录中？

CopyMemory(@TypeA,@TypeB,Length(TypeB))

当我尝试CopyMemory并得到一个错误(无法比较的类型).

PS: I don’t want to copy or assign it like below.

TypeB.b1 := TypeA.value1 && $FF;

TypeA and TypeB are just example records. Most of thecases,record TypeA and TypeB may contain multple records and it
will be harder to allocate form TypeA and assign to TypeB record.

提前致谢

—-加法问题：

有没有办法将Delphi记录复制到Byte数组以及如何？如果有,

> TypeA记录到字节数组
>字节数组到B类

这个逻辑会起作用吗？