Add(MainForm,6230592,126,189)
{
 link(onCreate,3982638:doEvent1,[])
}
Add(WebBrowser,4434019,301,196)
{
 Top=70
 Width=392
 Height=198
 URL=""
}
Add(DriveBox,12581342,217,196)
{
 Width=392
 Height=21
 Align=2
 BackSlash=0
 Disk="c"
 Point(doDisk)
 link(onSelect,3164098:doWork2,[])
}
Add(HubEx,3164098,273,196)
{
 link(onEvent,4434019:doNavigate,[])
}
Add(DoData,1776658,217,245)
{
 Data=String(E)
 link(onEventData,3164098:doWork3,[(277,251)])
 link(Data,12581342:Disk,[])
}
Add(Hub,3982638,175,203)
{
 link(onEvent1,12581342:doDisk,[])
 link(onEvent2,1776658:doData,[(203,216)(203,251)])
}

#pas
  for Ch := 'A' to 'Z' do