Add(MainForm,3245018,364,140)
{
 Width=360
}
Add(Button,5761700,364,252)
{
 Left=60
 Top=80
 Width=105
 Caption="Upload!"
 link(onClick,9312969:doExecute,[])
}
Add(Label,9811927,406,182)
{
 Left=15
 Top=45
 Width=49
 Height=17
 Caption="Filename:"
}
Add(HTTPClient,10245362,651,252)
{
 Method=1
 FileField="userfile"
 Point(UploadFile)
 link(URL,15065117:Text,[])
 link(onFinish,13869187:doEvent1,[])
 link(UploadFile,1021530:Var3,[(671,243)(643,243)(643,299)])
 AddHint(42,93,44,13,Method)
 AddHint(42,114,48,13,FileField)
}
Add(Label,2078934,364,182)
{
 Left=20
 Top=10
 Width=29
 Height=17
 Caption="URL:"
}
Add(Edit,15065117,651,196)
{
 Left=55
 Top=5
 Width=275
 Text="/upload.php"
}
Add(Memo,12695097,763,238)
{
 Left=10
 Top=110
 Width=325
 Height=150
}
Add(ODialog,9312969,413,252)
{
 Title="Выбрать файл для отправки на сервер"
 FileName=""
 link(onExecute,15520161:doEvent1,[])
}
Add(FileTools,3028183,602,252)
{
 link(onEnd,10245362:doLoadString,[])
 link(FileName,3529944:Text,[])
}
Add(Edit,3529944,602,196)
{
 Left=65
 Top=45
 Width=265
 Text="hiasm.txt"
}
Add(Hub,15520161,462,252)
{
 link(onEvent1,3529944:doText,[(487,258)(487,202)])
 link(onEvent2,7678784:doExecute,[])
}
Add(SDialog,7678784,504,259)
{
 Title="Сохранить под новым именем и отравить"
 FileName="rtf253258468.ccd"
 link(onExecute,11909346:doValue,[])
}
Add(Memory,11909346,553,259)
{
 link(onData,3028183:doCopy,[])
}
Add(FileTools,13748380,553,322)
{
 link(FileName,1021530:Var2,[])
}
Add(Hub,13869187,707,259)
{
 link(onEvent1,12695097:doText,[])
 link(onEvent2,13748380:doDelete,[(732,272)(732,307)(543,307)(543,342)])
}
Add(GetDataEx,1021530,553,294)
{
 link(Data,11909346:Value,[])
}