var src: UTF8String; dst: array [0..1024] of byte;begin src := 'abcd汉字'; move(src[1], dst, length(src));end;
