如何进行结构的转换和复制

可以采用下面的方法，但是这是极不安全的。
type
TA=record
i:integer;
b:integer;
end;
type
TB=record
i:integer;
b:byte;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
pa,pb:^byte;
a:ta;
b:tb;
i:integer;
begin
a.i:=100;
a.b:=200;
pa:=@a;
pb:=@b;
for i:=1 to sizeof(b) do
begin
pb^:=pa^;
inc(pb);
inc(pa);
end;
showmessage(inttostr(b.i)+' '+inttostr(b.b));
end;