Add(MainForm,8240368,175,224)
{
 Width=473
 Height=123
 Caption="str_pad"
 Position=1
}
Add(Edit,15449854,308,168)
{
 Left=10
 Top=25
 Width=120
 Text="nesco"
}
Add(Label,6462822,308,126)
{
 Left=45
 Top=5
 Caption="input"
 AutoSize=1
 Alignment=2
}
Add(Edit,3037108,350,168)
{
 Left=135
 Top=25
 Width=120
 Text="--=="
}
Add(Label,5437071,350,126)
{
 Left=170
 Top=5
 Caption="pad_string"
 AutoSize=1
 Alignment=2
}
Add(Edit,1263994,392,168)
{
 Left=260
 Top=25
 Width=60
 Text="13"
 DataType=1
}
Add(Label,5739334,392,126)
{
 Left=265
 Top=5
 Caption="pad_length"
 AutoSize=1
}
Add(ComboBox,2174022,259,168)
{
 Left=330
 Top=25
 Width=120
 Height=21
 Strings=#12:STR_PAD_LEFT|13:STR_PAD_RIGHT|12:STR_PAD_BOTH|14:STR_PAD_MIRROR|
 ReadOnly=0
 Point(Index)
}
Add(Label,1573207,259,126)
{
 Left=365
 Top=5
 Width=48
 Height=17
 Caption="pad_type"
}
Add(Button,1487632,175,266)
{
 Left=330
 Top=55
 Width=120
 TabOrder=-1
 Caption="Result"
 link(onClick,8508884:doEvent1,[])
}
Add(Edit,6448544,413,266)
{
 Left=10
 Top=55
 Width=310
 Font=[Courier New,11,1,0,204]
 Text=""
}
Add(StrPad,6741064,343,273)
{
 Point(doPadType)
 link(onStrPad,6448544:doText2,[])
 link(String,15449854:Text,[(349,264)(314,264)])
 link(PadString,3037108:Text,[])
 link(PadLength,1263994:Text,[(363,208)(398,208)])
}
Add(DoData,12216993,273,280)
{
 link(onEventData,6741064:doPadType,[])
 link(Data,2174022:Index,[])
}
Add(Hub,8508884,238,266)
{
 link(onEvent1,12216993:doData,[(263,272)(263,286)])
 link(onEvent2,6741064:doStrPad,[])
}

// CORRECT
while (LongExpression1 or LongExpression2) do 
begin
  // DoSomething
  // DoSomethingElse;
end;

// CORRECT 

if ((X = Y) or (Y = X) or
  (Z = P) or (F = J) then
begin
  S := J;
end;