просто _Data это единственое что передает

procedure _work_doRead(var _Data:TData; Index:word);

procedure THIRegistry._work_doRead;
var dt:TData;

res := ReadValue(_Data,dt);

Index как я понял не идет никуда...

есди идет только _Data значит в нем неск точек?