split

const
  DIST = 1; // Distance for splitting the points (black colors from bitmap)?
  EXAMPLE = 1; // 1-5?

var
  TPA: TPointArray;
  ATPA: T2DPointArray;
  bmp: TSCARBitmap;
  h, i, t: Integer;
  sizes: TIntArray;

{==============================================================================]
  Explanation: Returns all the color points from bitmap as TPointArray.
               Result is based on Row-by-Row.
[==============================================================================}
function GetBitmapColorTPA(bmp: TSCARBitmap; color: Integer): TPointArray;
var
  client: TSCARClient;
begin
  client := SetClient(TSCARBitmapClient.Create(bmp));
  FindColorEx(Result, 0, 0, 0, (bmp.Width - 1), (bmp.Height - 1));
  SetClient(client).Free;
end;

procedure Test;
begin
  DebugBitmap(bmp);
  TPA := GetBitmapColorTPA(bmp, 0);
  t := GetSystemTime;
  ATPA := SplitTPA(TPA, DIST);
  WriteLn('SplitTPA(TPA, ' + IntToStr(DIST) + ') took ' + IntToStr(GetSystemTime - t) + ' ms.');
  WriteLn('ATPA size: ' + IntToStr(Length(ATPA)));
  h := High(ATPA);
  for i := 0 to h do
  begin
    TIAAppend(sizes, Length(ATPA[i]));
    bmp.SetPixels(ATPA[i], Random(16777216));
  end;
  SortTIA(sizes);
  WriteLn('ATPA group sizes: ' + TIAToStr(sizes));
  DebugBitmap(bmp);
end;

