// Вместо этого:
//SetLength(BufferRd, FStat.cbInQue);
// Это:
if FStat.cbInQue > Length(BufferRd) then SetLength(BufferRd, FStat.cbInQue); // Экономим перераспределение памяти

// Вместо этого:
//ReadStr := BufferRd + #0;
//SetLength(ReadStr, BytesTrans);
// Это:
ReadStr := Copy(BufferRd, 1, BytesTrans);