procedure GetAnyPopup(var data:TData; index:word);
begin
  dtInteger(integer(AnyPopup));
end;