var
  ABytes: array[0..7] of byte;
  AData: String;
begin
  AData := '12345678';
  Move(AData[1], ABytes[0], 8);
end;

음.. 님이 쓰신 글 :
: byte array에 스트링을 한번에 넣고 싶은데 -_-;
:
:  타입캐스팅을 어떻게 해야하는지... 모르겠습니다 -_-;
:
:  array[0..7] of byte 에 한번에 넣는 방법은 없나요? -_-;