//[function TStrList.Last]
function TStrList.Last: String;
begin
  if Count = 0 then
    Result := '
  else
    Result := Items[ Count - 1 ];
end;

Add(StrList,2546815,392,119)
{
 @Hint=#26:Поиск наибольшего значения|
 Strings=#13:Hard DiskB:45|13:Hard DiskC:24|13:Hard DiskD:60|13:Hard DiskE:15|13:Hard DiskF:55|
 Point(doSort)
}
Add(ArrayEnum,4197338,392,196)
{
 link(onItem,1980317:doSplit,[])
 link(onEndEnum,9031935:doRead,[(445,209)(445,321)])
 link(Array,3620002:Var1,[(398,184)])
}
Add(Button,7435302,280,196)
{
 Left=95
 Top=20
 link(onClick,15510954:doEvent1,[])
}
Add(If_else,10617334,511,196)
{
 Type=2
 link(onTrue,12567218:doEvent1,[])
 link(Op2,16492831:Value,[(524,184)(687,184)(687,236)(643,236)])
}
Add(Memory,16492831,637,196)
{
 Default=Integer(0)
}
Add(Hub,12567218,560,196)
{
 link(onEvent1,16492831:doValue,[])
 link(onEvent2,6205179:doValue,[(592,209)(592,265)])
}
Add(Memory,6205179,609,259)
{
 Default=Integer(0)
 Point(Data)
 link(Data,4197338:Index,[(615,243)(405,243)])
}
Add(Hub,15510954,322,196)
{
 link(onEvent1,8571544:In,[(350,202)(350,181)])
 link(onEvent2,4197338:doEnum,[(375,209)(375,202)])
}
Add(LineBreak,15867089,595,203)
{
 link(Out,16492831:doClear,[])
 Primary=[8571544,-238,-28]
}
Add(ArrayRW,9031935,490,315)
{
 link(onRead,13256994:doText,[])
 link(Array,3620002:Var3,[(496,184)])
 link(Index,6205179:Value,[(503,303)(615,303)])
}
Add(GetDataEx,3620002,406,179)
{
 link(Data,2546815:Array,[])
}
Add(StrPart,1980317,455,196)
{
 Char=":"
 link(onSplit,10617334:doCompare,[])
}
Add(Label,13256994,560,315)
{
 Left=25
 Top=60
 Width=185
 Height=40
 Font=[MS Sans Serif,20,0,0,1]
 AutoSize=1
}