Add(MainForm,2953706,112,105)
{
 Width=710
 Height=423
 Position=1
}
Add(Button,4450361,196,315)
{
 Left=245
 Top=125
 Width=75
 Caption="Перенести"
 link(onClick,2824456:doMove,[])
}
Add(FileTools,2824456,357,315)
{
 link(onEnd,13531716:doMessage,[])
 link(FileName,6146729:Text,[])
 link(NewFileName,12526241:Text,[(370,299)(391,299)])
}
Add(Edit,6146729,357,182)
{
 Left=110
 Top=50
 Width=320
 Text=""
 link(onChange,4952035:doPart,[])
}
Add(Edit,12526241,385,252)
{
 Left=110
 Top=85
 Width=320
 Text=""
}
Add(Button,6490835,154,182)
{
 Left=40
 Top=50
 Caption="от куда"
 link(onClick,7287262:doExecute,[])
}
Add(Button,2622055,154,252)
{
 Left=40
 Top=85
 Caption="куда"
 link(onClick,12648599:doBrowse,[])
}
Add(ODialog,7287262,217,182)
{
 link(onExecute,6146729:doText,[])
}
Add(Browse,12648599,217,252)
{
 link(onBrowse,7428601:doStrCatDlm,[])
}
Add(FilePartElm,4952035,420,182)
{
 Point(Part)
}
Add(StrCatDelim,7428601,287,252)
{
 Delimiter="\"
 link(onStrCatDlm,12526241:doText,[])
 link(Str2,4952035:Part,[(300,233)(426,233)])
}
Add(Message,13531716,462,315)
{
 Message=""Перенесено" успешно :)"
}