FData := ReadMTData(_data,_data_Data);

procedure THIMT_MultiMem._work_doClear;
begin
  FreeData(@FData);
  dtNull(FData);
//  _hi_CreateEvent(_Data,@_event_onData);
end;[/code]А вот старая
procedure THIMT_MultiMem._work_doClear;
var i:integer;
begin
  for i:=0 to l.count-1 do dispose(PData(l.items[i]));
  l.clear;
end;[/code]И где там событие при очистке? Читаем описание точки 
onData=Событие происходит после сохранения MT-данных, и выдает их копию в поток|2|[/code]Какие могут быть данные после очистки, и как можно выдавать событие сохранения на событие очистки?
Из-за изобретателя этого событи теперь приходится ремарку ставить или фильтр на выходе

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;