procedure dll_Event(var _Data:TData; Index:word; Param:pointer);
var dt:TData;
begin // xxx: ????

dt.ldata := nil; {? Как это чудо вообще может на что-то влиять }

dt.data_type := _data.data_type;
dt.idata := _data.idata;
dt.sdata := pchar(@_data.sdata[1]);
dt.rdata := _data.rdata;
THIUseHiDLL(Param)._Dll_Event(dt,Index);
end;