function TdynArray.getWord(index: cardinal): word;
var
  lTemp: PWord;
begin
  lTemp := data;
  Inc(lTemp, index);
  result := lTemp^;
end;