procedure THIMT_MultiMem._work_doClear;
var i:integer;
begin
  FreeData(@FData);
  dtNull(FData);
  for i:=0 to High(l) do l[i] := @_Data_Empty;
  //_hi_CreateEvent(_Data,@_event_onData);
end;