procedure BitmapSetup;
begin
  case EXAMPLE of
    1:
    bmp := TSCARBitmap.Create('deNrt3UGSZEexhtE02CT7H7GLZoBZW1l1d' +
      'SrzZtwI/93PGfGEgK64Hh6f9IT477//869fAAAAAAAAAAAAAAAAAAD08riBUwU' +
      'AAN0O0H6XOlIAdDtA8S1qnQKg2+HsPXImzZbM437uFwC6HU7doCEnE/fvXDDaL' +
      'VUAdDvodt0eEe2WKgC6fUjkUPP6GGndbmAA0O25H8I5ZP2BjGui23U7ALp9ZqM' +
      '6Pd3uC+p2exXQn45It0fkjQP8fQj1j8I10e26HUC363bd7kx0u27X7fYqoNvR7' +
      'ZXbxhnqdt2u2+1VQLej2yPCZvIxfv3Zi5+Da6LbdTuAbtftut2x6HbdrtvtVUC' +
      '3o9vrV83Yk9Ttul2326tUG29ngm7X7aJduv/jT135EFwT3a7baVkFr/920O26X' +
      'dKM7fY/f+SWf8rdbmmwZHQ7A98mo4hu1+0WoyWp27E8zQz+hBJWqKWn23OjfdS' +
      'SfDI89UfL7bA8dTtz3iYDSftuLzvk3hfdXmT83vr9DRK6HXQ7ul23e18KjkGzU' +
      '/18VAwbuh1OvU0GEt2u2y3GCXty+YQYOXQ77H+ezCSNu73y/2i79yXoD9zanK0' +
      '/345ut1fR7Vihul236/auAW/GGNvtThvdjm7X7bo9KNp7r8rnw2OuGJ7ujhrdj' +
      'm7X7dHdnvILXv7v33tbxv392/H0iHamdbuxpHG3f/2PLjjqul2363Yom+6Ol4L' +
      'pbjLR7bq9Zbd7zT98O7wOjK13R4puR7frdt3ufQx6PnwdgFLpbi2j23W7bke3A' +
      'xRPdzsZ3a7bdTu6HfjbkncUx4/dtyiSZ7p9/x+6Vjt23W4RlU13nwZEiy1d4RM' +
      '4jWpVptu3bZtqJ6/bbSTdDuh2iOsx3b5/vRz/BLrdi6DbgfoPumNBtHe6F+l/j' +
      '+6DfyWPbrcxyqY7oGEsakR7v4w5/kN98h9x9r82q9stDd0O1H/NHQ6Kvc3tqPA' +
      'TXftPOXvaut1bAHvuo1NCt8N9DabbN0T48XPW7d4C0O14yiE9wFz2u9Pd309Gt' +
      '4Nux8zY4Zj/aXeh1M/yyn9ckePV7Xb+L/+bGuh2wp8eR4puz7oL1X6Q5/+Jlox' +
      'uL3uSRgvdjm5HxCb+vLpdt+v2gSdputDt6HYPk27X7bpdt1uPESdpwNDt2OF+K' +
      'N2eFe1Bw6Pb7Xzrce1JmjF0O3a4H0q363bd7gmzHiNO0pgBxde4h8kk6Hbdfmu' +
      '0S3frMegkTRqg2z1Muj0l2lPmp3i3v/JbsB7dHcD+UWW6Xbfr9oPd/v//88ffi' +
      'PUYcZLmDdDtHibdrtvbd/sr/xjrsf5JGjlAt3uYdLtub9ztT/7yGCFkPcadpKk' +
      'DdLuHSbfr9k7d/o9lLt2tx9yTNHhAqTXuYTIJul23f97tr/x9IFWQ9Zh4kmYP0' +
      'O0eJt2u29t0+4t/H0gJZD0Wv/jNHhQnxp/D4CjscD+Ubtftw7t9+e8JdaLdH+9' +
      '4gptdIgcicf1Qul2363bdTu9ujxtgB4Vu73oZdbt5SDlGL061boc53Z51s5wS1' +
      'bp97BXW7ZaGbtftrgD2myjV7eh23a7bvWu6XbeDbu+9JXT72Euk2yWuH0q3t7n' +
      '4uh3E54T/FoxuH3uDdLunXLfr9h4Xv81H91phvw2vUyeDbq8/nP7kgG6fcIyeG' +
      '1cA+00D6HZ0u27X7d61sd3e6aN7rbDfhjeqM0G35/4X96btZ7fSn0rqPTOuAPa' +
      'bdNft6Hbdrtu9azP/6k3dDuKzfQzodjdIt9f/TObWu6bbm70y3k3sN+mu27k8A' +
      '7pdt6PbQ3/2lh/dvcB+G54EzgHdnvhfSDG33rXeu3fm++LdxH6T7rqdD7++bgf' +
      'dnnIIvT+6e4H9ptsdgltT6mO5oaDb6/8ZBt1efP7tEN2u26XR8Pui20G3FzyTO' +
      'R/d/Fvjvq+/vt05uCylvppLCrrdR9ft5tz31QO6Hd1uONHt6Hbdjm5PnCKn4bL' +
      'odsMJ6Hbdjm6vP0IOxH3x17cbTkC363Z0e/35cSZuTbXv5cIC1rJut8Z9Xw2g2' +
      '0sdcsrXH3idLVVAt+t2Bna7oxt7p1KOotovzLUFxIxut8Z9X6+/bi9+pLpdtwN' +
      'ixmqyxn1fT79ut2re/WXrdgDd7jGlfbc7uoF3KvdkSn0g9xcQM7rdGvd9Pfq6P' +
      'eUkdbsrDIgZ3W6N+75efN2u23W7hQ/odt3O8G53dDPvVPr56HYLH9Dtuh1vvXP' +
      'T7brdXQbQ7bqdOgMjOHV7s79URrcD6HbdTrOBEZzuVL9unzmTFj6g23U7jQfG1' +
      'XCn7jjJ479+3Q6g23U7nQbG1XCndLtuB9Dtup3iA+NquFM3HWaFX7xuB9Dtuh1' +
      '3R7c3vlPRx1Lk0+h2QHtYTbDq7uhMaXTTkbp6uh2w/awmWHV3NJI0uuNgXTrdD' +
      'th+VhMsvDsaSRqtPWF3TbcD6HZYfnc0kjRCt9N+6pwGuh3S745GkkbodqaNnMN' +
      'Bty/c1T4xe6bRgYBux7w5LnS7bqf49XEUoNsxb4YE3a7bAdDtFBwDM4Nu1+0A6' +
      'HY6Rbv5Qbe7GgBeLt1lBmQ8Jl+3mwcHCGg2j4sZMFrodt0edLbOB9BstqIZMGb' +
      'odt2ecqrOCtBs9qEZMGnodt0ecaRODNBslqEZMGnodt0esfecG6DZfAUzYNLQ7' +
      'bpdtwOAbvfgottZsvScHgC6Xa6j23W7bgeAOd3ug6Lb3QXdDoAnTKuj29HtACD' +
      'dPZ3odnQ7AHguQbfzy99PBgCWvpWOC92ObgeAgs+lw0G3UzbdnRgAw99KB4Jup' +
      '366OysAAN2OSQAAQK1xbR6cCQCAbgcAgE86VrfrdgAAIiJWt+t2AAAiCla363Y' +
      'AAHS7bgcAgCX5qtvNBgAAEfmq2wEAoH676nYAbt2073KkgHU6cEN6HQB0O4Bu1' +
      '+0A6HaAnbtUtwOg2wGCtmWz/el1ANDtABOiPX2Leh0AdDvAnGjPXaReBwDdDqD' +
      'bdTsAnptVB2iWwJ7U7V4HAN0ecXrGCaxKf3271wFAt0ecnokCq1K3ex0AdHvE6' +
      'aX8mg0/FEz3xudjhAB0e8HTS/kFm16OMG+6Hci9zs5Ht/c7vYhfrelFt5caud7' +
      '30YMLLZeb09Pt/oB0zy/V9KLbdbtuBxFog+l2p1fkNBp/LAGs2ztNnX0IWGXo9' +
      'sl/+Dm8E9DtHjvdDux/Op2zbs+dZ8+obsfg+TMeHlyY9mg6c90eOtU1fxAfC91' +
      'eZ+p0O9DvxXTyut2jfPZ62kLodsei28Hiku66vfdst7meFhEzt4ST0e1ga6l33' +
      'e5dzrqh1hG63cnodsOAaDfVur39kDe4njYSA7eEw9Ht+5ePSqHZE+m76HZP8/7' +
      'raSmh2x2Od9OV8XXKfilPgAnX7WVPaeylE8C6veWweZhMgqnQ7b3fR4Oq2+NGP' +
      'fpu2kvodufj0TQVPpDH0Tzrdt3uBdHtun14CXibTIKR0O29X0azqtuDBt4Lott' +
      '1u7XgRTMJpsI3mvwsGlfmdLu7ptt1u25HE+Ib6XZcedGu27GrTw2bPWwMDIZvN' +
      'ORNNLEUH/sed9N+xqK+PI3WrAfCxfGNvImmmvpjbzXZUeh2a9YD4eL4Rh5Eg03' +
      'xye90Se1nbOlrA2nHeiBcHN/Ig2iwKT75ze6p/Ywtrds9EC6Ob6TbDbYbd/aLx' +
      '82kbseWTtlgNrwmdHF8I6+h2W524279/ffPf8sLaz9jRet2Teji+Ea6vcdsu9T' +
      'R3b7wQ3cdOfsZ+fHuWAoqTeji+EZeQ92u2/25tf1TZz8jP96aTDWlCV0c38hrq' +
      'Nt1e9lu7z149jPyQ7drQhfHNxr19Dceb5d6eLe3Hz/7Gfnx+nBKKU3o4vhGnkL' +
      'drttrdnv7xWU/Y1O9Pp86ShO6OL6Rp1C36/aa3Z61u+xnbCrQhL6RbtftLvXAb' +
      'o9bX/YzNhVoQt9It+t2l3pCt3/91okbzH7GpgJN6Bvpdt3uUg/p9uglZj9jU4E' +
      'm9I10u253qXV7/T1mP2NTgSb0jXS7bnepdXv9bWY/Y1NBxM5x+Lpdt+t23T58o' +
      'dnP2FTgffeB0j+TR8G91u3td5r9jE0F3ncfSLd7FNxr3Y5NhQLB5nFldLvXULf' +
      'rdt2Obreiof3+cc66Xbfr9mY3zpqyn7GiodMWcrC6fc6DOHlsXFjsZ2xpwLug2' +
      '70Iuh3sZ2wqwLug23W71xB0u24H0O1D3sThY+PCYj9jUQPeBd3uOdDtYD9jU+H' +
      'j4l2oOf/eAt0O9jM2Fe/eOMeFbvcs6nZ7EnS7bifoojlAdLuXsfhmcAhgO2FTu' +
      'WW+OLrd41h/JzgHsJqwqdwv3x3d7nHU7bYi6HbdTtzlcrDodu+jsbESsZ/R7UT' +
      'cLMeLbp/8RBob+xD7Gd1O0LVyyOj2ma+ksbEMsZ/R7cRdK+eMbp/2UBobmxD7G' +
      'd1O4p1y1DDqrXRENiEIYN1O7oVy4NGD4Vhc8E433eGAbsemcqGMQYN5uPDP4o5' +
      'njYfXEHQ7NpULZQxyJ+GO35k5N92ZWIOg23U7nW6TY685Cdv+VbS88k7DDgTdr' +
      'tvR7dSMdunu4qffaK8h6HZsKrfJJAyJduk+eQNYgHYg6Hbdjm4nKNql+6htYAH' +
      'agaDbdTu6ndxol+5YgP7bu0gyI2RI0O3odtDtuh3djk2FSRDt0h0L0A4UXZLMC' +
      'KHW7GRjoNvB9tPt6HYMieTQ7ZSadt8X20+3I8mMkCHZNldeLg+Wbpfu2H7WoOi' +
      'SZEbIkOj24WtZJ+h2UKROCd2OIdHt9a+VTtDtoEidErodQ6Lbi18rkaDbQZHqd' +
      'nQ7hmRVbEh375Ru1+1Yevah6JJkRsiQ6PaZ+1ke6HZQpLod3Y4h0e3F75c2mNP' +
      'tPjeKVLcjyYyQIdHtoYvaSY5Kd18cRarbkWRGyJDsDBjtseSiOUDdDopUtyPJQ' +
      'LdXXtpObGa6+/Todt2ObgfdXn97OxzdbgzQ7bod3Q66HYqnu1uDbtft6HY40i1' +
      'GGuku2gHdrtuh2jp6/beDdO8d7e4+6HbdDomvs9lGug+MdhcfdLtuh1L759Z/C' +
      'XT9g9nGf1TrXQPdrtshsUmGhAq8+weqjXe+dw10u26HyhFS4d8Qgh7raWViDED' +
      'i6nbYv3N0O6DbQbdjuTGh3o26B8syHPiVnQ8uCLodzu6fW/8l6HZ0O+h2dDssX' +
      'ESf/z54sCzD9p/YKeGOoNuhbL2banS7T+ybgm7X7VBtI734G/FgWYZjv6+zwjV' +
      'Bt0PNdDfS6Hbf12cF3a7boXi3m2d0u4/ry4Ju1+2g29Ht6HbQ7ej2/QN8/Fdip' +
      'eh2dDt7UsS54bKg27NGt0g8e0ruS3dHim73ZX1c0O26vUfXvfvPbrhEFsuq7+s' +
      'w0e0+q+8Lul23d432/b3nKdHt6HZ0+5HiMj/uC7o9Pdo3J59dqtvR7ZzqEN2O+' +
      '4JuT4/2bdVnl976rZ0kut031e0mHN2u23W7bq+/mpwDut03bfOVPffoduZc5As' +
      '/191HYZ3qdnQ7xwtEt+PWoNsbdPvd6W6d6nZ0OxUKRLfj1qDbdbtu1+3odurnh' +
      '27HxUG36/YP744NA7od3a7b0e3odt0OHix3UHukfGvPPbod3X6k2y1V0O0oWD8' +
      '1uh0XeVWBn/2T7ZYq6HZ2hoduJ6tSdDu9L/KjzN+/3bcA3Y5u1+18+766HRe5W' +
      'rf7HKDbqVkdup2zffI4+j8cg27PTfcKf7LdXhUetoFuR7fr9vbTe+F30+0Muci' +
      'v/ICPc3/bdntVeNgGup2Dd0e3s+c7Lv+ddbtun5nupf4CMytOe9gGuh3drtu7z' +
      'vO1f1a3M+0i//iT2mPodt2ualwc3c7+P4v4418wo9txkZ8MsB2CbtftdoKLo9s' +
      '5VSB3fyCJq9sB3a7baXZrdDsbvubnv49ux0UG3a7bLUPdrttxlfBSg7VpG+h26' +
      'l8Z3Y7bhJcarE3bQLej23U7HiBcZLA2bQPd7r70m38XHN2OiwzWpm63DN0X3Y4' +
      'LhW4HdLtuR7frdlwoWm4qywRr0zbQ7Ry/MhPOwXS5Tej2VRPlfmFt6nbdDrod3' +
      'U7Bi2yfYG3aBroddDseIHQ7WJu6XdVgdZhwU4RuXz5L7hfWpm7X7aDb0e3odrA' +
      '2dbuquXY4LrJuxxQx9qW2YbA2bQPdrtvR7XiAaNPtlgzWpm7X7bod0O2cWsgeC' +
      '6xN20C363bAA4RuB2tTt+t23Q5IXN3usQDdrtt1O4y6IB4gdHvxx8K3RrfrdmN' +
      'pdWBvuwK4CLpdlRl7E2Lh6HbQ7eAZ1e0eX92u210Q3Q66HbbVi9xSZbrdhOh23' +
      'Q66HXS7bscg6Xbd7mRAt4NuV2WYEHQ76HaYEDByS5XpdhOCbgfdDh4L3Y5BMiH' +
      'G0mAAoNtVGSYEAJiQMXJLlel2EwIA6Hbd3mOWdLsJAQDOlozcUmUvfiDdbkIAg' +
      'FMlI7dU2VtfR7ebEABgQ8zILVWm200IAKDbdXubKsv6AU0IAHEPkNPj+TjJLVW' +
      '25LsYJIsaQGJ5FNDtuj33/A2SFQ1ISifsnFkyWrpdld19+AbJfgZ0u+Ntds6GY' +
      'f+AzUlHVabbTQjg3bevgh4d3c7YdFRlut2EAJ5X+0q3L4x284Bub3b+Bsk7COh' +
      '2x6vbMfmqrPgnMEjeQUC3O17djslXZbpdtwPodt1+JNr//MeYfN2e+xUMkncQ0' +
      'O2OV7dj8lWZbtftALpdt+t25Ja/TsZfJ2NCAM+rfaXbn3e7dDf5ul2363YA3a7' +
      'b60e7bjf5ur3T+Rsk7yCg2x2vbsfkq7KIwzdI3kFAtzve9KP+2y/MeJh83a7bd' +
      'TsAur3OT/Hhv4MhMfmqTLfrdqh/NRw7blbW61n53xBvijfrvvM3SKoGO9ax42b' +
      'F/b0dSv374E3xZq39LgZJ1VjRdqxux81qc2s+/zW4+yZft9f8NAbJhHw9dnvMj' +
      'tXtuFwNbs3lX0nKxbegdPuEKkv5G1WZEDsQ3Q6J96vaD3Xr71/hYxld3a7bDdL' +
      'A/49M1tK2Y004VLtlxdd7y2i3pnR742FI+dFMiG5HtwM70z032m0q3d54EiJ+L' +
      'hOi29HtgG5/awf60LrdGBikIX/HocQ/6+JqmHBgYZDXv+/2lW43AwbJhOh2V8M' +
      'OBN3e4P8X73Prdp/VIOl2dHviz2tg4G8r/fXfGLf9fHHdjkFqPCFx29vV0O22N' +
      '3y+4YOWv7svt3x9g2RCdLurodthWrd//S3P/9novefT63YMkm5Ht+t2CN3wP96' +
      'Lb79Rt3tTdDu6vfIhX/4d0O26HVK6/fmNeFT9WwHbAHLLdzdIkyfkwi/bXdDtu' +
      'h1yo/3F6/D7d6tzdySc3PLRDdLACVn1q3UvdLtuh7iNcfe/pPi6Mwa6HYNUf0L' +
      'u/hW6I7pdt0P9jbHtX1V53ZkE3Y5Bqj8he7rduOp23Q5U3nXOU7djkPx1Muh23' +
      'Q5ELDqnqtsxSP57qaDbgYgAcLa6HYP08PeBBN0O6HanrcoMkgnZctov/kbQ7YB' +
      'ud9qqDN2u2wHASy23fGuDZEJ0OwCg29HtndLd2AOA3NLt6HbdDgDILVVmkEyIb' +
      'gcAdDsGqeuE/P5BzDwAyC3djm7X7QCA3FJlBsmE6HYgbj87VZBb9olBMiEXjt3' +
      '4AbodXGfdjm7X7WAjRd81RwGWmypDt1c4drMHm3eRM6lzCN59rDjdjm4HLKI2a' +
      '6Trj2+xY8vpdnQ7YAt12iS6HSw6VYZuB3S7btftILdC98nYV8OEANNWkG7X7SC' +
      '30ru95X+Wbge8ZaHLpOUPbrdj1+l23a7bAW+ZbtftYNfpdt1uQgDdrtt1O+h23' +
      'W6QdDt4yyyT3t1uw2PX6XbdrtsBb5luL/6D+68MM7wfnKpu1+2Abtftut3TiW7' +
      'X7brdhAC6Xbfrdt2uMM2Mbrd8dDssvLO6Xbfrdk8nul2363YTAnWu6uXfQf/o9' +
      'kf5/31Dc4tud6q6XbdDerHf9/vrdt1e5Mfxx5vodqeq23U7REd7gz2j23W7bke' +
      '3O1XdrttBtEenu2Wi23U7ut2p6nbdDpOjPSXdLRPdrtvR7U5Vt+t2GB7tEelum' +
      'eh23Y5ud6q6XbeDaK+f7paJbtft6Hanqtt1O+h23a7bdbunE92u23W7pxaC9kP' +
      'Z62OZ6Hbdjm53qrpdt4Nu1+26PajbH/53B9DtTlW363YGN3Biqul2y6Rftzdb8' +
      'jJYYZoZ3W6QdDsbBntgtFdOd8tEt+t2dLtT1e26HdEeN0i63TLR7bod3e5Udbt' +
      'uR7TXnyXdbpPodt2Obnequl23o9t1uwQSh5V/nH57Bv2g23W7bocl86zbZ26h4' +
      'XFY84fqvWrQD7pdt+t20O09un3zItLtul2D6XYzo9t1uwd34eEr8D3DrNtHtZA' +
      '41O0aTLebGd2u23W7btftxffDY/Bf1D1qpCNOo8EHksEK08zodoOk23W7btft6' +
      'Hbdjm53qrpdt+t2kaPb0e26XYPpdjOj23W7btftur3mijBRul23azDdbmZ0u27' +
      'X7bpdt+t2dPvlH82nQbc7Vd2u23W7zokep4W/POOk2+0WDYaZ0e26Xbfrdt1ef' +
      'FGYJXFot3g60e26Xbfrdt2e/p5G/Cyi3TDborod3e5UdTu6ffJ7mvXj2DOGWbf' +
      'rdkw+p+6gA0e3H7zOiT/RhtRHt6PbdTuAbne2q36iy78D4tB46HbdDqAtI0649' +
      '9j43OJQveh2TD6g2wHdjm7X7YDNb8MAul23o9sB3Q6IQ7tFt+t2AN0O6HafBt0' +
      'O6HbAilAvuh2TD+h2QLej23U7gG4HdLtPg24HdDsgDtWLbsfkA7od0O3odt0O2' +
      'Pw2DKDbfRp0OwAgDtWLbsfQAgC63adBtwMA4lC96HZMPgCg29Htuh0AQLf7NOh' +
      '2AEAcqhfdjskHAHQ7AACg25//+GYAAADdHvHjGwMAYGa2+atVdbtuBwDQ7bpdt' +
      '6/62b/9AwAA3a7bdbtuBwDQ7bpdt+t2AEC26XYD0Ozcvv06pTsAoNt1+6qjNq6' +
      '6HQCeR4XD0e26fXkobv6Xo9sBlEObuO3d7R5l3a7beX6YThhAt+v2Oj+du6bbd' +
      'btpf/Jx/T8ZgTqbSjnodt2ObtftWv2mfxXA2kdZOeh23Y5u1+1aXcMDES+yctD' +
      'tuh3drtuHDLZuB2SYctDtul2363bdnjXhWh3o9OwqB93e9UdTPrpdt/P842p1I' +
      'O7NVQ66XbfbIej29mPvhAHdrtt1u27X7bpdt8elu+MFdLtu1+26Xbe71LpdtwM' +
      'sf3aVw+Rub3w7nv8WR4Ru1+2OF8h6eZWDbu9d7Opdt+t2fjxSZwtDXhbdrhx0e' +
      '1axq3fdrtvR7aDbGxyO76vbmz3HQki363Z0O3hZiqSa/16qYeDJUF37Z21XdLt' +
      'FAeh23a7bOfso+1i6XbdjIYBu1+26nbILRPnodt2OUwXd3ulwfF/drtttV3Q7g' +
      'G6vc2i+r27X7ej2/d1uyQBeFqn21rn5vrpdt6PbXWqg/WL3ssRt9YhfsCeePTP' +
      'mHHS7Sw2M2upelritXv9X64lHt7t9LjWAbrfVlYNhwDfS7S41MHOle1lsdeVgG' +
      'HS726fbASJWupfFVlcOhkG3u326HSBuget2lIPvWHzGHIJud6kB23vDfrPVzZ4' +
      'nHtw+lxpAt9vqysEw4PbhUgO6HXQ7uH0uNUCFBe7oUA6+I26fbgfQ7Rg8Tzy4f' +
      'S41wIc73KGhHFwE3D7dDqDbMXWeeHD7XGoA3Y5y8MTj9uFS4y67a0M+uqNDOfi' +
      'OuH26Hdxld023A+Ct1xKg21nyxR0ggLdet4O77K7pdgC89VqCm26Bu+yu6XYAv' +
      'PVagpT5d5fdtQkf3dH5MwYweT1663U7brS77K6VHQMnU/lLOQ3wyuv2IS1h7d8' +
      '09u6yu9Zmth1L/c/kTEC36/b2LWHt3z3w7rK7lj7kDkS3M22TO0bdrtttfmNcf' +
      'FrcNXS7bsdzZpx0u263+c1w/YFx1/hzGBxF0MpyMuh23a7bdbstp9vdNdDt6HY' +
      'nqdt1u81vhnW7VwaWXFWHg42q23W7brfo/PXt7hpoCXS7k9Ttut00Dh9md9krA' +
      '6suqVMyJDaqUtLtut09bT8k7ho0W0pOz8CYHKWk23W7jafb3TXIuoxO1fCYFqV' +
      'E10vtZPx1Mrodmt1EZ2t+jIpuR7dbdP57qU4PIq6hEzZC5kS30/JSO5Bp8anbQ' +
      'bdjhMyJbifxRjsT3a7bodlNdLzmx5zodnS7Lafbdfuq07amcEfQ7bod3NzKyWo' +
      '+XUaTwNrt5PQMjMnR7eh2Z+gM0e3U3D9OyZDodt2O5sTriW5HS6DbnaQjouxdd' +
      'm5uNLodmwfdDuj2fqfqTNDtHBkeJ4NuBxfZ6b1+tk4D3Y5uR7cDuh10O/zy/+l' +
      'Dt4OL7P6Cbke3o9uB5FvsDEG3o9u59rF0O6DbQbdjhMyMbtftoNvdYtDt1J8i5' +
      '1A/2nd+Ji8+iHa3GHQ7oNsB3Q4uprsGul23gzaQ7qDbAd3uuQfdDgD8GO1//mP' +
      'dDuh2ANDtnnsQ7e4yAOh2QLcDgG7X7aDbdTsAHIn2nenurQfp7iIDgG4HAADdr' +
      'tsBAEC363YAAPjHRN+QxLodAAB0OwAA6HbdDgAAZ6N9T7rrdgAA0O0AAKDbdTs' +
      'AAOh23Q4AAC9m+a1hrNsBgCP9ADvpdt0OePoLPi7g8oJu98QAnn7dDu4pul23A' +
      '55+DAYuL1Rbra//O9y3xj0xgKdft4PLi9W6cOatCFj71jgKT79uB5cXqxWIeGg' +
      'ciKff47Lhg5pzlxesVqwv86ko3B2PS9ZHNPMuL1it2FoG9fLHcjgukTu7+fOZf' +
      'JcXrFbsKxN77XsZaVfJVd387Qy/ywtWK5aVob32vQy22+Sebv5w5t/lBasVm2r' +
      'O3Do6X9Djkv7V3AKXF6xWrKnec+sAfUePS49P5ha4vGC1Ykf1Hl2n51p5XNp8L' +
      'xfB5QXPN3aUbnd6vqMbGvGx3AWXFzzf2FGNR9fR+YgeF92Oywv2DLrdR3HlXSs' +
      '3dOeXch1cXrBksKN6j65z8/k8LrodlxcsGXS77+K+u1ZuqG7H5cVqxY4yuorCt' +
      'aL+vFlN7x6UywtWK3aU0dXtvp3HRbdHDLPLC1YrdpTRPfVpcg/Ht3NDdbtud3l' +
      'Byup2o6soIs7H53ND3bL9R+RNBKsVO8ronvoouX+y/THybwnuhup23e7ygm7X7' +
      'UZ37BfR7a6Vbne/Xj8fbyJYrdhRRtfpvR7tldPdO6LbdbslDDYMdpRun3x6P/4' +
      '6JwehG1r/S3XdRd5EsFqxo3S709PtHhfdrttdXtDt6HYfJffcnvxSq/0U3hHdH' +
      'r2XJteCe4rVih1ldD2s90V7wXT3jgRNo6Vkvbi8WK3YUUb3+Ldr9sPqdjdUt1c' +
      '7EG8iWK3YUUb38883Ktqrpbt3JGsmbSTd7vJitWJHGd1TX3BgtJdKd+9I3FhaR' +
      '5fPwZsIVit2lNG9/BH7/XS63Q2N+2q63ZsIVit2lNF9/h0nR3uddPeOhN5Q0W7' +
      '3uqdYrdhRRpc90V4k3b0juTd08hayewF0uypAt/OI+l8KEO3WL4BuVwXsae+z8' +
      'yDRG9zQacvHBgbQ7aqAU9V9cCQk+pC/6ttDYAMDCAyvhrHU7bqduIl1kgACw5N' +
      'hJrOmQqK7oTNvnMMEEBieDFwrNxR/pAxgY6sCAE+APQwg3XU7wJzl72ABdLuXA' +
      'kC3A9jeuh3A2reQAaS7BwJAtwMwNt19NYCC294hAwh4jwKAbgegcsb7EABBK91' +
      'RAwCAbgcAANEu3QEAQLcDAAAVol26AwCAbgcAANEu3QEAQLcDAAB1ol26AwCAb' +
      'gcAANEu3QEAQLfDt1l1CACAaJfu6HasJgsKAI+jZ5HPo92cWE0WFPS71w4HvIz' +
      'odmwn2wmCrrPjAi8juh3byXaClIvs6KD+s+i28jza//zHWFBWE7S8xQ7w89N2L' +
      'C6UxxHdjm4H9lxhJ7nknB2UO+VxRLej24G7L68jXXLUjsvl8jKyP9qlu+1kO4F' +
      'ud8gOE9DtPdLU4TjV1w/ThqH+zXWwC8/Z6QG6Xbfrdt2OXe0C1j9nB4i7U1+na' +
      'G+T7j63btfteBAF5/5zdoy4Prr9vtO741+u210u3e4F3zCBTswd1O0gLXpc0rt' +
      '/YcW3k9dNt+t23e64nOeRc3bHcYN0e6m0rr+XPG26XbfrdsflPHU76PagG7r8V' +
      '5iylDxtul2363bH5Tx1O+j2uBu66hcZtI48bbod3e6sHKluB92eeEM//3Vm7SL' +
      'vmm5HtzsrR6rbo18N29KQTJ6ry7/axOvjc+t2dLuzcqQmU7ej26Pn6t1fcOjF8' +
      'bl1O+rIWTnS/aftZAyk66PbT6V77q3xuXU7ut1ZOdLNB+5YDKS7o9t1u27X7Vj' +
      'vut1N1O26HUOi23W7bneJ0O1uq5v44Zk7EwPp4uj2g9Eene4+t25HtzsrR7rt2' +
      'B2IgXRrdLtu1+26Hetdt7uJlQ/fURhIdPv+bn/3t+t2l8upots7XViT+dYncAJ' +
      'mEt1+JNp//xR/+3FC/xp+n1u3o9sdl/MEdHubbr/2W3S7y1XqVMUJXkPLDZAWj' +
      'bv9yS/+2z+l2z1tnT6348JCcy8A3Z4V7ct/f92Obi975fEguheAbo/r9rd+zV/' +
      '/0nfz43XT7XHRbmK9iS4FoNtDu/3arzb0b5vjgbMudLuJ9Sy6EYBuj1t6H/5SE' +
      '/9Kfm+cdTH5b7b84z/Gs2inAbod3Y5uLxjt0t1ms9AA0O3odt1O9H5zkgDodnR' +
      '7nWiX7mbeHgNAt6PbdTtxW87RAQC6vWa0S3fDr9gBAOkSEe3SffItcDgAgG7X7' +
      'QAAoNudAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADc5H/SS2is');
    2:
    bmp := TSCARBitmap.Create('deNrt2zFSJEEMRcEen/vfh5MNFj7TKkr1' +
    'W5k2YEiqN7AR+/36er0BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
    'AAAAAAAAAAAAAA4K5rHcMExFNIAfbHU0UBCVVRgMZ+SiggoSoK/LEnEiqhQCUm' +
    'EiqhgIRKKNBSEgmVUEBCJZRjD88oJFRCJRRvzU5nblZCOefYjEhCJdTroHhmxu' +
    'WTUUK9C4oHZnQSKqFehJflbCzanXsL9B6Vkabv2gS8AtrPyXglVEJxS65o5tJN' +
    'wPEjoTaoGBKKhHJ4P4PWbRRIKNepTM/le4YOye78Oe/skVDr08/9A3SZ3qBzss' +
    'E5uzYBJNQe9RMklMSKGj7enfdloZYLEop+goRy8maNFyTUfm0TJJRtKzZMkFAr' +
    'tkqQUCQUJJSs/RopSKj92iZEVNR4n7dcUwW/rtipzcKZj84YJRQ8PY9rzhJvfD' +
    '2w9g2SuL4l3wXcfolGlJvQtd8IfPQejeXBH3wqCv/3MI0iN6EtPwe/I8HYF+F9' +
    'zfxTxbrxOlY9AW9qcj8tnclv5PCfSUQ8rR7A/60AaOynigL6qaIAXf1UUUA/VR' +
    'RAQgHi+qmigIRKKICEAmT1U0UBCZVQAAkFkFAACQWQUAkFJFRCASQU4DEVNWRA' +
    'QiUUQEIBUipqvICESijA5ooaLKCi+gmws6KGCaiofgLsrKgBAiqqnwDbQmpcAJ' +
    '+21HAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
    'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAzXb+MAuBeP1UUQEIBWvqpog' +
    'CVfqoogIQCtPRTRVl1RUUmTPTlGxQSChKKhELL2RsXEgqVmzc0JBQkFAmFloM3' +
    'OiQUHDMSCi3XboBIKE7dPSOhIKFIKMTduWEioThyV42EgoQioRB34QaLhOK83T' +
    'YSChKKhELWbTtvJBSH7cKRUJBQJBSy+unIcV24aneOhEJXP925e3NauGenjoTi' +
    'niUUCQUJxcm5K4ZU1Njdm9MCkNCB6zMHkFCKizMTkFAqWzMZkFCK+zIlgMrnnV' +
    'kBVP5eMDGAd+0fW0wP0E8VBdjfTxUFxFNIARr7qaKAfqooQFc/VRTQTxUFkFAA' +
    'CQWYU1FzBiRUQgEkFCCloiYMSKiEAkgoQEpFzRaQUAkFkFCAlIqaKiChEgogoQ' +
    'BBFTVSQEL1E0BCASQU4NkVNUlAQiUUYHNFzRAAAAAAAAAAAAAAAAAAAAAAAAAA' +
    'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHb6AfZs6+k=');
    3:
    bmp := TSCARBitmap.Create('deNrtnX13mzoSh70NYBswfiF23dw4TprT9' +
    'tzT771fszuLbrJawJgXAUI8z/E/cRKwxjP6aUZC+vtf/178McplH/8BgGF5f0x' +
    'eD5vLLsIUAIPxlm7eDpvFYvHilvCh42Az39Nk8f+g4/QejjGiGUsD6pyEXzfr6' +
    'z52LPT+K+JO6DhZwNTN+PO4LQ2ov7bRogzHRHyijXI1C5iVGW/53uIGIoXWWrI' +
    'iiG6J+BRDz9UsYG5mVDfNRf2PTApLOdkaerfku1rErXXdWWUBczOjhNuLdvd/U' +
    's5dLFnnLXVQqpdGKzuNXGG9RSW2SfmssoAZmvF5F+Xu+3I74nSOsb2hp/qT3K8' +
    'qRNxOKXcpC8CMRZ6S8POmr4e4GIxTCb2cfOcUvFrE7ZRyZ7IAzFhEnG3RgWNs0' +
    'Xdd7DHqK7ht/YljWQBmzHGK1/LqEnryCR/LPuTzGPMjOflupOC2hZ5jWQBmbFR' +
    'zqMkhXDatdfSh3R3l2zYpdyYLwIw5RHNfszlEE466etqG+sXf0s2Qoae0u6N8F' +
    '6X88caQYwBBdykLGBE7zSjBYir0isKnrvzXdqAx56IHpEWlaj6AoDuWBYyFtWY' +
    '066i6RsgHE0kdZorEoHYXpbyo5sMIujNZgA1VTdvMaHBs9r967Ic6597vVfvMa' +
    'ncdy/cq6C5lASNirRklRo7RyriXqllI8dVbITmVoWaFmucE3bgbu5QFjFlasdW' +
    'MEshpD6F33qxPZVntrYxp9JF8RzXvQ9PdyALcGGoaN6MEXR9xp3JS5ajFXz0lo' +
    'fG4E+E+9tOQmmpuXNOdyQJGr67YaUaRvMUYXI0+BqWEOx0k9G6puVlNdykLGDf' +
    'urDXjYzRO6Bl8AnGwoLur5gY13Y0sYHSsNWMajhN3ZlOMsYS7P013IwsYHZvNO' +
    'Jbk6V1HdwuP24o+NN2NLMAGybPWjLdqBRUi5T98WXoP8ir+NvS9KPAaXXa3Drr' +
    '2bKF1cddd0x3IAmzAWjNuV0HTmupZE6lc9K19T72f1L7sPlx2Dz0LJU/X9Bay7' +
    'kYWMP5o02IzJg1DT7lT7iISgKssBrXL+kN+0U2FO3ffChEvSnnTe0nH0qJvcSM' +
    'LmK3k3TVjvPQ3S7/pBb8l4bHygcG43jXl1qK5HW0rV9g27z10Ba8QcaXjLaQ8p' +
    '+ktQs+BLMAGrDWjxEgc+C2ctnrmok44/z7vjdhWwiFpG3qqXzqX9UtFHW8h5a1' +
    'l3Y0sYHRsNmMYeC3LqpUzFzVXyj3voo7LJ5RqtxBuXcHvingjKTei6W5kAaNjr' +
    'Rm7DGIrnOrXaXdtuO1Jl9AT1W4n3E2XHzQK8C6a7kAWYAM2m1EEVA1fTY2gLrv' +
    '4/cbG6Xe6mo+n9Zuat7VqNxLxRlLeXdMdyAIsCT37zSgxqFS1osSXyxxzYSI+1' +
    'nSXoZIFANtQjbdrfmyDlai7/XwLKW+t6VPPAixhQmZUAaj+8W4MJpqvVm+Z3p+' +
    'vfqp2a+G+e1Ol4+2kXNf0+rLuQBZgA9M1Y5DVV9eZVyvHXvnZj4Gn/5kKbVMRl' +
    '3RIMXThrqnd+qRb0URGdPyWrFcouwNZgA24bcbrITbolmm0NGJwPfTqx2BOxI3' +
    'reIvOcKJZgIUx6J4ZDYpCsvL7MHvwMTeak+9SBTcu4kZkfXJZgM0BOHUzmvoMU' +
    'eBZNWlrVsT7kPXJZQF2MlEzfj6atG+7ZlJ9DPWy6hsxntnpmt6TrE8iC5giVpk' +
    'xzZbEODZ66U/jxtJ0+7OASWChGQ/hcr9eimC1Xrtlj3n1h4u7iHipoA+s6a5mA' +
    'RPtivs2o4RhzTVyEqfx0pYuVOTbrIKP3rc4nAVgxjphWPpJ1Do6O039qeBdRHz' +
    'coHMyC8CMLZDPLyNbfX2ptXHXRcRtU3OXsgDMCNXPQlqr5hPNAjAjlOp4Tsqno' +
    'uZTzAIwIzjWe0w0C8CMAAAAAAAAAAAAAOA8F7cOCgGccxK8Pyavh81lF/EtA84' +
    '5GG/p5i3bJu4F4QOccyi+F/aq4usGnNMUpZ/5nIRfN+vi3ox844BzGuHncVv6m' +
    'W/tnIMzAM5pqldZNDky5qsT50ICzmlJ63JZ6o+stynlROgBztkNadGLNlpWb15' +
    '28WUfV2y/Lx1LOtkdm2EquO2cuX3hVHvrPL98jAk9wDnb8/RxXIXweoj/1N6kk' +
    'dADnLM1Is1dNqc6xmR8gHM25hSv9W1yW+34XX6e1zOLzQDnvFc46sih7IhS5v4' +
    'A5yzlsoubnpxeMah+2ob6xd/SDaEHOGd59roNTbWu2LeoK7txXjngnBaq+Sf6C' +
    'c4ykJZei/VmgHOWJrDGz0A5fVSTcu+jfYBzfjbtGK2Mt06tmivuY3xi9gFwzgx' +
    'JPNMeWnferE9lszClJSaAuTmntKuPpqk5FNWNFH/1lIQ4FczcOaVXWYzBlT0lY' +
    'N7O+RiN0zq2c4E5O2cajtM0Jhpg5s45Vq+ip7r4GMzQOQ8ND6+Xf/Efviy9B3k' +
    'Vfxv6XhR4jS67Wwf4GMzNObcNT1GXXuis9QO5Bq59T71f/3D2fbgk9GCGzpk0b' +
    'J1S4dxFpI2rrJnaZX3SPcA5b6EOxW7aum9JeKzc4CKud025tXRrOBjM0DnlY8S' +
    'B3yL9rF5pU8div897vAtm65xh4LVcBlC50qbmkx3Pu4hF1DBD5+xSdK3Q4l+n3' +
    'bXe3lAkejBP51z7niq3mppqvOzi98IBE7VS42x3KfwNrHXO/mJQVYFKp0JKZzp' +
    'yn0SkueZWbGgfTNE5n7ahmrzor43qRnebmWiafutoCUIPnHHOwbw0yNYDSHvD7' +
    'CV3XPnZj4Gn/5lKRVnJCUMyinMmNs2CXQ+xwc4kjXhyFnDOWnQfP2tdio+3AM5' +
    'ZjakWRYHH0k3AOWvy+Sj9vuF68tywWb1wFcA575JmS7ipqICFzME5D+Fyv15Kn' +
    '9BiXStBBzinqZbWfKZDTBEvKaQAztlLS0vbpZ77wBMA5+wVGW8nK19/Hoq4A5w' +
    'TAAAAAAAAAAAMcuGMA4DBeX9MXg+by46diACG4y3dvGV7MXG4D8BgfC9sCINNA' +
    'ExRGlDnJPy6WRc3QMNcAEb4edyWBtSt7SmwGOhQf+sieaUBdWvB9leOtIMPqL9' +
    '1D71cCeVHJoXl+9ITepBB/a01YrEXLZX7Z/ywi2UIUbHHtahe2s9+njAhqL91I' +
    'bf5kgrGOg8JHmNCby4jouKb1N+68/SxJ7zweoj/1N4JjdCbA9TfekI6ri47wBx' +
    'jMr5ZFAFuvU/9rR2neP25AVrbbXVXpSc4PFPsciv0qL/1YdWOHMrOAWTs4QDU3' +
    '/pADFjzcMw6Gd/TNtQv/pZuCD0HoP7WS2llG5oKvaLwqStz1PLknYT6m61DzU8' +
    'etYxPvh2RVOpdU4f6W0/VlYVpTh+mzr2P9k3UQ6i/9WHVY7QyHnqqpFzcLPRE7' +
    '0f9jfpbhozD0x5C77xZn8qGKKX2B+pvc0OCro+4UwMMpXElB7gnIS5N/W3m9Tf' +
    'piBZjcGVNO/W3edffHqNxQo/HSai/zbn+lobjxB0TDdTfZl5/G0vy9DoMHk79b' +
    'Yb1t0PDE6LlX/yHL0vvQV7F34a+FwVeo8vadrA7UH8bgO0qaJognzWRykXf2vf' +
    'U+0nty+6z46pxcupvc6u/JaugxVAhdxEJwFUWg9plfdI9khHqb7dQJ882Ncu3J' +
    'DxWPv0R17um3Fo0F/em/jbDDlliJA78FjapLkPVCeff5z2+jeTNtv4WBl7LHLm' +
    'yDFVz2cPzLmIRNfW3GdbfuvRIFQPFX6fdtd6DkyR61N/mWX8Ta6i+yNQ4/LKL3' +
    'wu7L9YaWnw8eonDU3+bVbcsMahMVDpOKB0G5Gwi48aazylX8LQNVeeJ21N/m1X' +
    '9TQWgavvdGEw0y9zad5G6FvU36m9NCbJkWYIxzF5ikJWf/Rh4+p+pOompiEuYa' +
    'KD+Rv2tBtdDbFDp0ognZ6m/Mf6pRffkTtM7H3tSf6P+1l+XqBMFHks3qb9Rf6v' +
    'J5zrzfcPJ1lxOp174NvU3xp93SbP5TWw4c6i/jcUhXO7XSzFFi0kfgo76G/U3U' +
    '2FYc8GDxGm8pJBC/Y36Wy9hWGo6tSgC+1B/o/7WK2Ix6ab0xULE3Uyg/gYwMNT' +
    'fAMbNOKi/AYwehtTfAEYPQ+pvAGNB/Q0AAAAAAAAAAAAAAAAAAAAAAAAAwFX+A' +
    '71PXvM=');
    4:
    bmp := TSCARBitmap.Create('deNrt3VFy20YQRVEnC8tqsv8tKB+pcrkiGgGJG' +
    'aBf9zlfiWPL5GCmL6FI1F9//v3HFwAAAAAAAAAA8/x4lPUH4INyDfyrAVAu5Wp' +
    '5D25BAOVSrqz94DO9gHIpV5v9IGqActFmPygaTJgVD36FnnJx20VxmwZmRYU/r' +
    'lx2o6iBWaFcDCyXqIFyKdeq2Tjtu7OzciBqoFyTy+WRNLsRVjRQLr1Qrt5FEzV' +
    'QLr3ILRdCBjXTU+GE6sXAWx5Aua6U62e/TGmPBMA9l14oF6BcNf+4XigXoFzK5' +
    'ZHAwFGGckWX6/6vEFMuuL51fU2mcimXcoFyoVzKpVywNVvipVzKpVygXCiXcik' +
    'XbM2WeCmXcikXKBfKpVzKBVuzJV7DL/0Nbw2qXMoFysWoOz7lUi5kS7xQLuWCB' +
    'tkSL5RLuUC5QLmUq8JkI3HI+xmdKJdyKRfKBcqlXMqlXHWurEmLcimXcimXcqF' +
    'cyuVyKJdybb2shi3KpVxxI85Z67FEyoUXxsqlXE5f0BLN+RIUeDamymUsWyLlA' +
    'uVSLuUauETTvvIflEu5bOzoJZr5bWugXMqFctkJKJdyGcuWKO5I2gwol3IZy5Z' +
    'IuUotlI3tOCuXsaxczbLVdT/Y7Y6zchnLyqVc0VPL9lYu5TKWlatTtpptCf87D' +
    '+UylpVLuZTLnI97m1DlMpaVa8hsaT+BbfKas065lEu53HPJlngpl3IZy8qlXJ0' +
    '+32WrK5dyGcuWqEG8Wt5wHf86yqVcxrIlUq6C2RIv5VIuY1m5Wsard7bEa2a5J' +
    'j8L5VIu5VIu5TJplctYtkSl4jUhW+J1cdbt3mnKVf+RPPXsnFnl6leud5+OeH1' +
    'cruIfv+UnQ6p9Z7exrFxFjsmcG66DRbPzlQvlUq6UeE3Lltsu5UK5lEu54rIlX' +
    'sqFcilXbryaZevdZyReyoVyKZdypdxwKZdyoVzKlRiv4dkSL+VCuZRLueKyJV7' +
    'KhXIpV1C83HApl3KhXMqlXInZEq+3yuI9NIxHY1m5noqXbIlXwXaYSHaIcilXv' +
    '3JtfS7eWEO5UC7lKhsvN1xuu5QL5VKuoHjJlngpFxcPiLGsXMpVLSiT46VcKJd' +
    'yVYuXGy7l2tqOiy+ZTCTlUi7lcsMlXveX68qH/f7bfsyjXMo1fIlkS7walGva8' +
    'FEu5VKu+k+k7M8vnvlF8tU+W6hcyqVcA5fIDZfbrqDJqVzKpVyWSLmUS7msv3I' +
    'pl7PweLl8tlC5rL9y6ZQlctvlhku5rL9yKRfpEfFV8cqlXMqlXASlxHciK5dyK' +
    'ZdyoVwmp3Ipl7FsiVwX77irXNZfubBE4uWnnFR77yPlwli2RC3nasQHxyT3fI1' +
    'lS+Tq3FAuq22Se77GsiWibGJkyyT3fI1lS0RQvHye0CT3fI1lS0R6uaywSe75G' +
    'suWiLLxki2T3PM1li0RQfGSLZPc8zWWLRHPluvd66VcJrnnayxbIocr6LZLtmw' +
    '2z9dYtkQExUu2THLP11i2RNQp1/9eNV8Gb5J7vsayJSLrtku23s36Z+86WH+S3' +
    '/lclMtYtkR8HCPZ2jQ8Q8tVqiB2o7FsicRLtpRLuYxlS4RyKZdyKZexbIm4LV6' +
    'ypVzKZSxbIoLiJVvKpVzGsiUipVz/XkTlUi7lMpYtEVnxclmVS7mMZUtE5cMrW' +
    '8p1cZ8ol7FsiSh152VxlKvxyzZj2RJZon7lsjLKpVzGsiUiKF7WRLmUy1i2RAR' +
    'dTauhXMplLFsigi6odVAu5cpdamPZEoFyKZdyKRcYnhd/IPXL4xZ0AH8spVzGs' +
    'iWCguU684tZ5Vr1QZ4qV+XVNpYtESiXcimXcoFyKZdyGcuWCJRLuZTLWLZEoFz' +
    'KpVzKBU9NOeVSruWPv+yCG8uWiAojrvKIUC7lMpaVC17Ot5q7S7mUy1hWLuyi3' +
    '+2omj+HRbmUy1hWLuylM7uozn7zHhrKZSwrF3wdfuFWtW3mfQuVK+uTGPhBhNw' +
    'z1o7/NXdEKFd6ub4K/+9XlIvHb+RtM+VSLuVSLhI/VVjzE4bKpVzKpVyAcimXc' +
    'imXoYRNolxzygWGEjaJch08fmcTqp1QlEu5lAuUC+VSLpgzjpwRlEu5QLlmLmn' +
    'Lr3RSLqcSah5wx6T9vYlyZZXLqQTlUi7lUi5IOcjnP2vkm+mUS7mUCx4/hhU+g' +
    'uulXMqlXHDbWXZwlEu5lAuUy1Ir19bnGP2mc/4HNCiXck0rV/p1VC64uPkdGeV' +
    'SLuUC5bLOyuU6KhdsOozOi3Ipl3KBcllk5XIdlQs2nUeHRbmUq85f7TxiqBpWy' +
    'qVcygXKhXK5jsoFFU6i86JcyqVcoFzWObRc03Qtl/fQZsI4tcmViwrXaNW1+/m' +
    'WjBJG8ZnQu1ylHqFbCSLK9X3HWnmbTbnuj4VNSJthsvVVx/HP5rP+slX8IFz/z' +
    'UWe1Pd/BT6bV86RbTD5MxL3PwtnDRaOLAmzB1IefNzT8X9wYPfUcr5kS7ncc0H' +
    'o4JIw2TL5gdDZJWGypVxA6PjSL9l69unYfmCCuQVz0ZULGDXEJKzm5W55Rew0U' +
    'C4JM9vtZMB5lzDZAsh9pdovYd5bG2DITHMv4BUCQOKrcQPWegJklcvIdQ8LEFo' +
    'uCdMsgNBySRgAoeWSMABCy/WfhLlwAMqV2C8JA1AuCQNAuSQMAOWSMADlavnUJ' +
    'AxAuXIT5loDKJdbMACUS8IAyo7NX1V7PKPYkwDHjbAOAGgWACwMlmYBIFgAsLB' +
    'Z1gGAlGxZBAAA4Kn7kZbfQeM+CyAlPS2/2dM3sQK4SwKA24JlKQBeDslS43r4X' +
    'ZVgAShX8WbZgQC55Zp2h2U1AJTLHRaAcrHqJstSAMgWOLlg/wNB9/LWAeUCsk6' +
    'u84tyAXEn1xFGtoC4w+sgo1xA3OGdcJbNK2wDaHZ+G59oX46CckHX89vsUPteS' +
    'JQLWk71lm/XLFgoF5AyizQL5QIMJWwSAFAuJm/CClwIAJQLAOVSLgCUS7kAUC4' +
    'A5pSr/d8LgHIpFwDKBQDKBYByKRcAygUAygWAcikXAMoFAMoFgHIpFwDKpVwAK' +
    'Bcs36U2KiiXgUBKsCQMlEu5yG2WfQvKZQIQmi1bF5QL4rJl94JyQalsXfmdgHL' +
    'Bndla/kcA5YKnsiVeoFyO/PWVtAgLy3XPnwWUS7m4OVviBcrlQshW6OYXL1Aul' +
    'Cvlhku5QLmQrdCdL16gXChXyg2X/QzKhWyFbj/7GaNAubBdo8vl6nDbHnaElUu' +
    '27HlbmpYToNm2VC7ZUi5bmqzda5cql2wply1tV89cq9yVVy5nXLlsabu6/d3Wz' +
    'R9Wudh3wAeu/NYvpbCr7cN9O9YlUC4H3BzYsfHsahvbVVAunG7lsrdBuRxtK6l' +
    'ctjcOsjPuXNvwdrUdjnLhXCvXqO1tuQwc5bKLUC7lovHYUS77R7nsauUia/go1' +
    '5DNY6mVS7lQLmc8bvNYauVSLnpMDOXymke57GrlImsQKZfdIl62tHKhXI75wGw' +
    'FPWblUi7ST7dy2SQLL6hy2dLKZS4plx2iXMqlXBhNymVv7HvYid99v+Qxb/3hK' +
    'cqF6aRcDC/Xju1nPyuXcikXypV122U/z9k8LpZyOemdtvTYn0znU4VLJqF1Uy7' +
    'lQrnuyY1srdozVo8r5+4RLoRyKde0gfPZbwDlwua/sg/t5A9WbPnvxOFVLsRLt' +
    'h6Pl8VEueCt/b/1D6JcKBcLt4EjcHJD2sPKBVDz9duV38nHYbKeALs/+WD1lAs' +
    'gKF7WTbkAguJlxZbHy6oCbOrXqJsg5QKI7tec2x/lAkC5jv9e2QKgbLaUq+AVA' +
    'TAklUu5ADpNSOVSLoCs8ahcL9fEN1wAlH1Vr1zKBaBcygUgW8qlXACypVzKBRC' +
    'XLeU6yJZ4AV4214yCcikX8Nl88HO9Hy/X93+wM+0ogMo3XL/7Z+WCmmcW9t1CB' +
    't1wue3qVy6DTrmg2V5SrjOvQHo8KefUtIEeY+F3wVKufp8wNPFcR+ixi/5Trpe' +
    '/olz2Kq4jdpFyKZe9iutonbkyqM/8Yvs8tf9GDF8waaJycTaiXA2aFRoC51G5O' +
    'LnIVlu5usbL60mUq/EKW/CgU+CzhRPes8WRdNU4s7zWXLk6xcsYxCUbsraWXbl' +
    '6xMsYxCUbtbZWHuUyCXG9shbWypMeL0sHA18POPvkxsuiwdjbWBOAxHhZLhibL' +
    'fEiMV4Wisc3pMV5NlvihXLBy31oKYqXS7xQLrDBsrKlXCjXqPMObbaxs4ByJS6' +
    'XpWD4qy+nAOVy84XjdgNPh2nnyHIpF27bLSDKBU6fw2WtUC5wH2FZmFaug18H3' +
    'FxYAaqV68x/os1VvvIBLaw7Dk+WCjPtrf9Ks3vtM1fZTjDV3V5R/KW42y67wh4' +
    'w6oWYoBsut11g/msuoXvJlgNRcHtF3Kay/SDoUHsk2OT2IWSdaw8DO9xWBNkSL' +
    '3I3la0IsmViANC4EeIFQFwdxAsA5QJAtr52vm2OeAGwsAgHnVqYMPEC4EoL3r2' +
    'xWnIjJl4AyrW1Vss/jnIByNZttVp47+baAcjWQVBuflQnf8qbKwggW1+V3jT+z' +
    'I9Pch0BZpar/g8hevkIlQtgVLZyf2Sen1QLMDNbngsAAAAAAAAAAAAAAAAAAAA' +
    'AAAAAAAAAAAAAAAAA8Kt/ANmbhAk=');
    5:
    bmp := TSCARBitmap.Create('deNrt3WGS7KYVBlB7ZfmbbWR3WUz2pPxIlcv' +
    'pbqELAnRB51QqZT+/6ZmR4NNFQvDvP//15wEAAAAAAAAAAAAAAMBq/vHP/1z+z' +
    '1ECNsu9m38BQO4ByD0AuQcg9wDkHoDcA5B7AHIP4DLWvK8BAAAAAAAAAAAAAAA' +
    'AAAAAAAAAAAAAAAAAAOznj3oOGrB0yjV8gsMIbJxycg/IPwgNplzzMFbuAUODb' +
    'ty3CP4Mcg8YnXgTEvV+welkAV2quxGlYPew+t/nSD9gTtY1/KcRP/y0AhXYJvT' +
    'iw8l4qswZip7d7pN+QFV0dMmN7w+ZOYNF7gHB3BiUeF3G17XhJvqASOiNK8A6p' +
    'qXcAzoOb+eUeV3CKvgIxokGRuRe90kpcg+YEHrNKdE9W+L3BuUecDNYmt+e6PV' +
    'TdX8hV+4BwTSoeiDbK/E+PrM86UXuAYMGknNWAwhm2l8/Rt97gIDcu4zBoaF3B' +
    'GanVL1S53QDR475KoXPic/Ki6xe5XQDXdLgqVfMus85BOTe0C8PLnRQlYdyD5i' +
    'QXeUQi6wV3zY4tQQBMDP3+i6lIveAhNH3M+XmvIxWO56Ve0BDFfeddUPjpTb3P' +
    'LQFhqbfhGyRe0CSuJu2S2PfmSqe8wI3q7vml2FH5F7zSxlyD0i1K1BwM6DmxQe' +
    'EHki8OzlwNmFvRO61ZdeILUKApUNv0Cfc3GKy8CcJd6sE5F48hUYzqgW6D/dGp' +
    'MpZdZdkoXvgtZXe0Nz7OWU6z08IyL20P6rQA7qnwdBgGb3EASD38gTL5E3GAbn' +
    '3VLb0nW0i94DMudd3cp2pekDy3Ou+t7hTDGyce97FAJbLvZv7EDmbwPzcmz+/T' +
    'uIBD+Ze8wdGsiu4syTAU9EXXxAvmHhOE5A598oVWvNeugCPVGj3M9DRBrYs/NR' +
    'swMbRZ3AK7DHmdf8NAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAXs7uJMCrEk/oA' +
    'RIPwMAWQOgBCD0AAAAAII8//sbRAN6QeH//V8cE2Dv0zv4BYLkoqxreqveAd+a' +
    'e+3vA3qF3/P/jDM81gDfk3seXCD3gVbkn9IB1c69q0PrXl/TKWINlYHLufTynq' +
    'P2Sm7nXnKIAd0IvWO99P8mtesDx8Rc+Sk2nA3gk9+J/Pz6MLeTe36PP6QDm597' +
    'N8WZV7n18U7kHzM+9+/kTfybSUGoCDB3ttqVQ/JmI3AOWGAJ3yb2zwbXc2/iCC' +
    'Dt1geZslHtLnPHmSxtQjk25t1DuHeYdQTjxCgGokEgbeoWq3vmCYM1QGBrrRzl' +
    'z77JWB85y77Lj6EQ5Q+/4eknHUBeCxV459/Sg/IPc8kl0BiFY7Mm9tCfuMusKf' +
    '8cBRM3ws4MctqFMn3uFa9ZR3GbFCUXumbuyXJkXdJyvvO3MohOdjW31joQ1XkP' +
    '6yT2IFHu6RvLQiweg3IN47rHK+QrO35N76Edyb4M7ElW3+OQeMxvncl3J2cw8w' +
    'q0d6qr3GFo+FSIleb330b+c0Py5Fy8F5R4TaqdyKqb9meVe/tA7zudbFvJQ7jG' +
    'uZR7FdYHydyiWuKR+XJ4iuffzcuakc79NlgMkWxvzFueiDewILxp29uVyj/vN8' +
    'rLtpc29YFVAkpr8O/cK9/3ORsRyj77D2+/2uWLu6QvJc6/8+u3H+Y3P5YP7bTL' +
    '/ynXmruQf2JZvRJTPl9xjQu5dThNN28aEXs46/AgsjBPJRpc2urfPn23sWOemm' +
    'R6xUO4dlesSHKYqMTj3zl7nN1GE+7l3+SCjdq1RDZLu9d7ZTgfJfwuWyL3yCDe' +
    'eew41Heu9hXLPkGe5cW489H7ee1Hp0Sv3qm6qQHO9d3MdKrM06T5CjDxWc9Coy' +
    'r3jZGLAzdwz1GVQ7h3njzxy9i/S3n8ovLJxObOl/JnaACPqvSXmsTiVmdOv4eH' +
    'F5a5qJi9xP/fKM5bTDis0+4XGvMHpyuV7LFWve0DtFTn/7RRtfrnca6gAz9rhW' +
    'R5Cl8HIkfs9Na19ldZ1+Z8aHumeDUwgPtotXKNz1nva+cbX3OPXWrhnMwNFH11' +
    'yL/lSJxr5fgPhozg9r9wIPeagY+2UfBs1J27LgfDZelPN0/8cZCIjjvyhp9jbr' +
    '94rT88rrJhxBB7POc4Eb7YcuReecr62HOeWB79V24sb/3Kn8IM5uXecv897xBb' +
    'CLewLo0kDaUcZ3yFWtQB44aPkHrBQMB6VGx+s9ZxuxOEC9qgJv4eu8S85dn8iJ' +
    'vH27gIOwmvPe/lVtZ/t5D1zm3UNucfGVV/k/bXllhXSL3BmiUTfEV6qJf+b5no' +
    'Hziy1AXgUl2dJvoKurgHUpt9RnA9zuLPHyi3ccSBYAbqzh9xD9O3ahPQLoYem8' +
    'ramomtozPDC3uEgOLOgd+DMgt6B0wo6CIDcA80eDQAn1FEC9GhHCWBovtk2EVQ' +
    'ybzsUP/eZ/c5GhwvY7BJQ3ojHsQLF3sZH42zXCWDRbq4Lx3Nv73WWQLHngBwnm' +
    '2s7bqDY2/tC8HObCccNFHvGuYBib+nDcraVmEsGKPbemYSmLoNizwUCkHtyD9C' +
    'XARR7AKODzhwM4IWjWk8hgbcVe3IPeFXWST9g71Ht99jWm/WQswJRn8g92CblR' +
    'nys43wZfa4jMC3x9vteOwWgeg/6lmFPdW3K14Xy6iLAWrGjC8fvNhjhgtx7yam' +
    'RfiD33H8AuvQvuQeo+uQeIPdEHyD35B4g9+QeIPrkHiD35B4g9xx/4FX5I/cAu' +
    'QewdwTJPUDuAaySQm0rz8s94D0ln42wgdWjz65DwPbRdzO71HtAttybUKQp9oA' +
    'MiVcVa/bVhbRdWI9rKL1+HqIRJZ+DDx1HanrcncFmYf/WyWcK6NiV3tzpylE2s' +
    'yoWfTCidNHjggXed9xNOERyD2Z2n1f1uO8XJSJjWLkHOTvyzSlkjtXjR0n08Z6' +
    'ud6cnfj98lHvBoWvCXJJ77Nr7agdi8T7SPPN/ue721Lv/Sj7onnjxrzoLvcuOU' +
    '5iqsVDcPRgpSj6Y0JILEVebe+UpavtdOPp+gtyDVLkXnHGxYu4lzCvRB5PHVpf' +
    'BVc69hXpZ3wnDcg8WCr1CrHV5HV6xJ/cgZ+stvCUaeY++MEDOv0ZBtvknco/57' +
    'X+VVUT6DqwKv3gw9yJfnvnwppqVPfQQyT3Oum3yttFlqtjHaPRO6JXzcK2uVzv' +
    'Te1DujTtEco9j2aeQdzry2YC0e7FXm4fJk3DyL2JNKuYHSOb7Ud07zs9X6fsOc' +
    'jfoffOXUun+4RaD5ZEhTMcfu2EqXaQgrK33Cs9tN8u9ywxMfkND6LHoWsGRSiO' +
    'S5w3398rZ2LCCwR59cPQC+zd3nNTT2Sn3qm7THYGHtlUzlr//Of4EZL/cq8rD2' +
    'gVzaq9i6jq6jAFXyb3y6r6RVKwaIn0Ptxu2CXvJBTTz56PSWzf3yrVfZLmk7yH' +
    'tEVh95c7xkXuiD7nXJffuP56IP6yUe3KPXRtqqlZ3VsJVzTErDGmrfvHHV6t7S' +
    'e6JPoKNpONE02y5V/v6f+1KUxNyb6dePO13EX0E467XCiFJmlzhQcOd3Gu7QLx' +
    'n2fk8v47oo61JtD3uz5N7x8lDh7bcay6M72wqIffkHvPbQ9seYY83uaqsq8q95' +
    'tBb/abBilkk+qhtCXdu+mXIvYa5wfHcq3qM2+WKI/fkHl2i4E6bufNfH/lNfxa' +
    'ukf0Ny3cIyyvmtWXvxh12/u8l+pR5fb/kkeWGIj/SneetkS1fy1VfOUKP+ok0c' +
    'k/uMbrMi+RAr7cpB/2adxY2KawkEH9AfGeBvu37qejjqeInGHfN0Rp8/XxQw27' +
    'OvZ9zmy+LwPjb8fF35eSe3BNcMzW3ltovH7HBWSR1q64UZ6PX8jJ6tftLvmpJk' +
    'Ed+U9G3UNY9e6JvvlywXO4VKrefC0kVCrZy7v1c0+BVLVzuMeK63+Vz7r9MOuG' +
    'Zb9UKbJfr6UUWj4p838Lioh93C9/ZyOUeac/y/cVDlsi98j7ghUFu4WMLf2KVy' +
    '0cOgmMu9JKMlB/Jvct0+s63qhl6hdCTeA9mkSPvSpoh9zqO6NtyL3gL7mzphiP' +
    'w/MJK5nKPtU7uuDuEo/eRuTl57yg+d2h7OK7TPT7adQrk3rSPKo8Qs+Xe5Y4/Z' +
    'zctCzWhThdMP/tusGvuzfmVZ+beiGmQWq/c45GT23c6zdCred/cKzz4+H7kUdj' +
    'KUO5lSydnQZsZ+lGTb+Z3r/fO/jD4urE7ex2vlUu8GM6bc69tq508uRfZhzrSg' +
    '24u0Q+kyr2G6+kSuVeel1L1eoV3MWD+6GDoECPnTZXal3NrH0DEB61CDxYq9sb' +
    'dksqWe1UfVXtYPMuAoaVXr3u5o+/IPZh7VePf49fG4uVPu8xMbRhqU65LwgR3l' +
    'Ngv92pD7/ial1K1iXDDtwOJNy5hquJ0wssUSXIvUiE3h57cg5tZ1Nb9C315v9w' +
    'LLpASmXdX/uSqy412DqN7RPCm+n65V67fqnY5b7gl+PgvDu8Z1dYWM0/11kd2k' +
    'Gl4xHD5Zm7teZR70LEv3F/paObQ7Kmds2oPy+XyU1VXLqEHR9dJxV062rQXyp7' +
    'NvdqpfZe5V5WiIPfuF3jdP3/C6/MP5l7VNeJnldi265nQg7PBad91JEZvALRW7' +
    'l1uFhnJvfK24OOqemBaPZnwBxv3rc+G+R//X3VkJB4slHvHyFfpn829cuV8uab' +
    'oKr8pyL07X9s9/VKlwbg1KoUerJt73XvxKoHwUeYZ4cLbcu/ItPP4zFKwrT7U/' +
    'GCP3DtG7p8L8GDujX71QO4By+XezcJP7gGpcq/qq9LurwHIvXFfZYIHsHTuzZm' +
    'oJveAVLk34XvJPSBJ7k17Siv3gD1yLz5MlntAhtyb+Rqa3AM2y71j+kZFALXxM' +
    'nmxKbkHjMu9Z1dBt40skLbkm7m0suVKgMdzb2gKDV3HD6Aw2n1wpbiP7yL3gBf' +
    'Gr6MBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAw' +
    'N/9F0bCTc4=');
  end;
end;

begin
  BitmapSetup;
  Test;
end.