function THIMultiElementEx.TestEvent;
begin
Result := true;
while assigned(G) do begin
if F=G.Hnd then begin
_debug('Self destruction is not allowed !!!');
exit;
end;
G := G.Prv;
end;
Result := false;
end;