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

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