Add(MainForm,7880027,91,98)
{
 Left=20
 Top=105
 Width=504
 Height=446
 BorderStyle=3
 link(onCreate,5738059:doEnumKeys,[])
}
Add(Registry,5738059,140,119)
{
 Key="CLSID"
 Point(doEnumKeys)
 Point(onEnumKey)
 link(onEnumKey,12659907:doStrCat,[])
}
Add(ListBox,15968636,483,203)
{
 Left=5
 Top=5
 Width=485
 Height=380
 TabOrder=1
 DataType=1
 Sort=0
 link(onClick,3303332:doText,[])
}
Add(Registry,9660688,434,203)
{
 NotEmpty=1
 link(onRead,15968636:doAdd,[])
}
Add(Registry,15056806,287,189)
{
 Point(doExistsKey)
 Point(onExistsKey)
 link(onExistsKey,12510956:doEvent,[])
}
Add(StrCat,13156511,385,203)
{
 Str2="\ProgID"
 link(onStrCat,9660688:doRead,[])
 link(Str1,890290:Var3,[(391,177)])
}
Add(StrCat,12659907,189,126)
{
 Str1="CLSID\"
 link(onStrCat,13340177:doValue,[])
}
Add(Memory,13340177,238,126)
{
 Default=String()
 link(onData,5407421:doStrCat,[(279,132)(279,169)(81,169)(81,209)])
}
Add(StrCat,3393488,238,203)
{
 Str2="\ToolboxBitmap32"
 link(onStrCat,15056806:doExistsKey,[])
 link(Str1,890290:Var2,[])
}
Add(IndexToChanel,12510956,336,196)
{
 link(onEvent2,13156511:doStrCat,[])
}
Add(Edit,3303332,532,210)
{
 Left=10
 Top=395
 Width=480
 TabOrder=1
 Text=""
}
Add(GetDataEx,890290,231,168)
{
 link(Data,13340177:Value,[])
}
Add(Registry,395761,140,189)
{
 Point(doExistsKey)
 Point(onExistsKey)
 link(onExistsKey,12737373:doEvent,[])
}
Add(StrCat,5407421,91,203)
{
 Str2="\Control"
 link(onStrCat,395761:doExistsKey,[])
}
Add(IndexToChanel,12737373,189,196)
{
 link(onEvent2,3393488:doStrCat,[])
}