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

Add(MainForm,2721443,343,210)
{
 Left=20
 Top=105
}
Add(InlineCode,16049232,287,161)
{
 VarPoints=#11:GetAnyPopup|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses Windows,Kol,Share,Debug;|0:|4:type|29:  THiAsmClass = class(TDebug)|9:   public|47:    procedure GetAnyPopup(var d:TData; I:word);|6:  end;|0:|14:implementation|0:|34:procedure THiAsmClass.GetAnyPopup;|5:begin|38:  dtInteger(d, integer(GetTickCount));|4:end;|0:|4:end.|
}
Add(Timer,926414,231,210)
{
 Interval=200
 link(onTimer,6590758:doData,[])
}
Add(DoData,6590758,287,210)
{
 link(onEventData,2721443:doCaption,[])
 link(Data,16049232:GetAnyPopup,[])
}