да это и так есть...
------------ Дoбавленo в 17.11:
procedure _work_doRead(var _Data:TData; Index:word);

скажи что передает _Data и как ее поменять в самой функции