При современных безразмерных дисках наверное лучше делать как-то так :
Add(MainForm,10787923,462,231)
{
Width=444
Height=360
Point(onClose)
}
Add(FileSearch,2948156,721,231)
{
Include=2
Point(onOtherFiles)
Point(Attr)
link(onSearch,1311984:doAdd,[])
}
Add(DriveBox,14345992,518,231)
{
Left=5
Top=35
Width=185
Height=21
BackSlash=0
link(onSelect,16376473:doEvent1,[])
}
Add(ListBox,1311984,819,231)
{
Left=15
Top=155
Width=385
Height=145
}
Add(Hub,11065998,672,224)
{
link(onEvent1,1311984:doClear,[(796,230)(796,244)])
link(onEvent2,2948156:doSearch,[])
}
Add(Browse,9541274,609,224)
{
Point(doDefaultFolder)
link(onBrowse,11065998:doEvent1,[])
}
Add(Hub,16376473,560,231)
{
link(onEvent1,9541274:doDefaultFolder,[])
link(onEvent2,9541274:doBrowse,[(592,244)(592,230)])
}