Отсутствуют данные при отправке данных из ClientSocket (Mobile) в ServerSocket (Server)

Я использую FireMonkey в Delphi 10.1 Berlin для разработки мобильного клиентского приложения Android и использую VCL в Delphi 10.1 Berlin для разработки серверного приложения Windows.

В мобильном приложении я использую TIdTCPClient для отправки следующей записи:

PSampleReq = ^TSampleReq ;
TSampleReq = packed record
  Value1: array [0..10] of Char;
  Value2: array [0..59] of Char;
  Value3: array [0..40] of Char;
  Value4: Int64;
  Value5: array [0..9] of Char;
  Value6: array [0..9] of Char;
  Value7: Integer;
end;

Я заполнил пакет данными и отправляю пакет, используя следующий код:

FIdTCPClient.IOHandler.Write(RawToBytes(TSampleReq,SizeOf(TSampleReq)));

При чтении данных в приложении "Сервер" я не могу прочитать поля Value5, Value6 и Value7. Ниже приведен код, который считывает данные:

Move(tyTIDBytes[0], SampleReq, SizeOf(TSampleReq));

Для получения данных, которые отправляются из клиентского сокета, я использовал TIDTcpServer и обработал приведенный ниже код в методе Execute:

TServerRecord = packed record
PointerMessage : TIndyBytes;
ClientSocket   : TIdTCPConnection;
end;

Var    
ReceivedIDBytes: TServerRecord;
begin
if not AContext.Connection.IOHandler.InputBufferIsEmpty then
begin
AContext.Connection.IOHandler.InputBuffer.ExtractToBytes(ReceivedIDBytes.PointerMessage.tyTIDBytes) ;
ReceivedIDBytes.ClientSocket := AContext.Connection;
MessageProcessorThread.ProcessMessageQueue.Enqueue(ReceivedIDBytes);
end;

После этого я обрабатываю данные из очереди и метод обработки, который я упомянул ниже:

var
InputRec: TServerRecord;
begin
InputRec := DBWorkerThread.DBWorkerQueue.Dequeue;
MessageHeaderPtr := @InputRec.PointerMessage.tyTIDBytes[0];
iHMMessageCode := StrToIntDef( Trim(MessageHeaderPtr^.MessageCode), UNKNOWN_MESSAGE_CODE);
case iHMMessageCode of
1001:
begin
Move(InputRec.PointerMessage.tyTIDBytes[0], SampleReq, SizeOf(TSampleReq));
end;
end;

И в этом я не могу прочитать поля Value5, Value6 и Value7.

С помощью приведенной ниже ссылки я нашел оптимизированную технику и то, как я могу правильно обрабатывать пакеты, не пропуская ни одного пакета. Пожалуйста, помогите мне решить эту проблему.

Отправка правильного размера записи через сокет