957             i:= Pos(',', s);

   957             i:= Pos(',', s);

   958             Maxcnt:= StrToInt(Trim(Copy(s, 1, Pred(i))));

   958             Maxcnt:= StrToInt(Trim(Copy(s, 1, Pred(i))));

   959             Delete(s, 1, i);

   959             Delete(s, 1, i);

   960             if (Maxcnt < 1) or (Maxcnt > MAXTHEMEOBJECTS) then

   960             if (Maxcnt < 1) or (Maxcnt > MAXTHEMEOBJECTS) then

   961                 OutError('Broken theme. Object''s max. count should be between 1 and '+ inttostr(MAXTHEMEOBJECTS) +' (it was '+ inttostr(Maxcnt) +').', true);

   961                 OutError('Broken theme. Object''s max. count should be between 1 and '+ inttostr(MAXTHEMEOBJECTS) +' (it was '+ inttostr(Maxcnt) +').', true);

   963             ChecksumLandObjectImage(Mask, false);

   964             ChecksumLandObjectImage(Mask, false);

   964 

   965 

   965             inrectcnt := 0;

   966             inrectcnt := 0;

   966 

   967 

   967             for ii := 1 to Length(S) do

   968             for ii := 1 to Length(S) do