Add(MainForm,2953706,98,112)
{
 Caption="Пример использования StrPart"
}
Add(Edit,12980779,154,112)
{
 Left=160
 Top=45
 Width=80
 Text="HiAsm / FPC"
}
Add(Button,517459,98,168)
{
 Left=170
 Top=95
 link(onClick,5110783:doSplit,[])
}
Add(Label,1634708,210,168)
{
 Left=5
 Top=155
 Width=380
 Height=36
 Font=[MS Sans Serif,20,0,0,1]
 Caption="!"
 AutoSize=1
 Alignment=2
}
Add(StrPart,5110783,154,168)
{
 Char="/"
 link(onSplit,1634708:doText,[])
 link(onPart,7430079:doText,[(202,181)(202,223)])
 link(Str,12980779:Text,[])
}
Add(Label,7430079,210,217)
{
 Left=5
 Top=215
 Width=382
 Height=36
 Font=[MS Sans Serif,20,0,0,1]
 Caption="!"
 AutoSize=1
 Alignment=2
}