아래처럼 TCP수신데이터를 RcvData에 직접 복사하고 싶은데 방법을 잘 모르겠네요.
고수분들의 가르침을 부탁드립니다.
Incompatible Type.......

<!-- CodeS-->
type TRcvData = packed record
  shhp:array[0..9] of char;
  hpcrc:Word;
  start:Byte;
  rsense:Byte;
  rdlen:Word;
  seq:Word;
  fn:Byte;
  utime:DWord;
  rcontent:TByteArray;  //가변
end;

var
    RcvData: TRcvData;

procedure TWSD_Main_F.IdTCPServerExecute(AThread: TIdPeerThread);
var
  Msg : string;
  i : integer;
begin
  Msg := AThread.Connection.CurrentReadBuffer;

  //현재는 수신데이터를 Hex로 변환하여 잘라 사용하고 있슴
  for i := 1 to length(Msg) do
      resp := resp + IntToHex(Byte(Msg[i]),2);
  
  //아래는 ByteArray로 만들고 RcvData에 복사하려니까 에러가.....
  Move(resp, ByteArr[0], Length(resp));
  Move(ByteArr[0], RcvData, Length(RcvData));
end;

<!--CodeE-->