如何将记录转换为字节数组并在delphi中提取值？

i am using the move command its working for one byte to string conversion for record values,but when i add more values it displays garbage value. here is the codei am using the move command its working for one