N0pixX:array[1..36]of integer;N0pixY:array[1..36]of integer;N0Color:array[1..36]of TColor; N1pixX:array[1..24]of integer;N1pixY:array[1..24]of integer;N1Color:array[1..24]of TColor; N2pixX:array[1..26]of integer;N2pixY:array[1..26]of integer;N2Color:array[1..26]of TColor; N3pixX:array[1..27]of integer;N3pixY:array[1..27]of integer;N3Color:array[1..27]of TColor; N4pixX:array[1..32]of integer;N4pixY:array[1..32]of integer;N4Color:array[1..32]of TColor; N5pixX:array[1..29]of integer;N5pixY:array[1..29]of integer;N5Color:array[1..29]of TColor; N6pixX:array[1..30]of integer;N6pixY:array[1..30]of integer;N6Color:array[1..30]of TColor; N7pixX:array[1..24]of integer;N7pixY:array[1..24]of integer;N7Color:array[1..24]of TColor; N8pixX:array[1..36]of integer;N8pixY:array[1..36]of integer;N8Color:array[1..36]of TColor; N9pixX:array[1..30]of integer;N9pixY:array[1..30]of integer;N9Color:array[1..30]of TColor; Procedure HackGIF1; Begin N0pixY[1] :=5; N0pixY[2] :=5; N0pixY[3] :=5; N0pixY[4] :=5; N0pixY[5] :=6; N0pixY[6] :=6; N0pixY[7] :=6; N0pixY[8] :=6; N0pixY[9] :=7; N0pixY[10] :=7; N0pixY[11] :=7; N0pixY[12] :=7; N0pixY[13] :=8; N0pixY[14] :=8; N0pixY[15] :=8; N0pixY[16] :=8; N0pixY[17] :=9; N0pixY[18] :=9; N0pixY[19] :=9; N0pixY[20] :=9; N0pixY[21] :=10; N0pixY[22] :=10; N0pixY[23] :=10; N0pixY[24] :=10; N0pixY[25] :=11; N0pixY[26] :=11; N0pixY[27] :=11; N0pixY[28] :=11; N0pixY[29] :=12; N0pixY[30] :=12; N0pixY[31] :=12; N0pixY[32] :=12; N0pixY[33] :=13; N0pixY[34] :=13; N0pixY[35] :=13; N0pixY[36] :=13; //N1 number 1 N1pixY[1] :=5; N1pixY[2] :=5; N1pixY[3] :=6; N1pixY[4] :=6; N1pixY[5] :=6; N1pixY[6] :=6; N1pixY[7] :=7; N1pixY[8] :=7; N1pixY[9] :=8; N1pixY[10] :=8; N1pixY[11] :=9; N1pixY[12] :=9; N1pixY[13] :=10; N1pixY[14] :=10; N1pixY[15] :=11; N1pixY[16] :=11; N1pixY[17] :=12; N1pixY[18] :=12; N1pixY[19] :=13; N1pixY[20] :=13; N1pixY[21] :=13; N1pixY[22] :=13; N1pixY[23] :=13; N1pixY[24] :=13; //N1 number 2 N2pixY[1] :=5; N2pixY[2] :=5; N2pixY[3] :=5; N2pixY[4] :=5; N2pixY[5] :=6; N2pixY[6] :=6; N2pixY[7] :=6; N2pixY[8] :=6; N2pixY[9] :=7; N2pixY[10] :=7; N2pixY[11] :=8; N2pixY[12] :=8; N2pixY[13] :=9; N2pixY[14] :=9; N2pixY[15] :=10; N2pixY[16] :=10; N2pixY[17] :=11; N2pixY[18] :=11; N2pixY[19] :=12; N2pixY[20] :=12; N2pixY[21] :=13; N2pixY[22] :=13; N2pixY[23] :=13; N2pixY[24] :=13; N2pixY[25] :=13; N2pixY[26] :=13; //N1 number 3 N3pixY[1] :=5; N3pixY[2] :=5; N3pixY[3] :=5; N3pixY[4] :=5; N3pixY[5] :=6; N3pixY[6] :=6; N3pixY[7] :=6; N3pixY[8] :=6; N3pixY[9] :=7; N3pixY[10] :=7; N3pixY[11] :=8; N3pixY[12] :=8; N3pixY[13] :=9; N3pixY[14] :=9; N3pixY[15] :=9; N3pixY[16] :=10; N3pixY[17] :=10; N3pixY[18] :=11; N3pixY[19] :=11; N3pixY[20] :=12; N3pixY[21] :=12; N3pixY[22] :=12; N3pixY[23] :=12; N3pixY[24] :=13; N3pixY[25] :=13; N3pixY[26] :=13; N3pixY[27] :=13; //N1 number 4 N4pixY[1] :=5; N4pixY[2] :=5; N4pixY[3] :=6; N4pixY[4] :=6; N4pixY[5] :=6; N4pixY[6] :=7; N4pixY[7] :=7; N4pixY[8] :=7; N4pixY[9] :=8; N4pixY[10] :=8; N4pixY[11] :=8; N4pixY[12] :=8; N4pixY[13] :=9; N4pixY[14] :=9; N4pixY[15] :=9; N4pixY[16] :=9; N4pixY[17] :=10; N4pixY[18] :=10; N4pixY[19] :=10; N4pixY[20] :=10; N4pixY[21] :=11; N4pixY[22] :=11; N4pixY[23] :=11; N4pixY[24] :=11; N4pixY[25] :=11; N4pixY[26] :=11; N4pixY[27] :=12; N4pixY[28] :=12; N4pixY[29] :=13; N4pixY[30] :=13; N4pixY[31] :=13; N4pixY[32] :=13; //N1 number 5 N5pixY[1] :=5; N5pixY[2] :=5; N5pixY[3] :=5; N5pixY[4] :=5; N5pixY[5] :=5; N5pixY[6] :=5; N5pixY[7] :=6; N5pixY[8] :=6; N5pixY[9] :=7; N5pixY[10] :=7; N5pixY[11] :=8; N5pixY[12] :=8; N5pixY[13] :=9; N5pixY[14] :=9; N5pixY[15] :=9; N5pixY[16] :=9; N5pixY[17] :=9; N5pixY[18] :=10; N5pixY[19] :=10; N5pixY[20] :=11; N5pixY[21] :=11; N5pixY[22] :=12; N5pixY[23] :=12; N5pixY[24] :=12; N5pixY[25] :=12; N5pixY[26] :=13; N5pixY[27] :=13; N5pixY[28] :=13; N5pixY[29] :=13; //N1 number 6 N6pixY[1] :=5; N6pixY[2] :=5; N6pixY[3] :=5; N6pixY[4] :=6; N6pixY[5] :=6; N6pixY[6] :=7; N6pixY[7] :=7; N6pixY[8] :=8; N6pixY[9] :=8; N6pixY[10] :=9; N6pixY[11] :=9; N6pixY[12] :=9; N6pixY[13] :=9; N6pixY[14] :=9; N6pixY[15] :=10; N6pixY[16] :=10; N6pixY[17] :=10; N6pixY[18] :=10; N6pixY[19] :=11; N6pixY[20] :=11; N6pixY[21] :=11; N6pixY[22] :=11; N6pixY[23] :=12; N6pixY[24] :=12; N6pixY[25] :=12; N6pixY[26] :=12; N6pixY[27] :=13; N6pixY[28] :=13; N6pixY[29] :=13; N6pixY[30] :=13; //N1 number 7 N7pixY[1] :=5; N7pixY[2] :=5; N7pixY[3] :=5; N7pixY[4] :=5; N7pixY[5] :=5; N7pixY[6] :=5; N7pixY[7] :=6; N7pixY[8] :=6; N7pixY[9] :=6; N7pixY[10] :=6; N7pixY[11] :=7; N7pixY[12] :=7; N7pixY[13] :=8; N7pixY[14] :=8; N7pixY[15] :=9; N7pixY[16] :=9; N7pixY[17] :=10; N7pixY[18] :=10; N7pixY[19] :=11; N7pixY[20] :=11; N7pixY[21] :=12; N7pixY[22] :=12; N7pixY[23] :=13; N7pixY[24] :=13; //N1 number 8 N8pixY[1] :=5; N8pixY[2] :=5; N8pixY[3] :=5; N8pixY[4] :=5; N8pixY[5] :=6; N8pixY[6] :=6; N8pixY[7] :=6; N8pixY[8] :=6; N8pixY[9] :=7; N8pixY[10] :=7; N8pixY[11] :=7; N8pixY[12] :=7; N8pixY[13] :=8; N8pixY[14] :=8; N8pixY[15] :=8; N8pixY[16] :=8; N8pixY[17] :=9; N8pixY[18] :=9; N8pixY[19] :=9; N8pixY[20] :=9; N8pixY[21] :=10; N8pixY[22] :=10; N8pixY[23] :=10; N8pixY[24] :=10; N8pixY[25] :=11; N8pixY[26] :=11; N8pixY[27] :=11; N8pixY[28] :=11; N8pixY[29] :=12; N8pixY[30] :=12; N8pixY[31] :=12; N8pixY[32] :=12; N8pixY[33] :=13; N8pixY[34] :=13; N8pixY[35] :=13; N8pixY[36] :=13; //N1 number 9 N9pixY[1] :=5; N9pixY[2] :=5; N9pixY[3] :=5; N9pixY[4] :=5; N9pixY[5] :=6; N9pixY[6] :=6; N9pixY[7] :=6; N9pixY[8] :=6; N9pixY[9] :=7; N9pixY[10] :=7; N9pixY[11] :=7; N9pixY[12] :=7; N9pixY[13] :=8; N9pixY[14] :=8; N9pixY[15] :=8; N9pixY[16] :=8; N9pixY[17] :=9; N9pixY[18] :=9; N9pixY[19] :=9; N9pixY[20] :=9; N9pixY[21] :=9; N9pixY[22] :=10; N9pixY[23] :=10; N9pixY[24] :=11; N9pixY[25] :=11; N9pixY[26] :=12; N9pixY[27] :=12; N9pixY[28] :=13; N9pixY[29] :=13; N9pixY[30] :=13; //X N0pixX[1] :=6; N0pixX[2] :=7; N0pixX[3] :=8; N0pixX[4] :=9; N0pixX[5] :=5; N0pixX[6] :=6; N0pixX[7] :=9; N0pixX[8] :=10; N0pixX[9] :=5; N0pixX[10] :=6; N0pixX[11] :=9; N0pixX[12] :=10; N0pixX[13] :=5; N0pixX[14] :=6; N0pixX[15] :=9; N0pixX[16] :=10; N0pixX[17] :=5; N0pixX[18] :=6; N0pixX[19] :=9; N0pixX[20] :=10; N0pixX[21] :=5; N0pixX[22] :=6; N0pixX[23] :=9; N0pixX[24] :=10; N0pixX[25] :=5; N0pixX[26] :=6; N0pixX[27] :=9; N0pixX[28] :=10; N0pixX[29] :=5; N0pixX[30] :=6; N0pixX[31] :=9; N0pixX[32] :=10; N0pixX[33] :=6; N0pixX[34] :=7; N0pixX[35] :=8; N0pixX[36] :=9; //N1 number 1 N1pixX[1] :=7; N1pixX[2] :=8; N1pixX[3] :=5; N1pixX[4] :=6; N1pixX[5] :=7; N1pixX[6] :=8; N1pixX[7] :=7; N1pixX[8] :=8; N1pixX[9] :=7; N1pixX[10] :=8; N1pixX[11] :=7; N1pixX[12] :=8; N1pixX[13] :=7; N1pixX[14] :=8; N1pixX[15] :=7; N1pixX[16] :=8; N1pixX[17] :=7; N1pixX[18] :=8; N1pixX[19] :=5; N1pixX[20] :=6; N1pixX[21] :=7; N1pixX[22] :=8; N1pixX[23] :=9; N1pixX[24] :=10; //N1 number 2 N2pixX[1] :=6; N2pixX[2] :=7; N2pixX[3] :=8; N2pixX[4] :=9; N2pixX[5] :=5; N2pixX[6] :=6; N2pixX[7] :=9; N2pixX[8] :=10; N2pixX[9] :=9; N2pixX[10] :=10; N2pixX[11] :=9; N2pixX[12] :=10; N2pixX[13] :=8; N2pixX[14] :=9; N2pixX[15] :=7; N2pixX[16] :=8; N2pixX[17] :=6; N2pixX[18] :=7; N2pixX[19] :=5; N2pixX[20] :=6; N2pixX[21] :=5; N2pixX[22] :=6; N2pixX[23] :=7; N2pixX[24] :=8; N2pixX[25] :=9; N2pixX[26] :=10; //N1 number 3 N3pixX[1] :=6; N3pixX[2] :=7; N3pixX[3] :=8; N3pixX[4] :=9; N3pixX[5] :=5; N3pixX[6] :=6; N3pixX[7] :=9; N3pixX[8] :=10; N3pixX[9] :=9; N3pixX[10] :=10; N3pixX[11] :=9; N3pixX[12] :=10; N3pixX[13] :=7; N3pixX[14] :=8; N3pixX[15] :=9; N3pixX[16] :=9; N3pixX[17] :=10; N3pixX[18] :=9; N3pixX[19] :=10; N3pixX[20] :=9; N3pixX[21] :=10; N3pixX[22] :=5; N3pixX[23] :=6; N3pixX[24] :=6; N3pixX[25] :=7; N3pixX[26] :=8; N3pixX[27] :=9; //N1 number 4 N4pixX[1] :=8; N4pixX[2] :=9; N4pixX[3] :=7; N4pixX[4] :=8; N4pixX[5] :=9; N4pixX[6] :=7; N4pixX[7] :=8; N4pixX[8] :=9; N4pixX[9] :=6; N4pixX[10] :=7; N4pixX[11] :=8; N4pixX[12] :=9; N4pixX[13] :=6; N4pixX[14] :=7; N4pixX[15] :=8; N4pixX[16] :=9; N4pixX[17] :=5; N4pixX[18] :=6; N4pixX[19] :=8; N4pixX[20] :=9; N4pixX[21] :=5; N4pixX[22] :=6; N4pixX[23] :=7; N4pixX[24] :=8; N4pixX[25] :=9; N4pixX[26] :=10; N4pixX[27] :=8; N4pixX[28] :=9; N4pixX[29] :=7; N4pixX[30] :=8; N4pixX[31] :=9; N4pixX[32] :=10; //N1 number 5 N5pixX[1] :=5; N5pixX[2] :=6; N5pixX[3] :=7; N5pixX[4] :=8; N5pixX[5] :=9; N5pixX[6] :=10; N5pixX[7] :=5; N5pixX[8] :=6; N5pixX[9] :=5; N5pixX[10] :=6; N5pixX[11] :=5; N5pixX[12] :=6; N5pixX[13] :=5; N5pixX[14] :=6; N5pixX[15] :=7; N5pixX[16] :=8; N5pixX[17] :=9; N5pixX[18] :=9; N5pixX[19] :=10; N5pixX[20] :=9; N5pixX[21] :=10; N5pixX[22] :=9; N5pixX[23] :=10; N5pixX[24] :=5; N5pixX[25] :=6; N5pixX[26] :=6; N5pixX[27] :=7; N5pixX[28] :=8; N5pixX[29] :=9; //N1 number 6 N6pixX[1] :=7; N6pixX[2] :=8; N6pixX[3] :=9; N6pixX[4] :=6; N6pixX[5] :=7; N6pixX[6] :=5; N6pixX[7] :=6; N6pixX[8] :=5; N6pixX[9] :=6; N6pixX[10] :=5; N6pixX[11] :=6; N6pixX[12] :=7; N6pixX[13] :=8; N6pixX[14] :=9; N6pixX[15] :=5; N6pixX[16] :=6; N6pixX[17] :=9; N6pixX[18] :=10; N6pixX[19] :=5; N6pixX[20] :=6; N6pixX[21] :=9; N6pixX[22] :=10; N6pixX[23] :=5; N6pixX[24] :=6; N6pixX[25] :=9; N6pixX[26] :=10; N6pixX[27] :=6; N6pixX[28] :=7; N6pixX[29] :=8; N6pixX[30] :=9; //N1 number 7 N7pixX[1] :=5; N7pixX[2] :=6; N7pixX[3] :=7; N7pixX[4] :=8; N7pixX[5] :=9; N7pixX[6] :=10; N7pixX[7] :=5; N7pixX[8] :=6; N7pixX[9] :=9; N7pixX[10] :=10; N7pixX[11] :=9; N7pixX[12] :=10; N7pixX[13] :=8; N7pixX[14] :=9; N7pixX[15] :=8; N7pixX[16] :=9; N7pixX[17] :=7; N7pixX[18] :=8; N7pixX[19] :=7; N7pixX[20] :=8; N7pixX[21] :=6; N7pixX[22] :=7; N7pixX[23] :=6; N7pixX[24] :=7; //N1 number 8 N8pixX[1] :=6; N8pixX[2] :=7; N8pixX[3] :=8; N8pixX[4] :=9; N8pixX[5] :=5; N8pixX[6] :=6; N8pixX[7] :=9; N8pixX[8] :=10; N8pixX[9] :=5; N8pixX[10] :=6; N8pixX[11] :=9; N8pixX[12] :=10; N8pixX[13] :=5; N8pixX[14] :=6; N8pixX[15] :=9; N8pixX[16] :=10; N8pixX[17] :=6; N8pixX[18] :=7; N8pixX[19] :=8; N8pixX[20] :=9; N8pixX[21] :=5; N8pixX[22] :=6; N8pixX[23] :=9; N8pixX[24] :=10; N8pixX[25] :=5; N8pixX[26] :=6; N8pixX[27] :=9; N8pixX[28] :=10; N8pixX[29] :=5; N8pixX[30] :=6; N8pixX[31] :=9; N8pixX[32] :=10; N8pixX[33] :=6; N8pixX[34] :=7; N8pixX[35] :=8; N8pixX[36] :=9; //N1 number 9 N9pixX[1] :=6; N9pixX[2] :=7; N9pixX[3] :=8; N9pixX[4] :=9; N9pixX[5] :=5; N9pixX[6] :=6; N9pixX[7] :=9; N9pixX[8] :=10; N9pixX[9] :=5; N9pixX[10] :=6; N9pixX[11] :=9; N9pixX[12] :=10; N9pixX[13] :=5; N9pixX[14] :=6; N9pixX[15] :=9; N9pixX[16] :=10; N9pixX[17] :=6; N9pixX[18] :=7; N9pixX[19] :=8; N9pixX[20] :=9; N9pixX[21] :=10; N9pixX[22] :=9; N9pixX[23] :=10; N9pixX[24] :=9; N9pixX[25] :=10; N9pixX[26] :=8; N9pixX[27] :=9; N9pixX[28] :=6; N9pixX[29] :=7; N9pixX[30] :=8; /////////////////////////////////////////////////////////////////////////////// ///Load number.gif///////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////////// GF := TBitMap.Create; GIF := TGIFimage.Create; GIF.LoadFromFile('number.gif');//Загружаем скаченый файл GF.Assign(GIF); /////////////////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////////// N0Color[1] := GF.Canvas.Pixels[N0pixX[1],N0pixY[1]]; N0Color[2] := GF.Canvas.Pixels[N0pixX[2],N0pixY[2]]; N0Color[3] := GF.Canvas.Pixels[N0pixX[3],N0pixY[3]]; N0Color[4] := GF.Canvas.Pixels[N0pixX[4],N0pixY[4]]; N0Color[5] := GF.Canvas.Pixels[N0pixX[5],N0pixY[5]]; N0Color[6] := GF.Canvas.Pixels[N0pixX[6],N0pixY[6]]; N0Color[7] := GF.Canvas.Pixels[N0pixX[7],N0pixY[7]]; N0Color[8] := GF.Canvas.Pixels[N0pixX[8],N0pixY[8]]; N0Color[9] := GF.Canvas.Pixels[N0pixX[9],N0pixY[9]]; N0Color[10] := GF.Canvas.Pixels[N0pixX[10],N0pixY[10]]; N0Color[11] := GF.Canvas.Pixels[N0pixX[11],N0pixY[11]]; N0Color[12] := GF.Canvas.Pixels[N0pixX[12],N0pixY[12]]; N0Color[13] := GF.Canvas.Pixels[N0pixX[13],N0pixY[13]]; N0Color[14] := GF.Canvas.Pixels[N0pixX[14],N0pixY[14]]; N0Color[15] := GF.Canvas.Pixels[N0pixX[15],N0pixY[15]]; N0Color[16] := GF.Canvas.Pixels[N0pixX[16],N0pixY[16]]; N0Color[17] := GF.Canvas.Pixels[N0pixX[17],N0pixY[17]]; N0Color[18] := GF.Canvas.Pixels[N0pixX[18],N0pixY[18]]; N0Color[19] := GF.Canvas.Pixels[N0pixX[19],N0pixY[19]]; N0Color[20] := GF.Canvas.Pixels[N0pixX[20],N0pixY[20]]; N0Color[21] := GF.Canvas.Pixels[N0pixX[21],N0pixY[21]]; N0Color[22] := GF.Canvas.Pixels[N0pixX[22],N0pixY[22]]; N0Color[23] := GF.Canvas.Pixels[N0pixX[23],N0pixY[23]]; N0Color[24] := GF.Canvas.Pixels[N0pixX[24],N0pixY[24]]; N0Color[25] := GF.Canvas.Pixels[N0pixX[25],N0pixY[25]]; N0Color[26] := GF.Canvas.Pixels[N0pixX[26],N0pixY[26]]; N0Color[27] := GF.Canvas.Pixels[N0pixX[27],N0pixY[27]]; N0Color[28] := GF.Canvas.Pixels[N0pixX[28],N0pixY[28]]; N0Color[29] := GF.Canvas.Pixels[N0pixX[29],N0pixY[29]]; N0Color[30] := GF.Canvas.Pixels[N0pixX[30],N0pixY[30]]; N0Color[31] := GF.Canvas.Pixels[N0pixX[31],N0pixY[31]]; N0Color[32] := GF.Canvas.Pixels[N0pixX[32],N0pixY[32]]; N0Color[33] := GF.Canvas.Pixels[N0pixX[33],N0pixY[33]]; N0Color[34] := GF.Canvas.Pixels[N0pixX[34],N0pixY[34]]; N0Color[35] := GF.Canvas.Pixels[N0pixX[35],N0pixY[35]]; N0Color[36] := GF.Canvas.Pixels[N0pixX[36],N0pixY[36]]; if (N0Color[1]=$00000000) and (N0Color[2]=$00000000) and (N0Color[3]=$00000000) and (N0Color[4]=$00000000) and (N0Color[5]=$00000000) and (N0Color[6]=$00000000) and (N0Color[7]=$00000000) and (N0Color[8]=$00000000) and (N0Color[9]=$00000000) and (N0Color[10]=$00000000) and (N0Color[11]=$00000000) and (N0Color[12]=$00000000) and (N0Color[13]=$00000000) and (N0Color[14]=$00000000) and (N0Color[15]=$00000000) and (N0Color[16]=$00000000) and (N0Color[17]=$00000000) and (N0Color[18]=$00000000) and (N0Color[19]=$00000000) and (N0Color[20]=$00000000) and (N0Color[21]=$00000000) and (N0Color[22]=$00000000) and (N0Color[23]=$00000000) and (N0Color[24]=$00000000) and (N0Color[25]=$00000000) and (N0Color[26]=$00000000) and (N0Color[27]=$00000000) and (N0Color[28]=$00000000) and (N0Color[29]=$00000000) and (N0Color[30]=$00000000) and (N0Color[31]=$00000000) and (N0Color[32]=$00000000) and (N0Color[33]=$00000000) and (N0Color[34]=$00000000) and (N0Color[35]=$00000000) and (N0Color[36]=$00000000) then StrHGIF1 := '0' else N1Color[1] := GF.Canvas.Pixels[N1pixX[1],N1pixY[1]]; N1Color[2] := GF.Canvas.Pixels[N1pixX[2],N1pixY[2]]; N1Color[3] := GF.Canvas.Pixels[N1pixX[3],N1pixY[3]]; N1Color[4] := GF.Canvas.Pixels[N1pixX[4],N1pixY[4]]; N1Color[5] := GF.Canvas.Pixels[N1pixX[5],N1pixY[5]]; N1Color[6] := GF.Canvas.Pixels[N1pixX[6],N1pixY[6]]; N1Color[7] := GF.Canvas.Pixels[N1pixX[7],N1pixY[7]]; N1Color[8] := GF.Canvas.Pixels[N1pixX[8],N1pixY[8]]; N1Color[9] := GF.Canvas.Pixels[N1pixX[9],N1pixY[9]]; N1Color[10] := GF.Canvas.Pixels[N1pixX[10],N1pixY[10]]; N1Color[11] := GF.Canvas.Pixels[N1pixX[11],N1pixY[11]]; N1Color[12] := GF.Canvas.Pixels[N1pixX[12],N1pixY[12]]; N1Color[13] := GF.Canvas.Pixels[N1pixX[13],N1pixY[13]]; N1Color[14] := GF.Canvas.Pixels[N1pixX[14],N1pixY[14]]; N1Color[15] := GF.Canvas.Pixels[N1pixX[15],N1pixY[15]]; N1Color[16] := GF.Canvas.Pixels[N1pixX[16],N1pixY[16]]; N1Color[17] := GF.Canvas.Pixels[N1pixX[17],N1pixY[17]]; N1Color[18] := GF.Canvas.Pixels[N1pixX[18],N1pixY[18]]; N1Color[19] := GF.Canvas.Pixels[N1pixX[19],N1pixY[19]]; N1Color[20] := GF.Canvas.Pixels[N1pixX[20],N1pixY[20]]; N1Color[21] := GF.Canvas.Pixels[N1pixX[21],N1pixY[21]]; N1Color[22] := GF.Canvas.Pixels[N1pixX[22],N1pixY[22]]; N1Color[23] := GF.Canvas.Pixels[N1pixX[23],N1pixY[23]]; N1Color[24] := GF.Canvas.Pixels[N1pixX[24],N1pixY[24]]; if (N1Color[1]=$00000000) and (N1Color[2]=$00000000) and (N1Color[3]=$00000000) and (N1Color[4]=$00000000) and (N1Color[5]=$00000000) and (N1Color[6]=$00000000) and (N1Color[7]=$00000000) and (N1Color[8]=$00000000) and (N1Color[9]=$00000000) and (N1Color[10]=$00000000) and (N1Color[11]=$00000000) and (N1Color[12]=$00000000) and (N1Color[13]=$00000000) and (N1Color[14]=$00000000) and (N1Color[15]=$00000000) and (N1Color[16]=$00000000) and (N1Color[17]=$00000000) and (N1Color[18]=$00000000) and (N1Color[19]=$00000000) and (N1Color[20]=$00000000) and (N1Color[21]=$00000000) and (N1Color[22]=$00000000) and (N1Color[23]=$00000000) and (N1Color[24]=$00000000) then StrHGIF1 := '1' else N2Color[1] := GF.Canvas.Pixels[N2pixX[1],N2pixY[1]]; N2Color[2] := GF.Canvas.Pixels[N2pixX[2],N2pixY[2]]; N2Color[3] := GF.Canvas.Pixels[N2pixX[3],N2pixY[3]]; N2Color[4] := GF.Canvas.Pixels[N2pixX[4],N2pixY[4]]; N2Color[5] := GF.Canvas.Pixels[N2pixX[5],N2pixY[5]]; N2Color[6] := GF.Canvas.Pixels[N2pixX[6],N2pixY[6]]; N2Color[7] := GF.Canvas.Pixels[N2pixX[7],N2pixY[7]]; N2Color[8] := GF.Canvas.Pixels[N2pixX[8],N2pixY[8]]; N2Color[9] := GF.Canvas.Pixels[N2pixX[9],N2pixY[9]]; N2Color[10] := GF.Canvas.Pixels[N2pixX[10],N2pixY[10]]; N2Color[11] := GF.Canvas.Pixels[N2pixX[11],N2pixY[11]]; N2Color[12] := GF.Canvas.Pixels[N2pixX[12],N2pixY[12]]; N2Color[13] := GF.Canvas.Pixels[N2pixX[13],N2pixY[13]]; N2Color[14] := GF.Canvas.Pixels[N2pixX[14],N2pixY[14]]; N2Color[15] := GF.Canvas.Pixels[N2pixX[15],N2pixY[15]]; N2Color[16] := GF.Canvas.Pixels[N2pixX[16],N2pixY[16]]; N2Color[17] := GF.Canvas.Pixels[N2pixX[17],N2pixY[17]]; N2Color[18] := GF.Canvas.Pixels[N2pixX[18],N2pixY[18]]; N2Color[19] := GF.Canvas.Pixels[N2pixX[19],N2pixY[19]]; N2Color[20] := GF.Canvas.Pixels[N2pixX[20],N2pixY[20]]; N2Color[21] := GF.Canvas.Pixels[N2pixX[21],N2pixY[21]]; N2Color[22] := GF.Canvas.Pixels[N2pixX[22],N2pixY[22]]; N2Color[23] := GF.Canvas.Pixels[N2pixX[23],N2pixY[23]]; N2Color[24] := GF.Canvas.Pixels[N2pixX[24],N2pixY[24]]; N2Color[25] := GF.Canvas.Pixels[N2pixX[25],N2pixY[25]]; N2Color[26] := GF.Canvas.Pixels[N2pixX[26],N2pixY[26]]; if (N2Color[1]=$00000000) and (N2Color[2]=$00000000) and (N2Color[3]=$00000000) and (N2Color[4]=$00000000) and (N2Color[5]=$00000000) and (N2Color[6]=$00000000) and (N2Color[7]=$00000000) and (N2Color[8]=$00000000) and (N2Color[9]=$00000000) and (N2Color[10]=$00000000) and (N2Color[11]=$00000000) and (N2Color[12]=$00000000) and (N2Color[13]=$00000000) and (N2Color[14]=$00000000) and (N2Color[15]=$00000000) and (N2Color[16]=$00000000) and (N2Color[17]=$00000000) and (N2Color[18]=$00000000) and (N2Color[19]=$00000000) and (N2Color[20]=$00000000) and (N2Color[21]=$00000000) and (N2Color[22]=$00000000) and (N2Color[23]=$00000000) and (N2Color[24]=$00000000) and (N2Color[25]=$00000000) and (N2Color[26]=$00000000) then StrHGIF1 := '2' else N3Color[1] := GF.Canvas.Pixels[N3pixX[1],N3pixY[1]]; N3Color[2] := GF.Canvas.Pixels[N3pixX[2],N3pixY[2]]; N3Color[3] := GF.Canvas.Pixels[N3pixX[3],N3pixY[3]]; N3Color[4] := GF.Canvas.Pixels[N3pixX[4],N3pixY[4]]; N3Color[5] := GF.Canvas.Pixels[N3pixX[5],N3pixY[5]]; N3Color[6] := GF.Canvas.Pixels[N3pixX[6],N3pixY[6]]; N3Color[7] := GF.Canvas.Pixels[N3pixX[7],N3pixY[7]]; N3Color[8] := GF.Canvas.Pixels[N3pixX[8],N3pixY[8]]; N3Color[9] := GF.Canvas.Pixels[N3pixX[9],N3pixY[9]]; N3Color[10] := GF.Canvas.Pixels[N3pixX[10],N3pixY[10]]; N3Color[11] := GF.Canvas.Pixels[N3pixX[11],N3pixY[11]]; N3Color[12] := GF.Canvas.Pixels[N3pixX[12],N3pixY[12]]; N3Color[13] := GF.Canvas.Pixels[N3pixX[13],N3pixY[13]]; N3Color[14] := GF.Canvas.Pixels[N3pixX[14],N3pixY[14]]; N3Color[15] := GF.Canvas.Pixels[N3pixX[15],N3pixY[15]]; N3Color[16] := GF.Canvas.Pixels[N3pixX[16],N3pixY[16]]; N3Color[17] := GF.Canvas.Pixels[N3pixX[17],N3pixY[17]]; N3Color[18] := GF.Canvas.Pixels[N3pixX[18],N3pixY[18]]; N3Color[19] := GF.Canvas.Pixels[N3pixX[19],N3pixY[19]]; N3Color[20] := GF.Canvas.Pixels[N3pixX[20],N3pixY[20]]; N3Color[21] := GF.Canvas.Pixels[N3pixX[21],N3pixY[21]]; N3Color[22] := GF.Canvas.Pixels[N3pixX[22],N3pixY[22]]; N3Color[23] := GF.Canvas.Pixels[N3pixX[23],N3pixY[23]]; N3Color[24] := GF.Canvas.Pixels[N3pixX[24],N3pixY[24]]; N3Color[25] := GF.Canvas.Pixels[N3pixX[25],N3pixY[25]]; N3Color[26] := GF.Canvas.Pixels[N3pixX[26],N3pixY[26]]; N3Color[27] := GF.Canvas.Pixels[N3pixX[27],N3pixY[27]]; if (N3Color[1]=$00000000) and (N3Color[2]=$00000000) and (N3Color[3]=$00000000) and (N3Color[4]=$00000000) and (N3Color[5]=$00000000) and (N3Color[6]=$00000000) and (N3Color[7]=$00000000) and (N3Color[8]=$00000000) and (N3Color[9]=$00000000) and (N3Color[10]=$00000000) and (N3Color[11]=$00000000) and (N3Color[12]=$00000000) and (N3Color[13]=$00000000) and (N3Color[14]=$00000000) and (N3Color[15]=$00000000) and (N3Color[16]=$00000000) and (N3Color[17]=$00000000) and (N3Color[18]=$00000000) and (N3Color[19]=$00000000) and (N3Color[20]=$00000000) and (N3Color[21]=$00000000) and (N3Color[22]=$00000000) and (N3Color[23]=$00000000) and (N3Color[24]=$00000000) and (N3Color[25]=$00000000) and (N3Color[26]=$00000000) and (N3Color[27]=$00000000) then StrHGIF1 := '3' else N4Color[1] := GF.Canvas.Pixels[N4pixX[1],N4pixY[1]]; N4Color[2] := GF.Canvas.Pixels[N4pixX[2],N4pixY[2]]; N4Color[3] := GF.Canvas.Pixels[N4pixX[3],N4pixY[3]]; N4Color[4] := GF.Canvas.Pixels[N4pixX[4],N4pixY[4]]; N4Color[5] := GF.Canvas.Pixels[N4pixX[5],N4pixY[5]]; N4Color[6] := GF.Canvas.Pixels[N4pixX[6],N4pixY[6]]; N4Color[7] := GF.Canvas.Pixels[N4pixX[7],N4pixY[7]]; N4Color[8] := GF.Canvas.Pixels[N4pixX[8],N4pixY[8]]; N4Color[9] := GF.Canvas.Pixels[N4pixX[9],N4pixY[9]]; N4Color[10] := GF.Canvas.Pixels[N4pixX[10],N4pixY[10]]; N4Color[11] := GF.Canvas.Pixels[N4pixX[11],N4pixY[11]]; N4Color[12] := GF.Canvas.Pixels[N4pixX[12],N4pixY[12]]; N4Color[13] := GF.Canvas.Pixels[N4pixX[13],N4pixY[13]]; N4Color[14] := GF.Canvas.Pixels[N4pixX[14],N4pixY[14]]; N4Color[15] := GF.Canvas.Pixels[N4pixX[15],N4pixY[15]]; N4Color[16] := GF.Canvas.Pixels[N4pixX[16],N4pixY[16]]; N4Color[17] := GF.Canvas.Pixels[N4pixX[17],N4pixY[17]]; N4Color[18] := GF.Canvas.Pixels[N4pixX[18],N4pixY[18]]; N4Color[19] := GF.Canvas.Pixels[N4pixX[19],N4pixY[19]]; N4Color[20] := GF.Canvas.Pixels[N4pixX[20],N4pixY[20]]; N4Color[21] := GF.Canvas.Pixels[N4pixX[21],N4pixY[21]]; N4Color[22] := GF.Canvas.Pixels[N4pixX[22],N4pixY[22]]; N4Color[23] := GF.Canvas.Pixels[N4pixX[23],N4pixY[23]]; N4Color[24] := GF.Canvas.Pixels[N4pixX[24],N4pixY[24]]; N4Color[25] := GF.Canvas.Pixels[N4pixX[25],N4pixY[25]]; N4Color[26] := GF.Canvas.Pixels[N4pixX[26],N4pixY[26]]; N4Color[27] := GF.Canvas.Pixels[N4pixX[27],N4pixY[27]]; N4Color[28] := GF.Canvas.Pixels[N4pixX[28],N4pixY[28]]; N4Color[29] := GF.Canvas.Pixels[N4pixX[29],N4pixY[29]]; N4Color[30] := GF.Canvas.Pixels[N4pixX[30],N4pixY[30]]; N4Color[31] := GF.Canvas.Pixels[N4pixX[31],N4pixY[31]]; N4Color[32] := GF.Canvas.Pixels[N4pixX[32],N4pixY[32]]; if (N4Color[1]=$00000000) and (N4Color[2]=$00000000) and (N4Color[3]=$00000000) and (N4Color[4]=$00000000) and (N4Color[5]=$00000000) and (N4Color[6]=$00000000) and (N4Color[7]=$00000000) and (N4Color[8]=$00000000) and (N4Color[9]=$00000000) and (N4Color[10]=$00000000) and (N4Color[11]=$00000000) and (N4Color[12]=$00000000) and (N4Color[13]=$00000000) and (N4Color[14]=$00000000) and (N4Color[15]=$00000000) and (N4Color[16]=$00000000) and (N4Color[17]=$00000000) and (N4Color[18]=$00000000) and (N4Color[19]=$00000000) and (N4Color[20]=$00000000) and (N4Color[21]=$00000000) and (N4Color[22]=$00000000) and (N4Color[23]=$00000000) and (N4Color[24]=$00000000) and (N4Color[25]=$00000000) and (N4Color[26]=$00000000) and (N4Color[27]=$00000000) and (N4Color[28]=$00000000) and (N4Color[29]=$00000000) and (N4Color[30]=$00000000) and (N4Color[31]=$00000000) and (N4Color[32]=$00000000) then StrHGIF1 := '4' else N5Color[1] := GF.Canvas.Pixels[N5pixX[1],N5pixY[1]]; N5Color[2] := GF.Canvas.Pixels[N5pixX[2],N5pixY[2]]; N5Color[3] := GF.Canvas.Pixels[N5pixX[3],N5pixY[3]]; N5Color[4] := GF.Canvas.Pixels[N5pixX[4],N5pixY[4]]; N5Color[5] := GF.Canvas.Pixels[N5pixX[5],N5pixY[5]]; N5Color[6] := GF.Canvas.Pixels[N5pixX[6],N5pixY[6]]; N5Color[7] := GF.Canvas.Pixels[N5pixX[7],N5pixY[7]]; N5Color[8] := GF.Canvas.Pixels[N5pixX[8],N5pixY[8]]; N5Color[9] := GF.Canvas.Pixels[N5pixX[9],N5pixY[9]]; N5Color[10] := GF.Canvas.Pixels[N5pixX[10],N5pixY[10]]; N5Color[11] := GF.Canvas.Pixels[N5pixX[11],N5pixY[11]]; N5Color[12] := GF.Canvas.Pixels[N5pixX[12],N5pixY[12]]; N5Color[13] := GF.Canvas.Pixels[N5pixX[13],N5pixY[13]]; N5Color[14] := GF.Canvas.Pixels[N5pixX[14],N5pixY[14]]; N5Color[15] := GF.Canvas.Pixels[N5pixX[15],N5pixY[15]]; N5Color[16] := GF.Canvas.Pixels[N5pixX[16],N5pixY[16]]; N5Color[17] := GF.Canvas.Pixels[N5pixX[17],N5pixY[17]]; N5Color[18] := GF.Canvas.Pixels[N5pixX[18],N5pixY[18]]; N5Color[19] := GF.Canvas.Pixels[N5pixX[19],N5pixY[19]]; N5Color[20] := GF.Canvas.Pixels[N5pixX[20],N5pixY[20]]; N5Color[21] := GF.Canvas.Pixels[N5pixX[21],N5pixY[21]]; N5Color[22] := GF.Canvas.Pixels[N5pixX[22],N5pixY[22]]; N5Color[23] := GF.Canvas.Pixels[N5pixX[23],N5pixY[23]]; N5Color[24] := GF.Canvas.Pixels[N5pixX[24],N5pixY[24]]; N5Color[25] := GF.Canvas.Pixels[N5pixX[25],N5pixY[25]]; N5Color[26] := GF.Canvas.Pixels[N5pixX[26],N5pixY[26]]; N5Color[27] := GF.Canvas.Pixels[N5pixX[27],N5pixY[27]]; N5Color[28] := GF.Canvas.Pixels[N5pixX[28],N5pixY[28]]; N5Color[29] := GF.Canvas.Pixels[N5pixX[29],N5pixY[29]]; if (N5Color[1]=$00000000) and (N5Color[2]=$00000000) and (N5Color[3]=$00000000) and (N5Color[4]=$00000000) and (N5Color[5]=$00000000) and (N5Color[6]=$00000000) and (N5Color[7]=$00000000) and (N5Color[8]=$00000000) and (N5Color[9]=$00000000) and (N5Color[10]=$00000000) and (N5Color[11]=$00000000) and (N5Color[12]=$00000000) and (N5Color[13]=$00000000) and (N5Color[14]=$00000000) and (N5Color[15]=$00000000) and (N5Color[16]=$00000000) and (N5Color[17]=$00000000) and (N5Color[18]=$00000000) and (N5Color[19]=$00000000) and (N5Color[20]=$00000000) and (N5Color[21]=$00000000) and (N5Color[22]=$00000000) and (N5Color[23]=$00000000) and (N5Color[24]=$00000000) and (N5Color[25]=$00000000) and (N5Color[26]=$00000000) and (N5Color[27]=$00000000) and (N5Color[28]=$00000000) and (N5Color[29]=$00000000) then StrHGIF1 := '5' else N6Color[1] := GF.Canvas.Pixels[N6pixX[1],N6pixY[1]]; N6Color[2] := GF.Canvas.Pixels[N6pixX[2],N6pixY[2]]; N6Color[3] := GF.Canvas.Pixels[N6pixX[3],N6pixY[3]]; N6Color[4] := GF.Canvas.Pixels[N6pixX[4],N6pixY[4]]; N6Color[5] := GF.Canvas.Pixels[N6pixX[5],N6pixY[5]]; N6Color[6] := GF.Canvas.Pixels[N6pixX[6],N6pixY[6]]; N6Color[7] := GF.Canvas.Pixels[N6pixX[7],N6pixY[7]]; N6Color[8] := GF.Canvas.Pixels[N6pixX[8],N6pixY[8]]; N6Color[9] := GF.Canvas.Pixels[N6pixX[9],N6pixY[9]]; N6Color[10] := GF.Canvas.Pixels[N6pixX[10],N6pixY[10]]; N6Color[11] := GF.Canvas.Pixels[N6pixX[11],N6pixY[11]]; N6Color[12] := GF.Canvas.Pixels[N6pixX[12],N6pixY[12]]; N6Color[13] := GF.Canvas.Pixels[N6pixX[13],N6pixY[13]]; N6Color[14] := GF.Canvas.Pixels[N6pixX[14],N6pixY[14]]; N6Color[15] := GF.Canvas.Pixels[N6pixX[15],N6pixY[15]]; N6Color[16] := GF.Canvas.Pixels[N6pixX[16],N6pixY[16]]; N6Color[17] := GF.Canvas.Pixels[N6pixX[17],N6pixY[17]]; N6Color[18] := GF.Canvas.Pixels[N6pixX[18],N6pixY[18]]; N6Color[19] := GF.Canvas.Pixels[N6pixX[19],N6pixY[19]]; N6Color[20] := GF.Canvas.Pixels[N6pixX[20],N6pixY[20]]; N6Color[21] := GF.Canvas.Pixels[N6pixX[21],N6pixY[21]]; N6Color[22] := GF.Canvas.Pixels[N6pixX[22],N6pixY[22]]; N6Color[23] := GF.Canvas.Pixels[N6pixX[23],N6pixY[23]]; N6Color[24] := GF.Canvas.Pixels[N6pixX[24],N6pixY[24]]; N6Color[25] := GF.Canvas.Pixels[N6pixX[25],N6pixY[25]]; N6Color[26] := GF.Canvas.Pixels[N6pixX[26],N6pixY[26]]; N6Color[27] := GF.Canvas.Pixels[N6pixX[27],N6pixY[27]]; N6Color[28] := GF.Canvas.Pixels[N6pixX[28],N6pixY[28]]; N6Color[29] := GF.Canvas.Pixels[N6pixX[29],N6pixY[29]]; N6Color[30] := GF.Canvas.Pixels[N6pixX[30],N6pixY[30]]; if (N6Color[1]=$00000000) and (N6Color[2]=$00000000) and (N6Color[3]=$00000000) and (N6Color[4]=$00000000) and (N6Color[5]=$00000000) and (N6Color[6]=$00000000) and (N6Color[7]=$00000000) and (N6Color[8]=$00000000) and (N6Color[9]=$00000000) and (N6Color[10]=$00000000) and (N6Color[11]=$00000000) and (N6Color[12]=$00000000) and (N6Color[13]=$00000000) and (N6Color[14]=$00000000) and (N6Color[15]=$00000000) and (N6Color[16]=$00000000) and (N6Color[17]=$00000000) and (N6Color[18]=$00000000) and (N6Color[19]=$00000000) and (N6Color[20]=$00000000) and (N6Color[21]=$00000000) and (N6Color[22]=$00000000) and (N6Color[23]=$00000000) and (N6Color[24]=$00000000) and (N6Color[25]=$00000000) and (N6Color[26]=$00000000) and (N6Color[27]=$00000000) and (N6Color[28]=$00000000) and (N6Color[29]=$00000000) and (N6Color[30]=$00000000) then StrHGIF1 := '6' else N7Color[1] := GF.Canvas.Pixels[N7pixX[1],N7pixY[1]]; N7Color[2] := GF.Canvas.Pixels[N7pixX[2],N7pixY[2]]; N7Color[3] := GF.Canvas.Pixels[N7pixX[3],N7pixY[3]]; N7Color[4] := GF.Canvas.Pixels[N7pixX[4],N7pixY[4]]; N7Color[5] := GF.Canvas.Pixels[N7pixX[5],N7pixY[5]]; N7Color[6] := GF.Canvas.Pixels[N7pixX[6],N7pixY[6]]; N7Color[7] := GF.Canvas.Pixels[N7pixX[7],N7pixY[7]]; N7Color[8] := GF.Canvas.Pixels[N7pixX[8],N7pixY[8]]; N7Color[9] := GF.Canvas.Pixels[N7pixX[9],N7pixY[9]]; N7Color[10] := GF.Canvas.Pixels[N7pixX[10],N7pixY[10]]; N7Color[11] := GF.Canvas.Pixels[N7pixX[11],N7pixY[11]]; N7Color[12] := GF.Canvas.Pixels[N7pixX[12],N7pixY[12]]; N7Color[13] := GF.Canvas.Pixels[N7pixX[13],N7pixY[13]]; N7Color[14] := GF.Canvas.Pixels[N7pixX[14],N7pixY[14]]; N7Color[15] := GF.Canvas.Pixels[N7pixX[15],N7pixY[15]]; N7Color[16] := GF.Canvas.Pixels[N7pixX[16],N7pixY[16]]; N7Color[17] := GF.Canvas.Pixels[N7pixX[17],N7pixY[17]]; N7Color[18] := GF.Canvas.Pixels[N7pixX[18],N7pixY[18]]; N7Color[19] := GF.Canvas.Pixels[N7pixX[19],N7pixY[19]]; N7Color[20] := GF.Canvas.Pixels[N7pixX[20],N7pixY[20]]; N7Color[21] := GF.Canvas.Pixels[N7pixX[21],N7pixY[21]]; N7Color[22] := GF.Canvas.Pixels[N7pixX[22],N7pixY[22]]; N7Color[23] := GF.Canvas.Pixels[N7pixX[23],N7pixY[23]]; N7Color[24] := GF.Canvas.Pixels[N7pixX[24],N7pixY[24]]; if (N7Color[1]=$00000000) and (N7Color[2]=$00000000) and (N7Color[3]=$00000000) and (N7Color[4]=$00000000) and (N7Color[5]=$00000000) and (N7Color[6]=$00000000) and (N7Color[7]=$00000000) and (N7Color[8]=$00000000) and (N7Color[9]=$00000000) and (N7Color[10]=$00000000) and (N7Color[11]=$00000000) and (N7Color[12]=$00000000) and (N7Color[13]=$00000000) and (N7Color[14]=$00000000) and (N7Color[15]=$00000000) and (N7Color[16]=$00000000) and (N7Color[17]=$00000000) and (N7Color[18]=$00000000) and (N7Color[19]=$00000000) and (N7Color[20]=$00000000) and (N7Color[21]=$00000000) and (N7Color[22]=$00000000) and (N7Color[23]=$00000000) and (N7Color[24]=$00000000) then StrHGIF1 := '7' else N8Color[1] := GF.Canvas.Pixels[N8pixX[1],N8pixY[1]]; N8Color[2] := GF.Canvas.Pixels[N8pixX[2],N8pixY[2]]; N8Color[3] := GF.Canvas.Pixels[N8pixX[3],N8pixY[3]]; N8Color[4] := GF.Canvas.Pixels[N8pixX[4],N8pixY[4]]; N8Color[5] := GF.Canvas.Pixels[N8pixX[5],N8pixY[5]]; N8Color[6] := GF.Canvas.Pixels[N8pixX[6],N8pixY[6]]; N8Color[7] := GF.Canvas.Pixels[N8pixX[7],N8pixY[7]]; N8Color[8] := GF.Canvas.Pixels[N8pixX[8],N8pixY[8]]; N8Color[9] := GF.Canvas.Pixels[N8pixX[9],N8pixY[9]]; N8Color[10] := GF.Canvas.Pixels[N8pixX[10],N8pixY[10]]; N8Color[11] := GF.Canvas.Pixels[N8pixX[11],N8pixY[11]]; N8Color[12] := GF.Canvas.Pixels[N8pixX[12],N8pixY[12]]; N8Color[13] := GF.Canvas.Pixels[N8pixX[13],N8pixY[13]]; N8Color[14] := GF.Canvas.Pixels[N8pixX[14],N8pixY[14]]; N8Color[15] := GF.Canvas.Pixels[N8pixX[15],N8pixY[15]]; N8Color[16] := GF.Canvas.Pixels[N8pixX[16],N8pixY[16]]; N8Color[17] := GF.Canvas.Pixels[N8pixX[17],N8pixY[17]]; N8Color[18] := GF.Canvas.Pixels[N8pixX[18],N8pixY[18]]; N8Color[19] := GF.Canvas.Pixels[N8pixX[19],N8pixY[19]]; N8Color[20] := GF.Canvas.Pixels[N8pixX[20],N8pixY[20]]; N8Color[21] := GF.Canvas.Pixels[N8pixX[21],N8pixY[21]]; N8Color[22] := GF.Canvas.Pixels[N8pixX[22],N8pixY[22]]; N8Color[23] := GF.Canvas.Pixels[N8pixX[23],N8pixY[23]]; N8Color[24] := GF.Canvas.Pixels[N8pixX[24],N8pixY[24]]; N8Color[25] := GF.Canvas.Pixels[N8pixX[25],N8pixY[25]]; N8Color[26] := GF.Canvas.Pixels[N8pixX[26],N8pixY[26]]; N8Color[27] := GF.Canvas.Pixels[N8pixX[27],N8pixY[27]]; N8Color[28] := GF.Canvas.Pixels[N8pixX[28],N8pixY[28]]; N8Color[29] := GF.Canvas.Pixels[N8pixX[29],N8pixY[29]]; N8Color[30] := GF.Canvas.Pixels[N8pixX[30],N8pixY[30]]; N8Color[31] := GF.Canvas.Pixels[N8pixX[31],N8pixY[31]]; N8Color[32] := GF.Canvas.Pixels[N8pixX[32],N8pixY[32]]; N8Color[33] := GF.Canvas.Pixels[N8pixX[33],N8pixY[33]]; N8Color[34] := GF.Canvas.Pixels[N8pixX[34],N8pixY[34]]; N8Color[35] := GF.Canvas.Pixels[N8pixX[35],N8pixY[35]]; N8Color[36] := GF.Canvas.Pixels[N8pixX[36],N8pixY[36]]; if (N8Color[1]=$00000000) and (N8Color[2]=$00000000) and (N8Color[3]=$00000000) and (N8Color[4]=$00000000) and (N8Color[5]=$00000000) and (N8Color[6]=$00000000) and (N8Color[7]=$00000000) and (N8Color[8]=$00000000) and (N8Color[9]=$00000000) and (N8Color[10]=$00000000) and (N8Color[11]=$00000000) and (N8Color[12]=$00000000) and (N8Color[13]=$00000000) and (N8Color[14]=$00000000) and (N8Color[15]=$00000000) and (N8Color[16]=$00000000) and (N8Color[17]=$00000000) and (N8Color[18]=$00000000) and (N8Color[19]=$00000000) and (N8Color[20]=$00000000) and (N8Color[21]=$00000000) and (N8Color[22]=$00000000) and (N8Color[23]=$00000000) and (N8Color[24]=$00000000) and (N8Color[25]=$00000000) and (N8Color[26]=$00000000) and (N8Color[27]=$00000000) and (N8Color[28]=$00000000) and (N8Color[29]=$00000000) and (N8Color[30]=$00000000) and (N8Color[31]=$00000000) and (N8Color[32]=$00000000) and (N8Color[33]=$00000000) and (N8Color[34]=$00000000) and (N8Color[35]=$00000000) and (N8Color[36]=$00000000) then StrHGIF1 := '8' else N9Color[1] := GF.Canvas.Pixels[N9pixX[1],N9pixY[1]]; N9Color[2] := GF.Canvas.Pixels[N9pixX[2],N9pixY[2]]; N9Color[3] := GF.Canvas.Pixels[N9pixX[3],N9pixY[3]]; N9Color[4] := GF.Canvas.Pixels[N9pixX[4],N9pixY[4]]; N9Color[5] := GF.Canvas.Pixels[N9pixX[5],N9pixY[5]]; N9Color[6] := GF.Canvas.Pixels[N9pixX[6],N9pixY[6]]; N9Color[7] := GF.Canvas.Pixels[N9pixX[7],N9pixY[7]]; N9Color[8] := GF.Canvas.Pixels[N9pixX[8],N9pixY[8]]; N9Color[9] := GF.Canvas.Pixels[N9pixX[9],N9pixY[9]]; N9Color[10] := GF.Canvas.Pixels[N9pixX[10],N9pixY[10]]; N9Color[11] := GF.Canvas.Pixels[N9pixX[11],N9pixY[11]]; N9Color[12] := GF.Canvas.Pixels[N9pixX[12],N9pixY[12]]; N9Color[13] := GF.Canvas.Pixels[N9pixX[13],N9pixY[13]]; N9Color[14] := GF.Canvas.Pixels[N9pixX[14],N9pixY[14]]; N9Color[15] := GF.Canvas.Pixels[N9pixX[15],N9pixY[15]]; N9Color[16] := GF.Canvas.Pixels[N9pixX[16],N9pixY[16]]; N9Color[17] := GF.Canvas.Pixels[N9pixX[17],N9pixY[17]]; N9Color[18] := GF.Canvas.Pixels[N9pixX[18],N9pixY[18]]; N9Color[19] := GF.Canvas.Pixels[N9pixX[19],N9pixY[19]]; N9Color[20] := GF.Canvas.Pixels[N9pixX[20],N9pixY[20]]; N9Color[21] := GF.Canvas.Pixels[N9pixX[21],N9pixY[21]]; N9Color[22] := GF.Canvas.Pixels[N9pixX[22],N9pixY[22]]; N9Color[23] := GF.Canvas.Pixels[N9pixX[23],N9pixY[23]]; N9Color[24] := GF.Canvas.Pixels[N9pixX[24],N9pixY[24]]; N9Color[25] := GF.Canvas.Pixels[N9pixX[25],N9pixY[25]]; N9Color[26] := GF.Canvas.Pixels[N9pixX[26],N9pixY[26]]; N9Color[27] := GF.Canvas.Pixels[N9pixX[27],N9pixY[27]]; N9Color[28] := GF.Canvas.Pixels[N9pixX[28],N9pixY[28]]; N9Color[29] := GF.Canvas.Pixels[N9pixX[29],N9pixY[29]]; N9Color[30] := GF.Canvas.Pixels[N9pixX[30],N9pixY[30]]; if (N9Color[1]=$00000000) and (N9Color[2]=$00000000) and (N9Color[3]=$00000000) and (N9Color[4]=$00000000) and (N9Color[5]=$00000000) and (N9Color[6]=$00000000) and (N9Color[7]=$00000000) and (N9Color[8]=$00000000) and (N9Color[9]=$00000000) and (N9Color[10]=$00000000) and (N9Color[11]=$00000000) and (N9Color[12]=$00000000) and (N9Color[13]=$00000000) and (N9Color[14]=$00000000) and (N9Color[15]=$00000000) and (N9Color[16]=$00000000) and (N9Color[17]=$00000000) and (N9Color[18]=$00000000) and (N9Color[19]=$00000000) and (N9Color[20]=$00000000) and (N9Color[21]=$00000000) and (N9Color[22]=$00000000) and (N9Color[23]=$00000000) and (N9Color[24]=$00000000) and (N9Color[25]=$00000000) and (N9Color[26]=$00000000) and (N9Color[27]=$00000000) and (N9Color[28]=$00000000) and (N9Color[29]=$00000000) and (N9Color[30]=$00000000) then StrHGIF1 := '9' end; Procedure HackGIF2; Begin N0pixY[1] :=5; N0pixY[2] :=5; N0pixY[3] :=5; N0pixY[4] :=5; N0pixY[5] :=6; N0pixY[6] :=6; N0pixY[7] :=6; N0pixY[8] :=6; N0pixY[9] :=7; N0pixY[10] :=7; N0pixY[11] :=7; N0pixY[12] :=7; N0pixY[13] :=8; N0pixY[14] :=8; N0pixY[15] :=8; N0pixY[16] :=8; N0pixY[17] :=9; N0pixY[18] :=9; N0pixY[19] :=9; N0pixY[20] :=9; N0pixY[21] :=10; N0pixY[22] :=10; N0pixY[23] :=10; N0pixY[24] :=10; N0pixY[25] :=11; N0pixY[26] :=11; N0pixY[27] :=11; N0pixY[28] :=11; N0pixY[29] :=12; N0pixY[30] :=12; N0pixY[31] :=12; N0pixY[32] :=12; N0pixY[33] :=13; N0pixY[34] :=13; N0pixY[35] :=13; N0pixY[36] :=13; //N1 number 1 N1pixY[1] :=5; N1pixY[2] :=5; N1pixY[3] :=6; N1pixY[4] :=6; N1pixY[5] :=6; N1pixY[6] :=6; N1pixY[7] :=7; N1pixY[8] :=7; N1pixY[9] :=8; N1pixY[10] :=8; N1pixY[11] :=9; N1pixY[12] :=9; N1pixY[13] :=10; N1pixY[14] :=10; N1pixY[15] :=11; N1pixY[16] :=11; N1pixY[17] :=12; N1pixY[18] :=12; N1pixY[19] :=13; N1pixY[20] :=13; N1pixY[21] :=13; N1pixY[22] :=13; N1pixY[23] :=13; N1pixY[24] :=13; //N1 number 2 N2pixY[1] :=5; N2pixY[2] :=5; N2pixY[3] :=5; N2pixY[4] :=5; N2pixY[5] :=6; N2pixY[6] :=6; N2pixY[7] :=6; N2pixY[8] :=6; N2pixY[9] :=7; N2pixY[10] :=7; N2pixY[11] :=8; N2pixY[12] :=8; N2pixY[13] :=9; N2pixY[14] :=9; N2pixY[15] :=10; N2pixY[16] :=10; N2pixY[17] :=11; N2pixY[18] :=11; N2pixY[19] :=12; N2pixY[20] :=12; N2pixY[21] :=13; N2pixY[22] :=13; N2pixY[23] :=13; N2pixY[24] :=13; N2pixY[25] :=13; N2pixY[26] :=13; //N1 number 3 N3pixY[1] :=5; N3pixY[2] :=5; N3pixY[3] :=5; N3pixY[4] :=5; N3pixY[5] :=6; N3pixY[6] :=6; N3pixY[7] :=6; N3pixY[8] :=6; N3pixY[9] :=7; N3pixY[10] :=7; N3pixY[11] :=8; N3pixY[12] :=8; N3pixY[13] :=9; N3pixY[14] :=9; N3pixY[15] :=9; N3pixY[16] :=10; N3pixY[17] :=10; N3pixY[18] :=11; N3pixY[19] :=11; N3pixY[20] :=12; N3pixY[21] :=12; N3pixY[22] :=12; N3pixY[23] :=12; N3pixY[24] :=13; N3pixY[25] :=13; N3pixY[26] :=13; N3pixY[27] :=13; //N1 number 4 N4pixY[1] :=5; N4pixY[2] :=5; N4pixY[3] :=6; N4pixY[4] :=6; N4pixY[5] :=6; N4pixY[6] :=7; N4pixY[7] :=7; N4pixY[8] :=7; N4pixY[9] :=8; N4pixY[10] :=8; N4pixY[11] :=8; N4pixY[12] :=8; N4pixY[13] :=9; N4pixY[14] :=9; N4pixY[15] :=9; N4pixY[16] :=9; N4pixY[17] :=10; N4pixY[18] :=10; N4pixY[19] :=10; N4pixY[20] :=10; N4pixY[21] :=11; N4pixY[22] :=11; N4pixY[23] :=11; N4pixY[24] :=11; N4pixY[25] :=11; N4pixY[26] :=11; N4pixY[27] :=12; N4pixY[28] :=12; N4pixY[29] :=13; N4pixY[30] :=13; N4pixY[31] :=13; N4pixY[32] :=13; //N1 number 5 N5pixY[1] :=5; N5pixY[2] :=5; N5pixY[3] :=5; N5pixY[4] :=5; N5pixY[5] :=5; N5pixY[6] :=5; N5pixY[7] :=6; N5pixY[8] :=6; N5pixY[9] :=7; N5pixY[10] :=7; N5pixY[11] :=8; N5pixY[12] :=8; N5pixY[13] :=9; N5pixY[14] :=9; N5pixY[15] :=9; N5pixY[16] :=9; N5pixY[17] :=9; N5pixY[18] :=10; N5pixY[19] :=10; N5pixY[20] :=11; N5pixY[21] :=11; N5pixY[22] :=12; N5pixY[23] :=12; N5pixY[24] :=12; N5pixY[25] :=12; N5pixY[26] :=13; N5pixY[27] :=13; N5pixY[28] :=13; N5pixY[29] :=13; //N1 number 6 N6pixY[1] :=5; N6pixY[2] :=5; N6pixY[3] :=5; N6pixY[4] :=6; N6pixY[5] :=6; N6pixY[6] :=7; N6pixY[7] :=7; N6pixY[8] :=8; N6pixY[9] :=8; N6pixY[10] :=9; N6pixY[11] :=9; N6pixY[12] :=9; N6pixY[13] :=9; N6pixY[14] :=9; N6pixY[15] :=10; N6pixY[16] :=10; N6pixY[17] :=10; N6pixY[18] :=10; N6pixY[19] :=11; N6pixY[20] :=11; N6pixY[21] :=11; N6pixY[22] :=11; N6pixY[23] :=12; N6pixY[24] :=12; N6pixY[25] :=12; N6pixY[26] :=12; N6pixY[27] :=13; N6pixY[28] :=13; N6pixY[29] :=13; N6pixY[30] :=13; //N1 number 7 N7pixY[1] :=5; N7pixY[2] :=5; N7pixY[3] :=5; N7pixY[4] :=5; N7pixY[5] :=5; N7pixY[6] :=5; N7pixY[7] :=6; N7pixY[8] :=6; N7pixY[9] :=6; N7pixY[10] :=6; N7pixY[11] :=7; N7pixY[12] :=7; N7pixY[13] :=8; N7pixY[14] :=8; N7pixY[15] :=9; N7pixY[16] :=9; N7pixY[17] :=10; N7pixY[18] :=10; N7pixY[19] :=11; N7pixY[20] :=11; N7pixY[21] :=12; N7pixY[22] :=12; N7pixY[23] :=13; N7pixY[24] :=13; //N1 number 8 N8pixY[1] :=5; N8pixY[2] :=5; N8pixY[3] :=5; N8pixY[4] :=5; N8pixY[5] :=6; N8pixY[6] :=6; N8pixY[7] :=6; N8pixY[8] :=6; N8pixY[9] :=7; N8pixY[10] :=7; N8pixY[11] :=7; N8pixY[12] :=7; N8pixY[13] :=8; N8pixY[14] :=8; N8pixY[15] :=8; N8pixY[16] :=8; N8pixY[17] :=9; N8pixY[18] :=9; N8pixY[19] :=9; N8pixY[20] :=9; N8pixY[21] :=10; N8pixY[22] :=10; N8pixY[23] :=10; N8pixY[24] :=10; N8pixY[25] :=11; N8pixY[26] :=11; N8pixY[27] :=11; N8pixY[28] :=11; N8pixY[29] :=12; N8pixY[30] :=12; N8pixY[31] :=12; N8pixY[32] :=12; N8pixY[33] :=13; N8pixY[34] :=13; N8pixY[35] :=13; N8pixY[36] :=13; //N1 number 9 N9pixY[1] :=5; N9pixY[2] :=5; N9pixY[3] :=5; N9pixY[4] :=5; N9pixY[5] :=6; N9pixY[6] :=6; N9pixY[7] :=6; N9pixY[8] :=6; N9pixY[9] :=7; N9pixY[10] :=7; N9pixY[11] :=7; N9pixY[12] :=7; N9pixY[13] :=8; N9pixY[14] :=8; N9pixY[15] :=8; N9pixY[16] :=8; N9pixY[17] :=9; N9pixY[18] :=9; N9pixY[19] :=9; N9pixY[20] :=9; N9pixY[21] :=9; N9pixY[22] :=10; N9pixY[23] :=10; N9pixY[24] :=11; N9pixY[25] :=11; N9pixY[26] :=12; N9pixY[27] :=12; N9pixY[28] :=13; N9pixY[29] :=13; N9pixY[30] :=13; //X N0pixX[1] :=6+9; N0pixX[2] :=7+9; N0pixX[3] :=8+9; N0pixX[4] :=9+9; N0pixX[5] :=5+9; N0pixX[6] :=6+9; N0pixX[7] :=9+9; N0pixX[8] :=10+9; N0pixX[9] :=5+9; N0pixX[10] :=6+9; N0pixX[11] :=9+9; N0pixX[12] :=10+9; N0pixX[13] :=5+9; N0pixX[14] :=6+9; N0pixX[15] :=9+9; N0pixX[16] :=10+9; N0pixX[17] :=5+9; N0pixX[18] :=6+9; N0pixX[19] :=9+9; N0pixX[20] :=10+9; N0pixX[21] :=5+9; N0pixX[22] :=6+9; N0pixX[23] :=9+9; N0pixX[24] :=10+9; N0pixX[25] :=5+9; N0pixX[26] :=6+9; N0pixX[27] :=9+9; N0pixX[28] :=10+9; N0pixX[29] :=5+9; N0pixX[30] :=6+9; N0pixX[31] :=9+9; N0pixX[32] :=10+9; N0pixX[33] :=6+9; N0pixX[34] :=7+9; N0pixX[35] :=8+9; N0pixX[36] :=9+9; //N1 number 1 N1pixX[1] :=7+9; N1pixX[2] :=8+9; N1pixX[3] :=5+9; N1pixX[4] :=6+9; N1pixX[5] :=7+9; N1pixX[6] :=8+9; N1pixX[7] :=7+9; N1pixX[8] :=8+9; N1pixX[9] :=7+9; N1pixX[10] :=8+9; N1pixX[11] :=7+9; N1pixX[12] :=8+9; N1pixX[13] :=7+9; N1pixX[14] :=8+9; N1pixX[15] :=7+9; N1pixX[16] :=8+9; N1pixX[17] :=7+9; N1pixX[18] :=8+9; N1pixX[19] :=5+9; N1pixX[20] :=6+9; N1pixX[21] :=7+9; N1pixX[22] :=8+9; N1pixX[23] :=9+9; N1pixX[24] :=10+9; //N1 number 2 N2pixX[1] :=6+9; N2pixX[2] :=7+9; N2pixX[3] :=8+9; N2pixX[4] :=9+9; N2pixX[5] :=5+9; N2pixX[6] :=6+9; N2pixX[7] :=9+9; N2pixX[8] :=10+9; N2pixX[9] :=9+9; N2pixX[10] :=10+9; N2pixX[11] :=9+9; N2pixX[12] :=10+9; N2pixX[13] :=8+9; N2pixX[14] :=9+9; N2pixX[15] :=7+9; N2pixX[16] :=8+9; N2pixX[17] :=6+9; N2pixX[18] :=7+9; N2pixX[19] :=5+9; N2pixX[20] :=6+9; N2pixX[21] :=5+9; N2pixX[22] :=6+9; N2pixX[23] :=7+9; N2pixX[24] :=8+9; N2pixX[25] :=9+9; N2pixX[26] :=10+9; //N1 number 3 N3pixX[1] :=6+9; N3pixX[2] :=7+9; N3pixX[3] :=8+9; N3pixX[4] :=9+9; N3pixX[5] :=5+9; N3pixX[6] :=6+9; N3pixX[7] :=9+9; N3pixX[8] :=10+9; N3pixX[9] :=9+9; N3pixX[10] :=10+9; N3pixX[11] :=9+9; N3pixX[12] :=10+9; N3pixX[13] :=7+9; N3pixX[14] :=8+9; N3pixX[15] :=9+9; N3pixX[16] :=9+9; N3pixX[17] :=10+9; N3pixX[18] :=9+9; N3pixX[19] :=10+9; N3pixX[20] :=9+9; N3pixX[21] :=10+9; N3pixX[22] :=5+9; N3pixX[23] :=6+9; N3pixX[24] :=6+9; N3pixX[25] :=7+9; N3pixX[26] :=8+9; N3pixX[27] :=9+9; //N1 number 4 N4pixX[1] :=8+9; N4pixX[2] :=9+9; N4pixX[3] :=7+9; N4pixX[4] :=8+9; N4pixX[5] :=9+9; N4pixX[6] :=7+9; N4pixX[7] :=8+9; N4pixX[8] :=9+9; N4pixX[9] :=6+9; N4pixX[10] :=7+9; N4pixX[11] :=8+9; N4pixX[12] :=9+9; N4pixX[13] :=6+9; N4pixX[14] :=7+9; N4pixX[15] :=8+9; N4pixX[16] :=9+9; N4pixX[17] :=5+9; N4pixX[18] :=6+9; N4pixX[19] :=8+9; N4pixX[20] :=9+9; N4pixX[21] :=5+9; N4pixX[22] :=6+9; N4pixX[23] :=7+9; N4pixX[24] :=8+9; N4pixX[25] :=9+9; N4pixX[26] :=10+9; N4pixX[27] :=8+9; N4pixX[28] :=9+9; N4pixX[29] :=7+9; N4pixX[30] :=8+9; N4pixX[31] :=9+9; N4pixX[32] :=10+9; //N1 number 5 N5pixX[1] :=5+9; N5pixX[2] :=6+9; N5pixX[3] :=7+9; N5pixX[4] :=8+9; N5pixX[5] :=9+9; N5pixX[6] :=10+9; N5pixX[7] :=5+9; N5pixX[8] :=6+9; N5pixX[9] :=5+9; N5pixX[10] :=6+9; N5pixX[11] :=5+9; N5pixX[12] :=6+9; N5pixX[13] :=5+9; N5pixX[14] :=6+9; N5pixX[15] :=7+9; N5pixX[16] :=8+9; N5pixX[17] :=9+9; N5pixX[18] :=9+9; N5pixX[19] :=10+9; N5pixX[20] :=9+9; N5pixX[21] :=10+9; N5pixX[22] :=9+9; N5pixX[23] :=10+9; N5pixX[24] :=5+9; N5pixX[25] :=6+9; N5pixX[26] :=6+9; N5pixX[27] :=7+9; N5pixX[28] :=8+9; N5pixX[29] :=9+9; //N1 number 6 N6pixX[1] :=7+9; N6pixX[2] :=8+9; N6pixX[3] :=9+9; N6pixX[4] :=6+9; N6pixX[5] :=7+9; N6pixX[6] :=5+9; N6pixX[7] :=6+9; N6pixX[8] :=5+9; N6pixX[9] :=6+9; N6pixX[10] :=5+9; N6pixX[11] :=6+9; N6pixX[12] :=7+9; N6pixX[13] :=8+9; N6pixX[14] :=9+9; N6pixX[15] :=5+9; N6pixX[16] :=6+9; N6pixX[17] :=9+9; N6pixX[18] :=10+9; N6pixX[19] :=5+9; N6pixX[20] :=6+9; N6pixX[21] :=9+9; N6pixX[22] :=10+9; N6pixX[23] :=5+9; N6pixX[24] :=6+9; N6pixX[25] :=9+9; N6pixX[26] :=10+9; N6pixX[27] :=6+9; N6pixX[28] :=7+9; N6pixX[29] :=8+9; N6pixX[30] :=9+9; //N1 number 7 N7pixX[1] :=5+9; N7pixX[2] :=6+9; N7pixX[3] :=7+9; N7pixX[4] :=8+9; N7pixX[5] :=9+9; N7pixX[6] :=10+9; N7pixX[7] :=5+9; N7pixX[8] :=6+9; N7pixX[9] :=9+9; N7pixX[10] :=10+9; N7pixX[11] :=9+9; N7pixX[12] :=10+9; N7pixX[13] :=8+9; N7pixX[14] :=9+9; N7pixX[15] :=8+9; N7pixX[16] :=9+9; N7pixX[17] :=7+9; N7pixX[18] :=8+9; N7pixX[19] :=7+9; N7pixX[20] :=8+9; N7pixX[21] :=6+9; N7pixX[22] :=7+9; N7pixX[23] :=6+9; N7pixX[24] :=7+9; //N1 number 8 N8pixX[1] :=6+9; N8pixX[2] :=7+9; N8pixX[3] :=8+9; N8pixX[4] :=9+9; N8pixX[5] :=5+9; N8pixX[6] :=6+9; N8pixX[7] :=9+9; N8pixX[8] :=10+9; N8pixX[9] :=5+9; N8pixX[10] :=6+9; N8pixX[11] :=9+9; N8pixX[12] :=10+9; N8pixX[13] :=5+9; N8pixX[14] :=6+9; N8pixX[15] :=9+9; N8pixX[16] :=10+9; N8pixX[17] :=6+9; N8pixX[18] :=7+9; N8pixX[19] :=8+9; N8pixX[20] :=9+9; N8pixX[21] :=5+9; N8pixX[22] :=6+9; N8pixX[23] :=9+9; N8pixX[24] :=10+9; N8pixX[25] :=5+9; N8pixX[26] :=6+9; N8pixX[27] :=9+9; N8pixX[28] :=10+9; N8pixX[29] :=5+9; N8pixX[30] :=6+9; N8pixX[31] :=9+9; N8pixX[32] :=10+9; N8pixX[33] :=6+9; N8pixX[34] :=7+9; N8pixX[35] :=8+9; N8pixX[36] :=9+9; //N1 number 9 N9pixX[1] :=6+9; N9pixX[2] :=7+9; N9pixX[3] :=8+9; N9pixX[4] :=9+9; N9pixX[5] :=5+9; N9pixX[6] :=6+9; N9pixX[7] :=9+9; N9pixX[8] :=10+9; N9pixX[9] :=5+9; N9pixX[10] :=6+9; N9pixX[11] :=9+9; N9pixX[12] :=10+9; N9pixX[13] :=5+9; N9pixX[14] :=6+9; N9pixX[15] :=9+9; N9pixX[16] :=10+9; N9pixX[17] :=6+9; N9pixX[18] :=7+9; N9pixX[19] :=8+9; N9pixX[20] :=9+9; N9pixX[21] :=10+9; N9pixX[22] :=9+9; N9pixX[23] :=10+9; N9pixX[24] :=9+9; N9pixX[25] :=10+9; N9pixX[26] :=8+9; N9pixX[27] :=9+9; N9pixX[28] :=6+9; N9pixX[29] :=7+9; N9pixX[30] :=8+9; /////////////////////////////////////////////////////////////////////////////// ///Load number.gif///////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////////// GF := TBitMap.Create; GIF := TGIFimage.Create; GIF.LoadFromFile('number.gif');//Загружаем скаченый файл GF.Assign(GIF); /////////////////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////////// N0Color[1] := GF.Canvas.Pixels[N0pixX[1],N0pixY[1]]; N0Color[2] := GF.Canvas.Pixels[N0pixX[2],N0pixY[2]]; N0Color[3] := GF.Canvas.Pixels[N0pixX[3],N0pixY[3]]; N0Color[4] := GF.Canvas.Pixels[N0pixX[4],N0pixY[4]]; N0Color[5] := GF.Canvas.Pixels[N0pixX[5],N0pixY[5]]; N0Color[6] := GF.Canvas.Pixels[N0pixX[6],N0pixY[6]]; N0Color[7] := GF.Canvas.Pixels[N0pixX[7],N0pixY[7]]; N0Color[8] := GF.Canvas.Pixels[N0pixX[8],N0pixY[8]]; N0Color[9] := GF.Canvas.Pixels[N0pixX[9],N0pixY[9]]; N0Color[10] := GF.Canvas.Pixels[N0pixX[10],N0pixY[10]]; N0Color[11] := GF.Canvas.Pixels[N0pixX[11],N0pixY[11]]; N0Color[12] := GF.Canvas.Pixels[N0pixX[12],N0pixY[12]]; N0Color[13] := GF.Canvas.Pixels[N0pixX[13],N0pixY[13]]; N0Color[14] := GF.Canvas.Pixels[N0pixX[14],N0pixY[14]]; N0Color[15] := GF.Canvas.Pixels[N0pixX[15],N0pixY[15]]; N0Color[16] := GF.Canvas.Pixels[N0pixX[16],N0pixY[16]]; N0Color[17] := GF.Canvas.Pixels[N0pixX[17],N0pixY[17]]; N0Color[18] := GF.Canvas.Pixels[N0pixX[18],N0pixY[18]]; N0Color[19] := GF.Canvas.Pixels[N0pixX[19],N0pixY[19]]; N0Color[20] := GF.Canvas.Pixels[N0pixX[20],N0pixY[20]]; N0Color[21] := GF.Canvas.Pixels[N0pixX[21],N0pixY[21]]; N0Color[22] := GF.Canvas.Pixels[N0pixX[22],N0pixY[22]]; N0Color[23] := GF.Canvas.Pixels[N0pixX[23],N0pixY[23]]; N0Color[24] := GF.Canvas.Pixels[N0pixX[24],N0pixY[24]]; N0Color[25] := GF.Canvas.Pixels[N0pixX[25],N0pixY[25]]; N0Color[26] := GF.Canvas.Pixels[N0pixX[26],N0pixY[26]]; N0Color[27] := GF.Canvas.Pixels[N0pixX[27],N0pixY[27]]; N0Color[28] := GF.Canvas.Pixels[N0pixX[28],N0pixY[28]]; N0Color[29] := GF.Canvas.Pixels[N0pixX[29],N0pixY[29]]; N0Color[30] := GF.Canvas.Pixels[N0pixX[30],N0pixY[30]]; N0Color[31] := GF.Canvas.Pixels[N0pixX[31],N0pixY[31]]; N0Color[32] := GF.Canvas.Pixels[N0pixX[32],N0pixY[32]]; N0Color[33] := GF.Canvas.Pixels[N0pixX[33],N0pixY[33]]; N0Color[34] := GF.Canvas.Pixels[N0pixX[34],N0pixY[34]]; N0Color[35] := GF.Canvas.Pixels[N0pixX[35],N0pixY[35]]; N0Color[36] := GF.Canvas.Pixels[N0pixX[36],N0pixY[36]]; if (N0Color[1]=$00000000) and (N0Color[2]=$00000000) and (N0Color[3]=$00000000) and (N0Color[4]=$00000000) and (N0Color[5]=$00000000) and (N0Color[6]=$00000000) and (N0Color[7]=$00000000) and (N0Color[8]=$00000000) and (N0Color[9]=$00000000) and (N0Color[10]=$00000000) and (N0Color[11]=$00000000) and (N0Color[12]=$00000000) and (N0Color[13]=$00000000) and (N0Color[14]=$00000000) and (N0Color[15]=$00000000) and (N0Color[16]=$00000000) and (N0Color[17]=$00000000) and (N0Color[18]=$00000000) and (N0Color[19]=$00000000) and (N0Color[20]=$00000000) and (N0Color[21]=$00000000) and (N0Color[22]=$00000000) and (N0Color[23]=$00000000) and (N0Color[24]=$00000000) and (N0Color[25]=$00000000) and (N0Color[26]=$00000000) and (N0Color[27]=$00000000) and (N0Color[28]=$00000000) and (N0Color[29]=$00000000) and (N0Color[30]=$00000000) and (N0Color[31]=$00000000) and (N0Color[32]=$00000000) and (N0Color[33]=$00000000) and (N0Color[34]=$00000000) and (N0Color[35]=$00000000) and (N0Color[36]=$00000000) then StrHGIF2 := '0' else N1Color[1] := GF.Canvas.Pixels[N1pixX[1],N1pixY[1]]; N1Color[2] := GF.Canvas.Pixels[N1pixX[2],N1pixY[2]]; N1Color[3] := GF.Canvas.Pixels[N1pixX[3],N1pixY[3]]; N1Color[4] := GF.Canvas.Pixels[N1pixX[4],N1pixY[4]]; N1Color[5] := GF.Canvas.Pixels[N1pixX[5],N1pixY[5]]; N1Color[6] := GF.Canvas.Pixels[N1pixX[6],N1pixY[6]]; N1Color[7] := GF.Canvas.Pixels[N1pixX[7],N1pixY[7]]; N1Color[8] := GF.Canvas.Pixels[N1pixX[8],N1pixY[8]]; N1Color[9] := GF.Canvas.Pixels[N1pixX[9],N1pixY[9]]; N1Color[10] := GF.Canvas.Pixels[N1pixX[10],N1pixY[10]]; N1Color[11] := GF.Canvas.Pixels[N1pixX[11],N1pixY[11]]; N1Color[12] := GF.Canvas.Pixels[N1pixX[12],N1pixY[12]]; N1Color[13] := GF.Canvas.Pixels[N1pixX[13],N1pixY[13]]; N1Color[14] := GF.Canvas.Pixels[N1pixX[14],N1pixY[14]]; N1Color[15] := GF.Canvas.Pixels[N1pixX[15],N1pixY[15]]; N1Color[16] := GF.Canvas.Pixels[N1pixX[16],N1pixY[16]]; N1Color[17] := GF.Canvas.Pixels[N1pixX[17],N1pixY[17]]; N1Color[18] := GF.Canvas.Pixels[N1pixX[18],N1pixY[18]]; N1Color[19] := GF.Canvas.Pixels[N1pixX[19],N1pixY[19]]; N1Color[20] := GF.Canvas.Pixels[N1pixX[20],N1pixY[20]]; N1Color[21] := GF.Canvas.Pixels[N1pixX[21],N1pixY[21]]; N1Color[22] := GF.Canvas.Pixels[N1pixX[22],N1pixY[22]]; N1Color[23] := GF.Canvas.Pixels[N1pixX[23],N1pixY[23]]; N1Color[24] := GF.Canvas.Pixels[N1pixX[24],N1pixY[24]]; if (N1Color[1]=$00000000) and (N1Color[2]=$00000000) and (N1Color[3]=$00000000) and (N1Color[4]=$00000000) and (N1Color[5]=$00000000) and (N1Color[6]=$00000000) and (N1Color[7]=$00000000) and (N1Color[8]=$00000000) and (N1Color[9]=$00000000) and (N1Color[10]=$00000000) and (N1Color[11]=$00000000) and (N1Color[12]=$00000000) and (N1Color[13]=$00000000) and (N1Color[14]=$00000000) and (N1Color[15]=$00000000) and (N1Color[16]=$00000000) and (N1Color[17]=$00000000) and (N1Color[18]=$00000000) and (N1Color[19]=$00000000) and (N1Color[20]=$00000000) and (N1Color[21]=$00000000) and (N1Color[22]=$00000000) and (N1Color[23]=$00000000) and (N1Color[24]=$00000000) then StrHGIF2 := '1' else N2Color[1] := GF.Canvas.Pixels[N2pixX[1],N2pixY[1]]; N2Color[2] := GF.Canvas.Pixels[N2pixX[2],N2pixY[2]]; N2Color[3] := GF.Canvas.Pixels[N2pixX[3],N2pixY[3]]; N2Color[4] := GF.Canvas.Pixels[N2pixX[4],N2pixY[4]]; N2Color[5] := GF.Canvas.Pixels[N2pixX[5],N2pixY[5]]; N2Color[6] := GF.Canvas.Pixels[N2pixX[6],N2pixY[6]]; N2Color[7] := GF.Canvas.Pixels[N2pixX[7],N2pixY[7]]; N2Color[8] := GF.Canvas.Pixels[N2pixX[8],N2pixY[8]]; N2Color[9] := GF.Canvas.Pixels[N2pixX[9],N2pixY[9]]; N2Color[10] := GF.Canvas.Pixels[N2pixX[10],N2pixY[10]]; N2Color[11] := GF.Canvas.Pixels[N2pixX[11],N2pixY[11]]; N2Color[12] := GF.Canvas.Pixels[N2pixX[12],N2pixY[12]]; N2Color[13] := GF.Canvas.Pixels[N2pixX[13],N2pixY[13]]; N2Color[14] := GF.Canvas.Pixels[N2pixX[14],N2pixY[14]]; N2Color[15] := GF.Canvas.Pixels[N2pixX[15],N2pixY[15]]; N2Color[16] := GF.Canvas.Pixels[N2pixX[16],N2pixY[16]]; N2Color[17] := GF.Canvas.Pixels[N2pixX[17],N2pixY[17]]; N2Color[18] := GF.Canvas.Pixels[N2pixX[18],N2pixY[18]]; N2Color[19] := GF.Canvas.Pixels[N2pixX[19],N2pixY[19]]; N2Color[20] := GF.Canvas.Pixels[N2pixX[20],N2pixY[20]]; N2Color[21] := GF.Canvas.Pixels[N2pixX[21],N2pixY[21]]; N2Color[22] := GF.Canvas.Pixels[N2pixX[22],N2pixY[22]]; N2Color[23] := GF.Canvas.Pixels[N2pixX[23],N2pixY[23]]; N2Color[24] := GF.Canvas.Pixels[N2pixX[24],N2pixY[24]]; N2Color[25] := GF.Canvas.Pixels[N2pixX[25],N2pixY[25]]; N2Color[26] := GF.Canvas.Pixels[N2pixX[26],N2pixY[26]]; if (N2Color[1]=$00000000) and (N2Color[2]=$00000000) and (N2Color[3]=$00000000) and (N2Color[4]=$00000000) and (N2Color[5]=$00000000) and (N2Color[6]=$00000000) and (N2Color[7]=$00000000) and (N2Color[8]=$00000000) and (N2Color[9]=$00000000) and (N2Color[10]=$00000000) and (N2Color[11]=$00000000) and (N2Color[12]=$00000000) and (N2Color[13]=$00000000) and (N2Color[14]=$00000000) and (N2Color[15]=$00000000) and (N2Color[16]=$00000000) and (N2Color[17]=$00000000) and (N2Color[18]=$00000000) and (N2Color[19]=$00000000) and (N2Color[20]=$00000000) and (N2Color[21]=$00000000) and (N2Color[22]=$00000000) and (N2Color[23]=$00000000) and (N2Color[24]=$00000000) and (N2Color[25]=$00000000) and (N2Color[26]=$00000000) then StrHGIF2 := '2' else N3Color[1] := GF.Canvas.Pixels[N3pixX[1],N3pixY[1]]; N3Color[2] := GF.Canvas.Pixels[N3pixX[2],N3pixY[2]]; N3Color[3] := GF.Canvas.Pixels[N3pixX[3],N3pixY[3]]; N3Color[4] := GF.Canvas.Pixels[N3pixX[4],N3pixY[4]]; N3Color[5] := GF.Canvas.Pixels[N3pixX[5],N3pixY[5]]; N3Color[6] := GF.Canvas.Pixels[N3pixX[6],N3pixY[6]]; N3Color[7] := GF.Canvas.Pixels[N3pixX[7],N3pixY[7]]; N3Color[8] := GF.Canvas.Pixels[N3pixX[8],N3pixY[8]]; N3Color[9] := GF.Canvas.Pixels[N3pixX[9],N3pixY[9]]; N3Color[10] := GF.Canvas.Pixels[N3pixX[10],N3pixY[10]]; N3Color[11] := GF.Canvas.Pixels[N3pixX[11],N3pixY[11]]; N3Color[12] := GF.Canvas.Pixels[N3pixX[12],N3pixY[12]]; N3Color[13] := GF.Canvas.Pixels[N3pixX[13],N3pixY[13]]; N3Color[14] := GF.Canvas.Pixels[N3pixX[14],N3pixY[14]]; N3Color[15] := GF.Canvas.Pixels[N3pixX[15],N3pixY[15]]; N3Color[16] := GF.Canvas.Pixels[N3pixX[16],N3pixY[16]]; N3Color[17] := GF.Canvas.Pixels[N3pixX[17],N3pixY[17]]; N3Color[18] := GF.Canvas.Pixels[N3pixX[18],N3pixY[18]]; N3Color[19] := GF.Canvas.Pixels[N3pixX[19],N3pixY[19]]; N3Color[20] := GF.Canvas.Pixels[N3pixX[20],N3pixY[20]]; N3Color[21] := GF.Canvas.Pixels[N3pixX[21],N3pixY[21]]; N3Color[22] := GF.Canvas.Pixels[N3pixX[22],N3pixY[22]]; N3Color[23] := GF.Canvas.Pixels[N3pixX[23],N3pixY[23]]; N3Color[24] := GF.Canvas.Pixels[N3pixX[24],N3pixY[24]]; N3Color[25] := GF.Canvas.Pixels[N3pixX[25],N3pixY[25]]; N3Color[26] := GF.Canvas.Pixels[N3pixX[26],N3pixY[26]]; N3Color[27] := GF.Canvas.Pixels[N3pixX[27],N3pixY[27]]; if (N3Color[1]=$00000000) and (N3Color[2]=$00000000) and (N3Color[3]=$00000000) and (N3Color[4]=$00000000) and (N3Color[5]=$00000000) and (N3Color[6]=$00000000) and (N3Color[7]=$00000000) and (N3Color[8]=$00000000) and (N3Color[9]=$00000000) and (N3Color[10]=$00000000) and (N3Color[11]=$00000000) and (N3Color[12]=$00000000) and (N3Color[13]=$00000000) and (N3Color[14]=$00000000) and (N3Color[15]=$00000000) and (N3Color[16]=$00000000) and (N3Color[17]=$00000000) and (N3Color[18]=$00000000) and (N3Color[19]=$00000000) and (N3Color[20]=$00000000) and (N3Color[21]=$00000000) and (N3Color[22]=$00000000) and (N3Color[23]=$00000000) and (N3Color[24]=$00000000) and (N3Color[25]=$00000000) and (N3Color[26]=$00000000) and (N3Color[27]=$00000000) then StrHGIF2 := '3' else N4Color[1] := GF.Canvas.Pixels[N4pixX[1],N4pixY[1]]; N4Color[2] := GF.Canvas.Pixels[N4pixX[2],N4pixY[2]]; N4Color[3] := GF.Canvas.Pixels[N4pixX[3],N4pixY[3]]; N4Color[4] := GF.Canvas.Pixels[N4pixX[4],N4pixY[4]]; N4Color[5] := GF.Canvas.Pixels[N4pixX[5],N4pixY[5]]; N4Color[6] := GF.Canvas.Pixels[N4pixX[6],N4pixY[6]]; N4Color[7] := GF.Canvas.Pixels[N4pixX[7],N4pixY[7]]; N4Color[8] := GF.Canvas.Pixels[N4pixX[8],N4pixY[8]]; N4Color[9] := GF.Canvas.Pixels[N4pixX[9],N4pixY[9]]; N4Color[10] := GF.Canvas.Pixels[N4pixX[10],N4pixY[10]]; N4Color[11] := GF.Canvas.Pixels[N4pixX[11],N4pixY[11]]; N4Color[12] := GF.Canvas.Pixels[N4pixX[12],N4pixY[12]]; N4Color[13] := GF.Canvas.Pixels[N4pixX[13],N4pixY[13]]; N4Color[14] := GF.Canvas.Pixels[N4pixX[14],N4pixY[14]]; N4Color[15] := GF.Canvas.Pixels[N4pixX[15],N4pixY[15]]; N4Color[16] := GF.Canvas.Pixels[N4pixX[16],N4pixY[16]]; N4Color[17] := GF.Canvas.Pixels[N4pixX[17],N4pixY[17]]; N4Color[18] := GF.Canvas.Pixels[N4pixX[18],N4pixY[18]]; N4Color[19] := GF.Canvas.Pixels[N4pixX[19],N4pixY[19]]; N4Color[20] := GF.Canvas.Pixels[N4pixX[20],N4pixY[20]]; N4Color[21] := GF.Canvas.Pixels[N4pixX[21],N4pixY[21]]; N4Color[22] := GF.Canvas.Pixels[N4pixX[22],N4pixY[22]]; N4Color[23] := GF.Canvas.Pixels[N4pixX[23],N4pixY[23]]; N4Color[24] := GF.Canvas.Pixels[N4pixX[24],N4pixY[24]]; N4Color[25] := GF.Canvas.Pixels[N4pixX[25],N4pixY[25]]; N4Color[26] := GF.Canvas.Pixels[N4pixX[26],N4pixY[26]]; N4Color[27] := GF.Canvas.Pixels[N4pixX[27],N4pixY[27]]; N4Color[28] := GF.Canvas.Pixels[N4pixX[28],N4pixY[28]]; N4Color[29] := GF.Canvas.Pixels[N4pixX[29],N4pixY[29]]; N4Color[30] := GF.Canvas.Pixels[N4pixX[30],N4pixY[30]]; N4Color[31] := GF.Canvas.Pixels[N4pixX[31],N4pixY[31]]; N4Color[32] := GF.Canvas.Pixels[N4pixX[32],N4pixY[32]]; if (N4Color[1]=$00000000) and (N4Color[2]=$00000000) and (N4Color[3]=$00000000) and (N4Color[4]=$00000000) and (N4Color[5]=$00000000) and (N4Color[6]=$00000000) and (N4Color[7]=$00000000) and (N4Color[8]=$00000000) and (N4Color[9]=$00000000) and (N4Color[10]=$00000000) and (N4Color[11]=$00000000) and (N4Color[12]=$00000000) and (N4Color[13]=$00000000) and (N4Color[14]=$00000000) and (N4Color[15]=$00000000) and (N4Color[16]=$00000000) and (N4Color[17]=$00000000) and (N4Color[18]=$00000000) and (N4Color[19]=$00000000) and (N4Color[20]=$00000000) and (N4Color[21]=$00000000) and (N4Color[22]=$00000000) and (N4Color[23]=$00000000) and (N4Color[24]=$00000000) and (N4Color[25]=$00000000) and (N4Color[26]=$00000000) and (N4Color[27]=$00000000) and (N4Color[28]=$00000000) and (N4Color[29]=$00000000) and (N4Color[30]=$00000000) and (N4Color[31]=$00000000) and (N4Color[32]=$00000000) then StrHGIF2 := '4' else N5Color[1] := GF.Canvas.Pixels[N5pixX[1],N5pixY[1]]; N5Color[2] := GF.Canvas.Pixels[N5pixX[2],N5pixY[2]]; N5Color[3] := GF.Canvas.Pixels[N5pixX[3],N5pixY[3]]; N5Color[4] := GF.Canvas.Pixels[N5pixX[4],N5pixY[4]]; N5Color[5] := GF.Canvas.Pixels[N5pixX[5],N5pixY[5]]; N5Color[6] := GF.Canvas.Pixels[N5pixX[6],N5pixY[6]]; N5Color[7] := GF.Canvas.Pixels[N5pixX[7],N5pixY[7]]; N5Color[8] := GF.Canvas.Pixels[N5pixX[8],N5pixY[8]]; N5Color[9] := GF.Canvas.Pixels[N5pixX[9],N5pixY[9]]; N5Color[10] := GF.Canvas.Pixels[N5pixX[10],N5pixY[10]]; N5Color[11] := GF.Canvas.Pixels[N5pixX[11],N5pixY[11]]; N5Color[12] := GF.Canvas.Pixels[N5pixX[12],N5pixY[12]]; N5Color[13] := GF.Canvas.Pixels[N5pixX[13],N5pixY[13]]; N5Color[14] := GF.Canvas.Pixels[N5pixX[14],N5pixY[14]]; N5Color[15] := GF.Canvas.Pixels[N5pixX[15],N5pixY[15]]; N5Color[16] := GF.Canvas.Pixels[N5pixX[16],N5pixY[16]]; N5Color[17] := GF.Canvas.Pixels[N5pixX[17],N5pixY[17]]; N5Color[18] := GF.Canvas.Pixels[N5pixX[18],N5pixY[18]]; N5Color[19] := GF.Canvas.Pixels[N5pixX[19],N5pixY[19]]; N5Color[20] := GF.Canvas.Pixels[N5pixX[20],N5pixY[20]]; N5Color[21] := GF.Canvas.Pixels[N5pixX[21],N5pixY[21]]; N5Color[22] := GF.Canvas.Pixels[N5pixX[22],N5pixY[22]]; N5Color[23] := GF.Canvas.Pixels[N5pixX[23],N5pixY[23]]; N5Color[24] := GF.Canvas.Pixels[N5pixX[24],N5pixY[24]]; N5Color[25] := GF.Canvas.Pixels[N5pixX[25],N5pixY[25]]; N5Color[26] := GF.Canvas.Pixels[N5pixX[26],N5pixY[26]]; N5Color[27] := GF.Canvas.Pixels[N5pixX[27],N5pixY[27]]; N5Color[28] := GF.Canvas.Pixels[N5pixX[28],N5pixY[28]]; N5Color[29] := GF.Canvas.Pixels[N5pixX[29],N5pixY[29]]; if (N5Color[1]=$00000000) and (N5Color[2]=$00000000) and (N5Color[3]=$00000000) and (N5Color[4]=$00000000) and (N5Color[5]=$00000000) and (N5Color[6]=$00000000) and (N5Color[7]=$00000000) and (N5Color[8]=$00000000) and (N5Color[9]=$00000000) and (N5Color[10]=$00000000) and (N5Color[11]=$00000000) and (N5Color[12]=$00000000) and (N5Color[13]=$00000000) and (N5Color[14]=$00000000) and (N5Color[15]=$00000000) and (N5Color[16]=$00000000) and (N5Color[17]=$00000000) and (N5Color[18]=$00000000) and (N5Color[19]=$00000000) and (N5Color[20]=$00000000) and (N5Color[21]=$00000000) and (N5Color[22]=$00000000) and (N5Color[23]=$00000000) and (N5Color[24]=$00000000) and (N5Color[25]=$00000000) and (N5Color[26]=$00000000) and (N5Color[27]=$00000000) and (N5Color[28]=$00000000) and (N5Color[29]=$00000000) then StrHGIF2 := '5' else N6Color[1] := GF.Canvas.Pixels[N6pixX[1],N6pixY[1]]; N6Color[2] := GF.Canvas.Pixels[N6pixX[2],N6pixY[2]]; N6Color[3] := GF.Canvas.Pixels[N6pixX[3],N6pixY[3]]; N6Color[4] := GF.Canvas.Pixels[N6pixX[4],N6pixY[4]]; N6Color[5] := GF.Canvas.Pixels[N6pixX[5],N6pixY[5]]; N6Color[6] := GF.Canvas.Pixels[N6pixX[6],N6pixY[6]]; N6Color[7] := GF.Canvas.Pixels[N6pixX[7],N6pixY[7]]; N6Color[8] := GF.Canvas.Pixels[N6pixX[8],N6pixY[8]]; N6Color[9] := GF.Canvas.Pixels[N6pixX[9],N6pixY[9]]; N6Color[10] := GF.Canvas.Pixels[N6pixX[10],N6pixY[10]]; N6Color[11] := GF.Canvas.Pixels[N6pixX[11],N6pixY[11]]; N6Color[12] := GF.Canvas.Pixels[N6pixX[12],N6pixY[12]]; N6Color[13] := GF.Canvas.Pixels[N6pixX[13],N6pixY[13]]; N6Color[14] := GF.Canvas.Pixels[N6pixX[14],N6pixY[14]]; N6Color[15] := GF.Canvas.Pixels[N6pixX[15],N6pixY[15]]; N6Color[16] := GF.Canvas.Pixels[N6pixX[16],N6pixY[16]]; N6Color[17] := GF.Canvas.Pixels[N6pixX[17],N6pixY[17]]; N6Color[18] := GF.Canvas.Pixels[N6pixX[18],N6pixY[18]]; N6Color[19] := GF.Canvas.Pixels[N6pixX[19],N6pixY[19]]; N6Color[20] := GF.Canvas.Pixels[N6pixX[20],N6pixY[20]]; N6Color[21] := GF.Canvas.Pixels[N6pixX[21],N6pixY[21]]; N6Color[22] := GF.Canvas.Pixels[N6pixX[22],N6pixY[22]]; N6Color[23] := GF.Canvas.Pixels[N6pixX[23],N6pixY[23]]; N6Color[24] := GF.Canvas.Pixels[N6pixX[24],N6pixY[24]]; N6Color[25] := GF.Canvas.Pixels[N6pixX[25],N6pixY[25]]; N6Color[26] := GF.Canvas.Pixels[N6pixX[26],N6pixY[26]]; N6Color[27] := GF.Canvas.Pixels[N6pixX[27],N6pixY[27]]; N6Color[28] := GF.Canvas.Pixels[N6pixX[28],N6pixY[28]]; N6Color[29] := GF.Canvas.Pixels[N6pixX[29],N6pixY[29]]; N6Color[30] := GF.Canvas.Pixels[N6pixX[30],N6pixY[30]]; if (N6Color[1]=$00000000) and (N6Color[2]=$00000000) and (N6Color[3]=$00000000) and (N6Color[4]=$00000000) and (N6Color[5]=$00000000) and (N6Color[6]=$00000000) and (N6Color[7]=$00000000) and (N6Color[8]=$00000000) and (N6Color[9]=$00000000) and (N6Color[10]=$00000000) and (N6Color[11]=$00000000) and (N6Color[12]=$00000000) and (N6Color[13]=$00000000) and (N6Color[14]=$00000000) and (N6Color[15]=$00000000) and (N6Color[16]=$00000000) and (N6Color[17]=$00000000) and (N6Color[18]=$00000000) and (N6Color[19]=$00000000) and (N6Color[20]=$00000000) and (N6Color[21]=$00000000) and (N6Color[22]=$00000000) and (N6Color[23]=$00000000) and (N6Color[24]=$00000000) and (N6Color[25]=$00000000) and (N6Color[26]=$00000000) and (N6Color[27]=$00000000) and (N6Color[28]=$00000000) and (N6Color[29]=$00000000) and (N6Color[30]=$00000000) then StrHGIF2 := '6' else N7Color[1] := GF.Canvas.Pixels[N7pixX[1],N7pixY[1]]; N7Color[2] := GF.Canvas.Pixels[N7pixX[2],N7pixY[2]]; N7Color[3] := GF.Canvas.Pixels[N7pixX[3],N7pixY[3]]; N7Color[4] := GF.Canvas.Pixels[N7pixX[4],N7pixY[4]]; N7Color[5] := GF.Canvas.Pixels[N7pixX[5],N7pixY[5]]; N7Color[6] := GF.Canvas.Pixels[N7pixX[6],N7pixY[6]]; N7Color[7] := GF.Canvas.Pixels[N7pixX[7],N7pixY[7]]; N7Color[8] := GF.Canvas.Pixels[N7pixX[8],N7pixY[8]]; N7Color[9] := GF.Canvas.Pixels[N7pixX[9],N7pixY[9]]; N7Color[10] := GF.Canvas.Pixels[N7pixX[10],N7pixY[10]]; N7Color[11] := GF.Canvas.Pixels[N7pixX[11],N7pixY[11]]; N7Color[12] := GF.Canvas.Pixels[N7pixX[12],N7pixY[12]]; N7Color[13] := GF.Canvas.Pixels[N7pixX[13],N7pixY[13]]; N7Color[14] := GF.Canvas.Pixels[N7pixX[14],N7pixY[14]]; N7Color[15] := GF.Canvas.Pixels[N7pixX[15],N7pixY[15]]; N7Color[16] := GF.Canvas.Pixels[N7pixX[16],N7pixY[16]]; N7Color[17] := GF.Canvas.Pixels[N7pixX[17],N7pixY[17]]; N7Color[18] := GF.Canvas.Pixels[N7pixX[18],N7pixY[18]]; N7Color[19] := GF.Canvas.Pixels[N7pixX[19],N7pixY[19]]; N7Color[20] := GF.Canvas.Pixels[N7pixX[20],N7pixY[20]]; N7Color[21] := GF.Canvas.Pixels[N7pixX[21],N7pixY[21]]; N7Color[22] := GF.Canvas.Pixels[N7pixX[22],N7pixY[22]]; N7Color[23] := GF.Canvas.Pixels[N7pixX[23],N7pixY[23]]; N7Color[24] := GF.Canvas.Pixels[N7pixX[24],N7pixY[24]]; if (N7Color[1]=$00000000) and (N7Color[2]=$00000000) and (N7Color[3]=$00000000) and (N7Color[4]=$00000000) and (N7Color[5]=$00000000) and (N7Color[6]=$00000000) and (N7Color[7]=$00000000) and (N7Color[8]=$00000000) and (N7Color[9]=$00000000) and (N7Color[10]=$00000000) and (N7Color[11]=$00000000) and (N7Color[12]=$00000000) and (N7Color[13]=$00000000) and (N7Color[14]=$00000000) and (N7Color[15]=$00000000) and (N7Color[16]=$00000000) and (N7Color[17]=$00000000) and (N7Color[18]=$00000000) and (N7Color[19]=$00000000) and (N7Color[20]=$00000000) and (N7Color[21]=$00000000) and (N7Color[22]=$00000000) and (N7Color[23]=$00000000) and (N7Color[24]=$00000000) then StrHGIF2 := '7' else N8Color[1] := GF.Canvas.Pixels[N8pixX[1],N8pixY[1]]; N8Color[2] := GF.Canvas.Pixels[N8pixX[2],N8pixY[2]]; N8Color[3] := GF.Canvas.Pixels[N8pixX[3],N8pixY[3]]; N8Color[4] := GF.Canvas.Pixels[N8pixX[4],N8pixY[4]]; N8Color[5] := GF.Canvas.Pixels[N8pixX[5],N8pixY[5]]; N8Color[6] := GF.Canvas.Pixels[N8pixX[6],N8pixY[6]]; N8Color[7] := GF.Canvas.Pixels[N8pixX[7],N8pixY[7]]; N8Color[8] := GF.Canvas.Pixels[N8pixX[8],N8pixY[8]]; N8Color[9] := GF.Canvas.Pixels[N8pixX[9],N8pixY[9]]; N8Color[10] := GF.Canvas.Pixels[N8pixX[10],N8pixY[10]]; N8Color[11] := GF.Canvas.Pixels[N8pixX[11],N8pixY[11]]; N8Color[12] := GF.Canvas.Pixels[N8pixX[12],N8pixY[12]]; N8Color[13] := GF.Canvas.Pixels[N8pixX[13],N8pixY[13]]; N8Color[14] := GF.Canvas.Pixels[N8pixX[14],N8pixY[14]]; N8Color[15] := GF.Canvas.Pixels[N8pixX[15],N8pixY[15]]; N8Color[16] := GF.Canvas.Pixels[N8pixX[16],N8pixY[16]]; N8Color[17] := GF.Canvas.Pixels[N8pixX[17],N8pixY[17]]; N8Color[18] := GF.Canvas.Pixels[N8pixX[18],N8pixY[18]]; N8Color[19] := GF.Canvas.Pixels[N8pixX[19],N8pixY[19]]; N8Color[20] := GF.Canvas.Pixels[N8pixX[20],N8pixY[20]]; N8Color[21] := GF.Canvas.Pixels[N8pixX[21],N8pixY[21]]; N8Color[22] := GF.Canvas.Pixels[N8pixX[22],N8pixY[22]]; N8Color[23] := GF.Canvas.Pixels[N8pixX[23],N8pixY[23]]; N8Color[24] := GF.Canvas.Pixels[N8pixX[24],N8pixY[24]]; N8Color[25] := GF.Canvas.Pixels[N8pixX[25],N8pixY[25]]; N8Color[26] := GF.Canvas.Pixels[N8pixX[26],N8pixY[26]]; N8Color[27] := GF.Canvas.Pixels[N8pixX[27],N8pixY[27]]; N8Color[28] := GF.Canvas.Pixels[N8pixX[28],N8pixY[28]]; N8Color[29] := GF.Canvas.Pixels[N8pixX[29],N8pixY[29]]; N8Color[30] := GF.Canvas.Pixels[N8pixX[30],N8pixY[30]]; N8Color[31] := GF.Canvas.Pixels[N8pixX[31],N8pixY[31]]; N8Color[32] := GF.Canvas.Pixels[N8pixX[32],N8pixY[32]]; N8Color[33] := GF.Canvas.Pixels[N8pixX[33],N8pixY[33]]; N8Color[34] := GF.Canvas.Pixels[N8pixX[34],N8pixY[34]]; N8Color[35] := GF.Canvas.Pixels[N8pixX[35],N8pixY[35]]; N8Color[36] := GF.Canvas.Pixels[N8pixX[36],N8pixY[36]]; if (N8Color[1]=$00000000) and (N8Color[2]=$00000000) and (N8Color[3]=$00000000) and (N8Color[4]=$00000000) and (N8Color[5]=$00000000) and (N8Color[6]=$00000000) and (N8Color[7]=$00000000) and (N8Color[8]=$00000000) and (N8Color[9]=$00000000) and (N8Color[10]=$00000000) and (N8Color[11]=$00000000) and (N8Color[12]=$00000000) and (N8Color[13]=$00000000) and (N8Color[14]=$00000000) and (N8Color[15]=$00000000) and (N8Color[16]=$00000000) and (N8Color[17]=$00000000) and (N8Color[18]=$00000000) and (N8Color[19]=$00000000) and (N8Color[20]=$00000000) and (N8Color[21]=$00000000) and (N8Color[22]=$00000000) and (N8Color[23]=$00000000) and (N8Color[24]=$00000000) and (N8Color[25]=$00000000) and (N8Color[26]=$00000000) and (N8Color[27]=$00000000) and (N8Color[28]=$00000000) and (N8Color[29]=$00000000) and (N8Color[30]=$00000000) and (N8Color[31]=$00000000) and (N8Color[32]=$00000000) and (N8Color[33]=$00000000) and (N8Color[34]=$00000000) and (N8Color[35]=$00000000) and (N8Color[36]=$00000000) then StrHGIF2 := '8' else N9Color[1] := GF.Canvas.Pixels[N9pixX[1],N9pixY[1]]; N9Color[2] := GF.Canvas.Pixels[N9pixX[2],N9pixY[2]]; N9Color[3] := GF.Canvas.Pixels[N9pixX[3],N9pixY[3]]; N9Color[4] := GF.Canvas.Pixels[N9pixX[4],N9pixY[4]]; N9Color[5] := GF.Canvas.Pixels[N9pixX[5],N9pixY[5]]; N9Color[6] := GF.Canvas.Pixels[N9pixX[6],N9pixY[6]]; N9Color[7] := GF.Canvas.Pixels[N9pixX[7],N9pixY[7]]; N9Color[8] := GF.Canvas.Pixels[N9pixX[8],N9pixY[8]]; N9Color[9] := GF.Canvas.Pixels[N9pixX[9],N9pixY[9]]; N9Color[10] := GF.Canvas.Pixels[N9pixX[10],N9pixY[10]]; N9Color[11] := GF.Canvas.Pixels[N9pixX[11],N9pixY[11]]; N9Color[12] := GF.Canvas.Pixels[N9pixX[12],N9pixY[12]]; N9Color[13] := GF.Canvas.Pixels[N9pixX[13],N9pixY[13]]; N9Color[14] := GF.Canvas.Pixels[N9pixX[14],N9pixY[14]]; N9Color[15] := GF.Canvas.Pixels[N9pixX[15],N9pixY[15]]; N9Color[16] := GF.Canvas.Pixels[N9pixX[16],N9pixY[16]]; N9Color[17] := GF.Canvas.Pixels[N9pixX[17],N9pixY[17]]; N9Color[18] := GF.Canvas.Pixels[N9pixX[18],N9pixY[18]]; N9Color[19] := GF.Canvas.Pixels[N9pixX[19],N9pixY[19]]; N9Color[20] := GF.Canvas.Pixels[N9pixX[20],N9pixY[20]]; N9Color[21] := GF.Canvas.Pixels[N9pixX[21],N9pixY[21]]; N9Color[22] := GF.Canvas.Pixels[N9pixX[22],N9pixY[22]]; N9Color[23] := GF.Canvas.Pixels[N9pixX[23],N9pixY[23]]; N9Color[24] := GF.Canvas.Pixels[N9pixX[24],N9pixY[24]]; N9Color[25] := GF.Canvas.Pixels[N9pixX[25],N9pixY[25]]; N9Color[26] := GF.Canvas.Pixels[N9pixX[26],N9pixY[26]]; N9Color[27] := GF.Canvas.Pixels[N9pixX[27],N9pixY[27]]; N9Color[28] := GF.Canvas.Pixels[N9pixX[28],N9pixY[28]]; N9Color[29] := GF.Canvas.Pixels[N9pixX[29],N9pixY[29]]; N9Color[30] := GF.Canvas.Pixels[N9pixX[30],N9pixY[30]]; if (N9Color[1]=$00000000) and (N9Color[2]=$00000000) and (N9Color[3]=$00000000) and (N9Color[4]=$00000000) and (N9Color[5]=$00000000) and (N9Color[6]=$00000000) and (N9Color[7]=$00000000) and (N9Color[8]=$00000000) and (N9Color[9]=$00000000) and (N9Color[10]=$00000000) and (N9Color[11]=$00000000) and (N9Color[12]=$00000000) and (N9Color[13]=$00000000) and (N9Color[14]=$00000000) and (N9Color[15]=$00000000) and (N9Color[16]=$00000000) and (N9Color[17]=$00000000) and (N9Color[18]=$00000000) and (N9Color[19]=$00000000) and (N9Color[20]=$00000000) and (N9Color[21]=$00000000) and (N9Color[22]=$00000000) and (N9Color[23]=$00000000) and (N9Color[24]=$00000000) and (N9Color[25]=$00000000) and (N9Color[26]=$00000000) and (N9Color[27]=$00000000) and (N9Color[28]=$00000000) and (N9Color[29]=$00000000) and (N9Color[30]=$00000000) then StrHGIF2 := '9' end; Procedure HackGIF3; Begin N0pixY[1] :=5; N0pixY[2] :=5; N0pixY[3] :=5; N0pixY[4] :=5; N0pixY[5] :=6; N0pixY[6] :=6; N0pixY[7] :=6; N0pixY[8] :=6; N0pixY[9] :=7; N0pixY[10] :=7; N0pixY[11] :=7; N0pixY[12] :=7; N0pixY[13] :=8; N0pixY[14] :=8; N0pixY[15] :=8; N0pixY[16] :=8; N0pixY[17] :=9; N0pixY[18] :=9; N0pixY[19] :=9; N0pixY[20] :=9; N0pixY[21] :=10; N0pixY[22] :=10; N0pixY[23] :=10; N0pixY[24] :=10; N0pixY[25] :=11; N0pixY[26] :=11; N0pixY[27] :=11; N0pixY[28] :=11; N0pixY[29] :=12; N0pixY[30] :=12; N0pixY[31] :=12; N0pixY[32] :=12; N0pixY[33] :=13; N0pixY[34] :=13; N0pixY[35] :=13; N0pixY[36] :=13; //N1 number 1 N1pixY[1] :=5; N1pixY[2] :=5; N1pixY[3] :=6; N1pixY[4] :=6; N1pixY[5] :=6; N1pixY[6] :=6; N1pixY[7] :=7; N1pixY[8] :=7; N1pixY[9] :=8; N1pixY[10] :=8; N1pixY[11] :=9; N1pixY[12] :=9; N1pixY[13] :=10; N1pixY[14] :=10; N1pixY[15] :=11; N1pixY[16] :=11; N1pixY[17] :=12; N1pixY[18] :=12; N1pixY[19] :=13; N1pixY[20] :=13; N1pixY[21] :=13; N1pixY[22] :=13; N1pixY[23] :=13; N1pixY[24] :=13; //N1 number 2 N2pixY[1] :=5; N2pixY[2] :=5; N2pixY[3] :=5; N2pixY[4] :=5; N2pixY[5] :=6; N2pixY[6] :=6; N2pixY[7] :=6; N2pixY[8] :=6; N2pixY[9] :=7; N2pixY[10] :=7; N2pixY[11] :=8; N2pixY[12] :=8; N2pixY[13] :=9; N2pixY[14] :=9; N2pixY[15] :=10; N2pixY[16] :=10; N2pixY[17] :=11; N2pixY[18] :=11; N2pixY[19] :=12; N2pixY[20] :=12; N2pixY[21] :=13; N2pixY[22] :=13; N2pixY[23] :=13; N2pixY[24] :=13; N2pixY[25] :=13; N2pixY[26] :=13; //N1 number 3 N3pixY[1] :=5; N3pixY[2] :=5; N3pixY[3] :=5; N3pixY[4] :=5; N3pixY[5] :=6; N3pixY[6] :=6; N3pixY[7] :=6; N3pixY[8] :=6; N3pixY[9] :=7; N3pixY[10] :=7; N3pixY[11] :=8; N3pixY[12] :=8; N3pixY[13] :=9; N3pixY[14] :=9; N3pixY[15] :=9; N3pixY[16] :=10; N3pixY[17] :=10; N3pixY[18] :=11; N3pixY[19] :=11; N3pixY[20] :=12; N3pixY[21] :=12; N3pixY[22] :=12; N3pixY[23] :=12; N3pixY[24] :=13; N3pixY[25] :=13; N3pixY[26] :=13; N3pixY[27] :=13; //N1 number 4 N4pixY[1] :=5; N4pixY[2] :=5; N4pixY[3] :=6; N4pixY[4] :=6; N4pixY[5] :=6; N4pixY[6] :=7; N4pixY[7] :=7; N4pixY[8] :=7; N4pixY[9] :=8; N4pixY[10] :=8; N4pixY[11] :=8; N4pixY[12] :=8; N4pixY[13] :=9; N4pixY[14] :=9; N4pixY[15] :=9; N4pixY[16] :=9; N4pixY[17] :=10; N4pixY[18] :=10; N4pixY[19] :=10; N4pixY[20] :=10; N4pixY[21] :=11; N4pixY[22] :=11; N4pixY[23] :=11; N4pixY[24] :=11; N4pixY[25] :=11; N4pixY[26] :=11; N4pixY[27] :=12; N4pixY[28] :=12; N4pixY[29] :=13; N4pixY[30] :=13; N4pixY[31] :=13; N4pixY[32] :=13; //N1 number 5 N5pixY[1] :=5; N5pixY[2] :=5; N5pixY[3] :=5; N5pixY[4] :=5; N5pixY[5] :=5; N5pixY[6] :=5; N5pixY[7] :=6; N5pixY[8] :=6; N5pixY[9] :=7; N5pixY[10] :=7; N5pixY[11] :=8; N5pixY[12] :=8; N5pixY[13] :=9; N5pixY[14] :=9; N5pixY[15] :=9; N5pixY[16] :=9; N5pixY[17] :=9; N5pixY[18] :=10; N5pixY[19] :=10; N5pixY[20] :=11; N5pixY[21] :=11; N5pixY[22] :=12; N5pixY[23] :=12; N5pixY[24] :=12; N5pixY[25] :=12; N5pixY[26] :=13; N5pixY[27] :=13; N5pixY[28] :=13; N5pixY[29] :=13; //N1 number 6 N6pixY[1] :=5; N6pixY[2] :=5; N6pixY[3] :=5; N6pixY[4] :=6; N6pixY[5] :=6; N6pixY[6] :=7; N6pixY[7] :=7; N6pixY[8] :=8; N6pixY[9] :=8; N6pixY[10] :=9; N6pixY[11] :=9; N6pixY[12] :=9; N6pixY[13] :=9; N6pixY[14] :=9; N6pixY[15] :=10; N6pixY[16] :=10; N6pixY[17] :=10; N6pixY[18] :=10; N6pixY[19] :=11; N6pixY[20] :=11; N6pixY[21] :=11; N6pixY[22] :=11; N6pixY[23] :=12; N6pixY[24] :=12; N6pixY[25] :=12; N6pixY[26] :=12; N6pixY[27] :=13; N6pixY[28] :=13; N6pixY[29] :=13; N6pixY[30] :=13; //N1 number 7 N7pixY[1] :=5; N7pixY[2] :=5; N7pixY[3] :=5; N7pixY[4] :=5; N7pixY[5] :=5; N7pixY[6] :=5; N7pixY[7] :=6; N7pixY[8] :=6; N7pixY[9] :=6; N7pixY[10] :=6; N7pixY[11] :=7; N7pixY[12] :=7; N7pixY[13] :=8; N7pixY[14] :=8; N7pixY[15] :=9; N7pixY[16] :=9; N7pixY[17] :=10; N7pixY[18] :=10; N7pixY[19] :=11; N7pixY[20] :=11; N7pixY[21] :=12; N7pixY[22] :=12; N7pixY[23] :=13; N7pixY[24] :=13; //N1 number 8 N8pixY[1] :=5; N8pixY[2] :=5; N8pixY[3] :=5; N8pixY[4] :=5; N8pixY[5] :=6; N8pixY[6] :=6; N8pixY[7] :=6; N8pixY[8] :=6; N8pixY[9] :=7; N8pixY[10] :=7; N8pixY[11] :=7; N8pixY[12] :=7; N8pixY[13] :=8; N8pixY[14] :=8; N8pixY[15] :=8; N8pixY[16] :=8; N8pixY[17] :=9; N8pixY[18] :=9; N8pixY[19] :=9; N8pixY[20] :=9; N8pixY[21] :=10; N8pixY[22] :=10; N8pixY[23] :=10; N8pixY[24] :=10; N8pixY[25] :=11; N8pixY[26] :=11; N8pixY[27] :=11; N8pixY[28] :=11; N8pixY[29] :=12; N8pixY[30] :=12; N8pixY[31] :=12; N8pixY[32] :=12; N8pixY[33] :=13; N8pixY[34] :=13; N8pixY[35] :=13; N8pixY[36] :=13; //N1 number 9 N9pixY[1] :=5; N9pixY[2] :=5; N9pixY[3] :=5; N9pixY[4] :=5; N9pixY[5] :=6; N9pixY[6] :=6; N9pixY[7] :=6; N9pixY[8] :=6; N9pixY[9] :=7; N9pixY[10] :=7; N9pixY[11] :=7; N9pixY[12] :=7; N9pixY[13] :=8; N9pixY[14] :=8; N9pixY[15] :=8; N9pixY[16] :=8; N9pixY[17] :=9; N9pixY[18] :=9; N9pixY[19] :=9; N9pixY[20] :=9; N9pixY[21] :=9; N9pixY[22] :=10; N9pixY[23] :=10; N9pixY[24] :=11; N9pixY[25] :=11; N9pixY[26] :=12; N9pixY[27] :=12; N9pixY[28] :=13; N9pixY[29] :=13; N9pixY[30] :=13; //X N0pixX[1] :=6+18; N0pixX[2] :=7+18; N0pixX[3] :=8+18; N0pixX[4] :=9+18; N0pixX[5] :=5+18; N0pixX[6] :=6+18; N0pixX[7] :=9+18; N0pixX[8] :=10+18; N0pixX[9] :=5+18; N0pixX[10] :=6+18; N0pixX[11] :=9+18; N0pixX[12] :=10+18; N0pixX[13] :=5+18; N0pixX[14] :=6+18; N0pixX[15] :=9+18; N0pixX[16] :=10+18; N0pixX[17] :=5+18; N0pixX[18] :=6+18; N0pixX[19] :=9+18; N0pixX[20] :=10+18; N0pixX[21] :=5+18; N0pixX[22] :=6+18; N0pixX[23] :=9+18; N0pixX[24] :=10+18; N0pixX[25] :=5+18; N0pixX[26] :=6+18; N0pixX[27] :=9+18; N0pixX[28] :=10+18; N0pixX[29] :=5+18; N0pixX[30] :=6+18; N0pixX[31] :=9+18; N0pixX[32] :=10+18; N0pixX[33] :=6+18; N0pixX[34] :=7+18; N0pixX[35] :=8+18; N0pixX[36] :=9+18; //N1 number 1 N1pixX[1] :=7+18; N1pixX[2] :=8+18; N1pixX[3] :=5+18; N1pixX[4] :=6+18; N1pixX[5] :=7+18; N1pixX[6] :=8+18; N1pixX[7] :=7+18; N1pixX[8] :=8+18; N1pixX[9] :=7+18; N1pixX[10] :=8+18; N1pixX[11] :=7+18; N1pixX[12] :=8+18; N1pixX[13] :=7+18; N1pixX[14] :=8+18; N1pixX[15] :=7+18; N1pixX[16] :=8+18; N1pixX[17] :=7+18; N1pixX[18] :=8+18; N1pixX[19] :=5+18; N1pixX[20] :=6+18; N1pixX[21] :=7+18; N1pixX[22] :=8+18; N1pixX[23] :=9+18; N1pixX[24] :=10+18; //N1 number 2 N2pixX[1] :=6+18; N2pixX[2] :=7+18; N2pixX[3] :=8+18; N2pixX[4] :=9+18; N2pixX[5] :=5+18; N2pixX[6] :=6+18; N2pixX[7] :=9+18; N2pixX[8] :=10+18; N2pixX[9] :=9+18; N2pixX[10] :=10+18; N2pixX[11] :=9+18; N2pixX[12] :=10+18; N2pixX[13] :=8+18; N2pixX[14] :=9+18; N2pixX[15] :=7+18; N2pixX[16] :=8+18; N2pixX[17] :=6+18; N2pixX[18] :=7+18; N2pixX[19] :=5+18; N2pixX[20] :=6+18; N2pixX[21] :=5+18; N2pixX[22] :=6+18; N2pixX[23] :=7+18; N2pixX[24] :=8+18; N2pixX[25] :=9+18; N2pixX[26] :=10+18; //N1 number 3 N3pixX[1] :=6+18; N3pixX[2] :=7+18; N3pixX[3] :=8+18; N3pixX[4] :=9+18; N3pixX[5] :=5+18; N3pixX[6] :=6+18; N3pixX[7] :=9+18; N3pixX[8] :=10+18; N3pixX[9] :=9+18; N3pixX[10] :=10+18; N3pixX[11] :=9+18; N3pixX[12] :=10+18; N3pixX[13] :=7+18; N3pixX[14] :=8+18; N3pixX[15] :=9+18; N3pixX[16] :=9+18; N3pixX[17] :=10+18; N3pixX[18] :=9+18; N3pixX[19] :=10+18; N3pixX[20] :=9+18; N3pixX[21] :=10+18; N3pixX[22] :=5+18; N3pixX[23] :=6+18; N3pixX[24] :=6+18; N3pixX[25] :=7+18; N3pixX[26] :=8+18; N3pixX[27] :=9+18; //N1 number 4 N4pixX[1] :=8+18; N4pixX[2] :=9+18; N4pixX[3] :=7+18; N4pixX[4] :=8+18; N4pixX[5] :=9+18; N4pixX[6] :=7+18; N4pixX[7] :=8+18; N4pixX[8] :=9+18; N4pixX[9] :=6+18; N4pixX[10] :=7+18; N4pixX[11] :=8+18; N4pixX[12] :=9+18; N4pixX[13] :=6+18; N4pixX[14] :=7+18; N4pixX[15] :=8+18; N4pixX[16] :=9+18; N4pixX[17] :=5+18; N4pixX[18] :=6+18; N4pixX[19] :=8+18; N4pixX[20] :=9+18; N4pixX[21] :=5+18; N4pixX[22] :=6+18; N4pixX[23] :=7+18; N4pixX[24] :=8+18; N4pixX[25] :=9+18; N4pixX[26] :=10+18; N4pixX[27] :=8+18; N4pixX[28] :=9+18; N4pixX[29] :=7+18; N4pixX[30] :=8+18; N4pixX[31] :=9+18; N4pixX[32] :=10+18; //N1 number 5 N5pixX[1] :=5+18; N5pixX[2] :=6+18; N5pixX[3] :=7+18; N5pixX[4] :=8+18; N5pixX[5] :=9+18; N5pixX[6] :=10+18; N5pixX[7] :=5+18; N5pixX[8] :=6+18; N5pixX[9] :=5+18; N5pixX[10] :=6+18; N5pixX[11] :=5+18; N5pixX[12] :=6+18; N5pixX[13] :=5+18; N5pixX[14] :=6+18; N5pixX[15] :=7+18; N5pixX[16] :=8+18; N5pixX[17] :=9+18; N5pixX[18] :=9+18; N5pixX[19] :=10+18; N5pixX[20] :=9+18; N5pixX[21] :=10+18; N5pixX[22] :=9+18; N5pixX[23] :=10+18; N5pixX[24] :=5+18; N5pixX[25] :=6+18; N5pixX[26] :=6+18; N5pixX[27] :=7+18; N5pixX[28] :=8+18; N5pixX[29] :=9+18; //N1 number 6 N6pixX[1] :=7+18; N6pixX[2] :=8+18; N6pixX[3] :=9+18; N6pixX[4] :=6+18; N6pixX[5] :=7+18; N6pixX[6] :=5+18; N6pixX[7] :=6+18; N6pixX[8] :=5+18; N6pixX[9] :=6+18; N6pixX[10] :=5+18; N6pixX[11] :=6+18; N6pixX[12] :=7+18; N6pixX[13] :=8+18; N6pixX[14] :=9+18; N6pixX[15] :=5+18; N6pixX[16] :=6+18; N6pixX[17] :=9+18; N6pixX[18] :=10+18; N6pixX[19] :=5+18; N6pixX[20] :=6+18; N6pixX[21] :=9+18; N6pixX[22] :=10+18; N6pixX[23] :=5+18; N6pixX[24] :=6+18; N6pixX[25] :=9+18; N6pixX[26] :=10+18; N6pixX[27] :=6+18; N6pixX[28] :=7+18; N6pixX[29] :=8+18; N6pixX[30] :=9+18; //N1 number 7 N7pixX[1] :=5+18; N7pixX[2] :=6+18; N7pixX[3] :=7+18; N7pixX[4] :=8+18; N7pixX[5] :=9+18; N7pixX[6] :=10+18; N7pixX[7] :=5+18; N7pixX[8] :=6+18; N7pixX[9] :=9+18; N7pixX[10] :=10+18; N7pixX[11] :=9+18; N7pixX[12] :=10+18; N7pixX[13] :=8+18; N7pixX[14] :=9+18; N7pixX[15] :=8+18; N7pixX[16] :=9+18; N7pixX[17] :=7+18; N7pixX[18] :=8+18; N7pixX[19] :=7+18; N7pixX[20] :=8+18; N7pixX[21] :=6+18; N7pixX[22] :=7+18; N7pixX[23] :=6+18; N7pixX[24] :=7+18; //N1 number 8 N8pixX[1] :=6+18; N8pixX[2] :=7+18; N8pixX[3] :=8+18; N8pixX[4] :=9+18; N8pixX[5] :=5+18; N8pixX[6] :=6+18; N8pixX[7] :=9+18; N8pixX[8] :=10+18; N8pixX[9] :=5+18; N8pixX[10] :=6+18; N8pixX[11] :=9+18; N8pixX[12] :=10+18; N8pixX[13] :=5+18; N8pixX[14] :=6+18; N8pixX[15] :=9+18; N8pixX[16] :=10+18; N8pixX[17] :=6+18; N8pixX[18] :=7+18; N8pixX[19] :=8+18; N8pixX[20] :=9+18; N8pixX[21] :=5+18; N8pixX[22] :=6+18; N8pixX[23] :=9+18; N8pixX[24] :=10+18; N8pixX[25] :=5+18; N8pixX[26] :=6+18; N8pixX[27] :=9+18; N8pixX[28] :=10+18; N8pixX[29] :=5+18; N8pixX[30] :=6+18; N8pixX[31] :=9+18; N8pixX[32] :=10+18; N8pixX[33] :=6+18; N8pixX[34] :=7+18; N8pixX[35] :=8+18; N8pixX[36] :=9+18; //N1 number 9 N9pixX[1] :=6+18; N9pixX[2] :=7+18; N9pixX[3] :=8+18; N9pixX[4] :=9+18; N9pixX[5] :=5+18; N9pixX[6] :=6+18; N9pixX[7] :=9+18; N9pixX[8] :=10+18; N9pixX[9] :=5+18; N9pixX[10] :=6+18; N9pixX[11] :=9+18; N9pixX[12] :=10+18; N9pixX[13] :=5+18; N9pixX[14] :=6+18; N9pixX[15] :=9+18; N9pixX[16] :=10+18; N9pixX[17] :=6+18; N9pixX[18] :=7+18; N9pixX[19] :=8+18; N9pixX[20] :=9+18; N9pixX[21] :=10+18; N9pixX[22] :=9+18; N9pixX[23] :=10+18; N9pixX[24] :=9+18; N9pixX[25] :=10+18; N9pixX[26] :=8+18; N9pixX[27] :=9+18; N9pixX[28] :=6+18; N9pixX[29] :=7+18; N9pixX[30] :=8+18; /////////////////////////////////////////////////////////////////////////////// ///Load number.gif///////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////////// GF := TBitMap.Create; GIF := TGIFimage.Create; GIF.LoadFromFile('number.gif');//Загружаем скаченый файл GF.Assign(GIF); /////////////////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////////// N0Color[1] := GF.Canvas.Pixels[N0pixX[1],N0pixY[1]]; N0Color[2] := GF.Canvas.Pixels[N0pixX[2],N0pixY[2]]; N0Color[3] := GF.Canvas.Pixels[N0pixX[3],N0pixY[3]]; N0Color[4] := GF.Canvas.Pixels[N0pixX[4],N0pixY[4]]; N0Color[5] := GF.Canvas.Pixels[N0pixX[5],N0pixY[5]]; N0Color[6] := GF.Canvas.Pixels[N0pixX[6],N0pixY[6]]; N0Color[7] := GF.Canvas.Pixels[N0pixX[7],N0pixY[7]]; N0Color[8] := GF.Canvas.Pixels[N0pixX[8],N0pixY[8]]; N0Color[9] := GF.Canvas.Pixels[N0pixX[9],N0pixY[9]]; N0Color[10] := GF.Canvas.Pixels[N0pixX[10],N0pixY[10]]; N0Color[11] := GF.Canvas.Pixels[N0pixX[11],N0pixY[11]]; N0Color[12] := GF.Canvas.Pixels[N0pixX[12],N0pixY[12]]; N0Color[13] := GF.Canvas.Pixels[N0pixX[13],N0pixY[13]]; N0Color[14] := GF.Canvas.Pixels[N0pixX[14],N0pixY[14]]; N0Color[15] := GF.Canvas.Pixels[N0pixX[15],N0pixY[15]]; N0Color[16] := GF.Canvas.Pixels[N0pixX[16],N0pixY[16]]; N0Color[17] := GF.Canvas.Pixels[N0pixX[17],N0pixY[17]]; N0Color[18] := GF.Canvas.Pixels[N0pixX[18],N0pixY[18]]; N0Color[19] := GF.Canvas.Pixels[N0pixX[19],N0pixY[19]]; N0Color[20] := GF.Canvas.Pixels[N0pixX[20],N0pixY[20]]; N0Color[21] := GF.Canvas.Pixels[N0pixX[21],N0pixY[21]]; N0Color[22] := GF.Canvas.Pixels[N0pixX[22],N0pixY[22]]; N0Color[23] := GF.Canvas.Pixels[N0pixX[23],N0pixY[23]]; N0Color[24] := GF.Canvas.Pixels[N0pixX[24],N0pixY[24]]; N0Color[25] := GF.Canvas.Pixels[N0pixX[25],N0pixY[25]]; N0Color[26] := GF.Canvas.Pixels[N0pixX[26],N0pixY[26]]; N0Color[27] := GF.Canvas.Pixels[N0pixX[27],N0pixY[27]]; N0Color[28] := GF.Canvas.Pixels[N0pixX[28],N0pixY[28]]; N0Color[29] := GF.Canvas.Pixels[N0pixX[29],N0pixY[29]]; N0Color[30] := GF.Canvas.Pixels[N0pixX[30],N0pixY[30]]; N0Color[31] := GF.Canvas.Pixels[N0pixX[31],N0pixY[31]]; N0Color[32] := GF.Canvas.Pixels[N0pixX[32],N0pixY[32]]; N0Color[33] := GF.Canvas.Pixels[N0pixX[33],N0pixY[33]]; N0Color[34] := GF.Canvas.Pixels[N0pixX[34],N0pixY[34]]; N0Color[35] := GF.Canvas.Pixels[N0pixX[35],N0pixY[35]]; N0Color[36] := GF.Canvas.Pixels[N0pixX[36],N0pixY[36]]; if (N0Color[1]=$00000000) and (N0Color[2]=$00000000) and (N0Color[3]=$00000000) and (N0Color[4]=$00000000) and (N0Color[5]=$00000000) and (N0Color[6]=$00000000) and (N0Color[7]=$00000000) and (N0Color[8]=$00000000) and (N0Color[9]=$00000000) and (N0Color[10]=$00000000) and (N0Color[11]=$00000000) and (N0Color[12]=$00000000) and (N0Color[13]=$00000000) and (N0Color[14]=$00000000) and (N0Color[15]=$00000000) and (N0Color[16]=$00000000) and (N0Color[17]=$00000000) and (N0Color[18]=$00000000) and (N0Color[19]=$00000000) and (N0Color[20]=$00000000) and (N0Color[21]=$00000000) and (N0Color[22]=$00000000) and (N0Color[23]=$00000000) and (N0Color[24]=$00000000) and (N0Color[25]=$00000000) and (N0Color[26]=$00000000) and (N0Color[27]=$00000000) and (N0Color[28]=$00000000) and (N0Color[29]=$00000000) and (N0Color[30]=$00000000) and (N0Color[31]=$00000000) and (N0Color[32]=$00000000) and (N0Color[33]=$00000000) and (N0Color[34]=$00000000) and (N0Color[35]=$00000000) and (N0Color[36]=$00000000) then StrHGIF3 := '0' else N1Color[1] := GF.Canvas.Pixels[N1pixX[1],N1pixY[1]]; N1Color[2] := GF.Canvas.Pixels[N1pixX[2],N1pixY[2]]; N1Color[3] := GF.Canvas.Pixels[N1pixX[3],N1pixY[3]]; N1Color[4] := GF.Canvas.Pixels[N1pixX[4],N1pixY[4]]; N1Color[5] := GF.Canvas.Pixels[N1pixX[5],N1pixY[5]]; N1Color[6] := GF.Canvas.Pixels[N1pixX[6],N1pixY[6]]; N1Color[7] := GF.Canvas.Pixels[N1pixX[7],N1pixY[7]]; N1Color[8] := GF.Canvas.Pixels[N1pixX[8],N1pixY[8]]; N1Color[9] := GF.Canvas.Pixels[N1pixX[9],N1pixY[9]]; N1Color[10] := GF.Canvas.Pixels[N1pixX[10],N1pixY[10]]; N1Color[11] := GF.Canvas.Pixels[N1pixX[11],N1pixY[11]]; N1Color[12] := GF.Canvas.Pixels[N1pixX[12],N1pixY[12]]; N1Color[13] := GF.Canvas.Pixels[N1pixX[13],N1pixY[13]]; N1Color[14] := GF.Canvas.Pixels[N1pixX[14],N1pixY[14]]; N1Color[15] := GF.Canvas.Pixels[N1pixX[15],N1pixY[15]]; N1Color[16] := GF.Canvas.Pixels[N1pixX[16],N1pixY[16]]; N1Color[17] := GF.Canvas.Pixels[N1pixX[17],N1pixY[17]]; N1Color[18] := GF.Canvas.Pixels[N1pixX[18],N1pixY[18]]; N1Color[19] := GF.Canvas.Pixels[N1pixX[19],N1pixY[19]]; N1Color[20] := GF.Canvas.Pixels[N1pixX[20],N1pixY[20]]; N1Color[21] := GF.Canvas.Pixels[N1pixX[21],N1pixY[21]]; N1Color[22] := GF.Canvas.Pixels[N1pixX[22],N1pixY[22]]; N1Color[23] := GF.Canvas.Pixels[N1pixX[23],N1pixY[23]]; N1Color[24] := GF.Canvas.Pixels[N1pixX[24],N1pixY[24]]; if (N1Color[1]=$00000000) and (N1Color[2]=$00000000) and (N1Color[3]=$00000000) and (N1Color[4]=$00000000) and (N1Color[5]=$00000000) and (N1Color[6]=$00000000) and (N1Color[7]=$00000000) and (N1Color[8]=$00000000) and (N1Color[9]=$00000000) and (N1Color[10]=$00000000) and (N1Color[11]=$00000000) and (N1Color[12]=$00000000) and (N1Color[13]=$00000000) and (N1Color[14]=$00000000) and (N1Color[15]=$00000000) and (N1Color[16]=$00000000) and (N1Color[17]=$00000000) and (N1Color[18]=$00000000) and (N1Color[19]=$00000000) and (N1Color[20]=$00000000) and (N1Color[21]=$00000000) and (N1Color[22]=$00000000) and (N1Color[23]=$00000000) and (N1Color[24]=$00000000) then StrHGIF3 := '1' else N2Color[1] := GF.Canvas.Pixels[N2pixX[1],N2pixY[1]]; N2Color[2] := GF.Canvas.Pixels[N2pixX[2],N2pixY[2]]; N2Color[3] := GF.Canvas.Pixels[N2pixX[3],N2pixY[3]]; N2Color[4] := GF.Canvas.Pixels[N2pixX[4],N2pixY[4]]; N2Color[5] := GF.Canvas.Pixels[N2pixX[5],N2pixY[5]]; N2Color[6] := GF.Canvas.Pixels[N2pixX[6],N2pixY[6]]; N2Color[7] := GF.Canvas.Pixels[N2pixX[7],N2pixY[7]]; N2Color[8] := GF.Canvas.Pixels[N2pixX[8],N2pixY[8]]; N2Color[9] := GF.Canvas.Pixels[N2pixX[9],N2pixY[9]]; N2Color[10] := GF.Canvas.Pixels[N2pixX[10],N2pixY[10]]; N2Color[11] := GF.Canvas.Pixels[N2pixX[11],N2pixY[11]]; N2Color[12] := GF.Canvas.Pixels[N2pixX[12],N2pixY[12]]; N2Color[13] := GF.Canvas.Pixels[N2pixX[13],N2pixY[13]]; N2Color[14] := GF.Canvas.Pixels[N2pixX[14],N2pixY[14]]; N2Color[15] := GF.Canvas.Pixels[N2pixX[15],N2pixY[15]]; N2Color[16] := GF.Canvas.Pixels[N2pixX[16],N2pixY[16]]; N2Color[17] := GF.Canvas.Pixels[N2pixX[17],N2pixY[17]]; N2Color[18] := GF.Canvas.Pixels[N2pixX[18],N2pixY[18]]; N2Color[19] := GF.Canvas.Pixels[N2pixX[19],N2pixY[19]]; N2Color[20] := GF.Canvas.Pixels[N2pixX[20],N2pixY[20]]; N2Color[21] := GF.Canvas.Pixels[N2pixX[21],N2pixY[21]]; N2Color[22] := GF.Canvas.Pixels[N2pixX[22],N2pixY[22]]; N2Color[23] := GF.Canvas.Pixels[N2pixX[23],N2pixY[23]]; N2Color[24] := GF.Canvas.Pixels[N2pixX[24],N2pixY[24]]; N2Color[25] := GF.Canvas.Pixels[N2pixX[25],N2pixY[25]]; N2Color[26] := GF.Canvas.Pixels[N2pixX[26],N2pixY[26]]; if (N2Color[1]=$00000000) and (N2Color[2]=$00000000) and (N2Color[3]=$00000000) and (N2Color[4]=$00000000) and (N2Color[5]=$00000000) and (N2Color[6]=$00000000) and (N2Color[7]=$00000000) and (N2Color[8]=$00000000) and (N2Color[9]=$00000000) and (N2Color[10]=$00000000) and (N2Color[11]=$00000000) and (N2Color[12]=$00000000) and (N2Color[13]=$00000000) and (N2Color[14]=$00000000) and (N2Color[15]=$00000000) and (N2Color[16]=$00000000) and (N2Color[17]=$00000000) and (N2Color[18]=$00000000) and (N2Color[19]=$00000000) and (N2Color[20]=$00000000) and (N2Color[21]=$00000000) and (N2Color[22]=$00000000) and (N2Color[23]=$00000000) and (N2Color[24]=$00000000) and (N2Color[25]=$00000000) and (N2Color[26]=$00000000) then StrHGIF3 := '2' else N3Color[1] := GF.Canvas.Pixels[N3pixX[1],N3pixY[1]]; N3Color[2] := GF.Canvas.Pixels[N3pixX[2],N3pixY[2]]; N3Color[3] := GF.Canvas.Pixels[N3pixX[3],N3pixY[3]]; N3Color[4] := GF.Canvas.Pixels[N3pixX[4],N3pixY[4]]; N3Color[5] := GF.Canvas.Pixels[N3pixX[5],N3pixY[5]]; N3Color[6] := GF.Canvas.Pixels[N3pixX[6],N3pixY[6]]; N3Color[7] := GF.Canvas.Pixels[N3pixX[7],N3pixY[7]]; N3Color[8] := GF.Canvas.Pixels[N3pixX[8],N3pixY[8]]; N3Color[9] := GF.Canvas.Pixels[N3pixX[9],N3pixY[9]]; N3Color[10] := GF.Canvas.Pixels[N3pixX[10],N3pixY[10]]; N3Color[11] := GF.Canvas.Pixels[N3pixX[11],N3pixY[11]]; N3Color[12] := GF.Canvas.Pixels[N3pixX[12],N3pixY[12]]; N3Color[13] := GF.Canvas.Pixels[N3pixX[13],N3pixY[13]]; N3Color[14] := GF.Canvas.Pixels[N3pixX[14],N3pixY[14]]; N3Color[15] := GF.Canvas.Pixels[N3pixX[15],N3pixY[15]]; N3Color[16] := GF.Canvas.Pixels[N3pixX[16],N3pixY[16]]; N3Color[17] := GF.Canvas.Pixels[N3pixX[17],N3pixY[17]]; N3Color[18] := GF.Canvas.Pixels[N3pixX[18],N3pixY[18]]; N3Color[19] := GF.Canvas.Pixels[N3pixX[19],N3pixY[19]]; N3Color[20] := GF.Canvas.Pixels[N3pixX[20],N3pixY[20]]; N3Color[21] := GF.Canvas.Pixels[N3pixX[21],N3pixY[21]]; N3Color[22] := GF.Canvas.Pixels[N3pixX[22],N3pixY[22]]; N3Color[23] := GF.Canvas.Pixels[N3pixX[23],N3pixY[23]]; N3Color[24] := GF.Canvas.Pixels[N3pixX[24],N3pixY[24]]; N3Color[25] := GF.Canvas.Pixels[N3pixX[25],N3pixY[25]]; N3Color[26] := GF.Canvas.Pixels[N3pixX[26],N3pixY[26]]; N3Color[27] := GF.Canvas.Pixels[N3pixX[27],N3pixY[27]]; if (N3Color[1]=$00000000) and (N3Color[2]=$00000000) and (N3Color[3]=$00000000) and (N3Color[4]=$00000000) and (N3Color[5]=$00000000) and (N3Color[6]=$00000000) and (N3Color[7]=$00000000) and (N3Color[8]=$00000000) and (N3Color[9]=$00000000) and (N3Color[10]=$00000000) and (N3Color[11]=$00000000) and (N3Color[12]=$00000000) and (N3Color[13]=$00000000) and (N3Color[14]=$00000000) and (N3Color[15]=$00000000) and (N3Color[16]=$00000000) and (N3Color[17]=$00000000) and (N3Color[18]=$00000000) and (N3Color[19]=$00000000) and (N3Color[20]=$00000000) and (N3Color[21]=$00000000) and (N3Color[22]=$00000000) and (N3Color[23]=$00000000) and (N3Color[24]=$00000000) and (N3Color[25]=$00000000) and (N3Color[26]=$00000000) and (N3Color[27]=$00000000) then StrHGIF3 := '3' else N4Color[1] := GF.Canvas.Pixels[N4pixX[1],N4pixY[1]]; N4Color[2] := GF.Canvas.Pixels[N4pixX[2],N4pixY[2]]; N4Color[3] := GF.Canvas.Pixels[N4pixX[3],N4pixY[3]]; N4Color[4] := GF.Canvas.Pixels[N4pixX[4],N4pixY[4]]; N4Color[5] := GF.Canvas.Pixels[N4pixX[5],N4pixY[5]]; N4Color[6] := GF.Canvas.Pixels[N4pixX[6],N4pixY[6]]; N4Color[7] := GF.Canvas.Pixels[N4pixX[7],N4pixY[7]]; N4Color[8] := GF.Canvas.Pixels[N4pixX[8],N4pixY[8]]; N4Color[9] := GF.Canvas.Pixels[N4pixX[9],N4pixY[9]]; N4Color[10] := GF.Canvas.Pixels[N4pixX[10],N4pixY[10]]; N4Color[11] := GF.Canvas.Pixels[N4pixX[11],N4pixY[11]]; N4Color[12] := GF.Canvas.Pixels[N4pixX[12],N4pixY[12]]; N4Color[13] := GF.Canvas.Pixels[N4pixX[13],N4pixY[13]]; N4Color[14] := GF.Canvas.Pixels[N4pixX[14],N4pixY[14]]; N4Color[15] := GF.Canvas.Pixels[N4pixX[15],N4pixY[15]]; N4Color[16] := GF.Canvas.Pixels[N4pixX[16],N4pixY[16]]; N4Color[17] := GF.Canvas.Pixels[N4pixX[17],N4pixY[17]]; N4Color[18] := GF.Canvas.Pixels[N4pixX[18],N4pixY[18]]; N4Color[19] := GF.Canvas.Pixels[N4pixX[19],N4pixY[19]]; N4Color[20] := GF.Canvas.Pixels[N4pixX[20],N4pixY[20]]; N4Color[21] := GF.Canvas.Pixels[N4pixX[21],N4pixY[21]]; N4Color[22] := GF.Canvas.Pixels[N4pixX[22],N4pixY[22]]; N4Color[23] := GF.Canvas.Pixels[N4pixX[23],N4pixY[23]]; N4Color[24] := GF.Canvas.Pixels[N4pixX[24],N4pixY[24]]; N4Color[25] := GF.Canvas.Pixels[N4pixX[25],N4pixY[25]]; N4Color[26] := GF.Canvas.Pixels[N4pixX[26],N4pixY[26]]; N4Color[27] := GF.Canvas.Pixels[N4pixX[27],N4pixY[27]]; N4Color[28] := GF.Canvas.Pixels[N4pixX[28],N4pixY[28]]; N4Color[29] := GF.Canvas.Pixels[N4pixX[29],N4pixY[29]]; N4Color[30] := GF.Canvas.Pixels[N4pixX[30],N4pixY[30]]; N4Color[31] := GF.Canvas.Pixels[N4pixX[31],N4pixY[31]]; N4Color[32] := GF.Canvas.Pixels[N4pixX[32],N4pixY[32]]; if (N4Color[1]=$00000000) and (N4Color[2]=$00000000) and (N4Color[3]=$00000000) and (N4Color[4]=$00000000) and (N4Color[5]=$00000000) and (N4Color[6]=$00000000) and (N4Color[7]=$00000000) and (N4Color[8]=$00000000) and (N4Color[9]=$00000000) and (N4Color[10]=$00000000) and (N4Color[11]=$00000000) and (N4Color[12]=$00000000) and (N4Color[13]=$00000000) and (N4Color[14]=$00000000) and (N4Color[15]=$00000000) and (N4Color[16]=$00000000) and (N4Color[17]=$00000000) and (N4Color[18]=$00000000) and (N4Color[19]=$00000000) and (N4Color[20]=$00000000) and (N4Color[21]=$00000000) and (N4Color[22]=$00000000) and (N4Color[23]=$00000000) and (N4Color[24]=$00000000) and (N4Color[25]=$00000000) and (N4Color[26]=$00000000) and (N4Color[27]=$00000000) and (N4Color[28]=$00000000) and (N4Color[29]=$00000000) and (N4Color[30]=$00000000) and (N4Color[31]=$00000000) and (N4Color[32]=$00000000) then StrHGIF3 := '4' else N5Color[1] := GF.Canvas.Pixels[N5pixX[1],N5pixY[1]]; N5Color[2] := GF.Canvas.Pixels[N5pixX[2],N5pixY[2]]; N5Color[3] := GF.Canvas.Pixels[N5pixX[3],N5pixY[3]]; N5Color[4] := GF.Canvas.Pixels[N5pixX[4],N5pixY[4]]; N5Color[5] := GF.Canvas.Pixels[N5pixX[5],N5pixY[5]]; N5Color[6] := GF.Canvas.Pixels[N5pixX[6],N5pixY[6]]; N5Color[7] := GF.Canvas.Pixels[N5pixX[7],N5pixY[7]]; N5Color[8] := GF.Canvas.Pixels[N5pixX[8],N5pixY[8]]; N5Color[9] := GF.Canvas.Pixels[N5pixX[9],N5pixY[9]]; N5Color[10] := GF.Canvas.Pixels[N5pixX[10],N5pixY[10]]; N5Color[11] := GF.Canvas.Pixels[N5pixX[11],N5pixY[11]]; N5Color[12] := GF.Canvas.Pixels[N5pixX[12],N5pixY[12]]; N5Color[13] := GF.Canvas.Pixels[N5pixX[13],N5pixY[13]]; N5Color[14] := GF.Canvas.Pixels[N5pixX[14],N5pixY[14]]; N5Color[15] := GF.Canvas.Pixels[N5pixX[15],N5pixY[15]]; N5Color[16] := GF.Canvas.Pixels[N5pixX[16],N5pixY[16]]; N5Color[17] := GF.Canvas.Pixels[N5pixX[17],N5pixY[17]]; N5Color[18] := GF.Canvas.Pixels[N5pixX[18],N5pixY[18]]; N5Color[19] := GF.Canvas.Pixels[N5pixX[19],N5pixY[19]]; N5Color[20] := GF.Canvas.Pixels[N5pixX[20],N5pixY[20]]; N5Color[21] := GF.Canvas.Pixels[N5pixX[21],N5pixY[21]]; N5Color[22] := GF.Canvas.Pixels[N5pixX[22],N5pixY[22]]; N5Color[23] := GF.Canvas.Pixels[N5pixX[23],N5pixY[23]]; N5Color[24] := GF.Canvas.Pixels[N5pixX[24],N5pixY[24]]; N5Color[25] := GF.Canvas.Pixels[N5pixX[25],N5pixY[25]]; N5Color[26] := GF.Canvas.Pixels[N5pixX[26],N5pixY[26]]; N5Color[27] := GF.Canvas.Pixels[N5pixX[27],N5pixY[27]]; N5Color[28] := GF.Canvas.Pixels[N5pixX[28],N5pixY[28]]; N5Color[29] := GF.Canvas.Pixels[N5pixX[29],N5pixY[29]]; if (N5Color[1]=$00000000) and (N5Color[2]=$00000000) and (N5Color[3]=$00000000) and (N5Color[4]=$00000000) and (N5Color[5]=$00000000) and (N5Color[6]=$00000000) and (N5Color[7]=$00000000) and (N5Color[8]=$00000000) and (N5Color[9]=$00000000) and (N5Color[10]=$00000000) and (N5Color[11]=$00000000) and (N5Color[12]=$00000000) and (N5Color[13]=$00000000) and (N5Color[14]=$00000000) and (N5Color[15]=$00000000) and (N5Color[16]=$00000000) and (N5Color[17]=$00000000) and (N5Color[18]=$00000000) and (N5Color[19]=$00000000) and (N5Color[20]=$00000000) and (N5Color[21]=$00000000) and (N5Color[22]=$00000000) and (N5Color[23]=$00000000) and (N5Color[24]=$00000000) and (N5Color[25]=$00000000) and (N5Color[26]=$00000000) and (N5Color[27]=$00000000) and (N5Color[28]=$00000000) and (N5Color[29]=$00000000) then StrHGIF3 := '5' else N6Color[1] := GF.Canvas.Pixels[N6pixX[1],N6pixY[1]]; N6Color[2] := GF.Canvas.Pixels[N6pixX[2],N6pixY[2]]; N6Color[3] := GF.Canvas.Pixels[N6pixX[3],N6pixY[3]]; N6Color[4] := GF.Canvas.Pixels[N6pixX[4],N6pixY[4]]; N6Color[5] := GF.Canvas.Pixels[N6pixX[5],N6pixY[5]]; N6Color[6] := GF.Canvas.Pixels[N6pixX[6],N6pixY[6]]; N6Color[7] := GF.Canvas.Pixels[N6pixX[7],N6pixY[7]]; N6Color[8] := GF.Canvas.Pixels[N6pixX[8],N6pixY[8]]; N6Color[9] := GF.Canvas.Pixels[N6pixX[9],N6pixY[9]]; N6Color[10] := GF.Canvas.Pixels[N6pixX[10],N6pixY[10]]; N6Color[11] := GF.Canvas.Pixels[N6pixX[11],N6pixY[11]]; N6Color[12] := GF.Canvas.Pixels[N6pixX[12],N6pixY[12]]; N6Color[13] := GF.Canvas.Pixels[N6pixX[13],N6pixY[13]]; N6Color[14] := GF.Canvas.Pixels[N6pixX[14],N6pixY[14]]; N6Color[15] := GF.Canvas.Pixels[N6pixX[15],N6pixY[15]]; N6Color[16] := GF.Canvas.Pixels[N6pixX[16],N6pixY[16]]; N6Color[17] := GF.Canvas.Pixels[N6pixX[17],N6pixY[17]]; N6Color[18] := GF.Canvas.Pixels[N6pixX[18],N6pixY[18]]; N6Color[19] := GF.Canvas.Pixels[N6pixX[19],N6pixY[19]]; N6Color[20] := GF.Canvas.Pixels[N6pixX[20],N6pixY[20]]; N6Color[21] := GF.Canvas.Pixels[N6pixX[21],N6pixY[21]]; N6Color[22] := GF.Canvas.Pixels[N6pixX[22],N6pixY[22]]; N6Color[23] := GF.Canvas.Pixels[N6pixX[23],N6pixY[23]]; N6Color[24] := GF.Canvas.Pixels[N6pixX[24],N6pixY[24]]; N6Color[25] := GF.Canvas.Pixels[N6pixX[25],N6pixY[25]]; N6Color[26] := GF.Canvas.Pixels[N6pixX[26],N6pixY[26]]; N6Color[27] := GF.Canvas.Pixels[N6pixX[27],N6pixY[27]]; N6Color[28] := GF.Canvas.Pixels[N6pixX[28],N6pixY[28]]; N6Color[29] := GF.Canvas.Pixels[N6pixX[29],N6pixY[29]]; N6Color[30] := GF.Canvas.Pixels[N6pixX[30],N6pixY[30]]; if (N6Color[1]=$00000000) and (N6Color[2]=$00000000) and (N6Color[3]=$00000000) and (N6Color[4]=$00000000) and (N6Color[5]=$00000000) and (N6Color[6]=$00000000) and (N6Color[7]=$00000000) and (N6Color[8]=$00000000) and (N6Color[9]=$00000000) and (N6Color[10]=$00000000) and (N6Color[11]=$00000000) and (N6Color[12]=$00000000) and (N6Color[13]=$00000000) and (N6Color[14]=$00000000) and (N6Color[15]=$00000000) and (N6Color[16]=$00000000) and (N6Color[17]=$00000000) and (N6Color[18]=$00000000) and (N6Color[19]=$00000000) and (N6Color[20]=$00000000) and (N6Color[21]=$00000000) and (N6Color[22]=$00000000) and (N6Color[23]=$00000000) and (N6Color[24]=$00000000) and (N6Color[25]=$00000000) and (N6Color[26]=$00000000) and (N6Color[27]=$00000000) and (N6Color[28]=$00000000) and (N6Color[29]=$00000000) and (N6Color[30]=$00000000) then StrHGIF3 := '6' else N7Color[1] := GF.Canvas.Pixels[N7pixX[1],N7pixY[1]]; N7Color[2] := GF.Canvas.Pixels[N7pixX[2],N7pixY[2]]; N7Color[3] := GF.Canvas.Pixels[N7pixX[3],N7pixY[3]]; N7Color[4] := GF.Canvas.Pixels[N7pixX[4],N7pixY[4]]; N7Color[5] := GF.Canvas.Pixels[N7pixX[5],N7pixY[5]]; N7Color[6] := GF.Canvas.Pixels[N7pixX[6],N7pixY[6]]; N7Color[7] := GF.Canvas.Pixels[N7pixX[7],N7pixY[7]]; N7Color[8] := GF.Canvas.Pixels[N7pixX[8],N7pixY[8]]; N7Color[9] := GF.Canvas.Pixels[N7pixX[9],N7pixY[9]]; N7Color[10] := GF.Canvas.Pixels[N7pixX[10],N7pixY[10]]; N7Color[11] := GF.Canvas.Pixels[N7pixX[11],N7pixY[11]]; N7Color[12] := GF.Canvas.Pixels[N7pixX[12],N7pixY[12]]; N7Color[13] := GF.Canvas.Pixels[N7pixX[13],N7pixY[13]]; N7Color[14] := GF.Canvas.Pixels[N7pixX[14],N7pixY[14]]; N7Color[15] := GF.Canvas.Pixels[N7pixX[15],N7pixY[15]]; N7Color[16] := GF.Canvas.Pixels[N7pixX[16],N7pixY[16]]; N7Color[17] := GF.Canvas.Pixels[N7pixX[17],N7pixY[17]]; N7Color[18] := GF.Canvas.Pixels[N7pixX[18],N7pixY[18]]; N7Color[19] := GF.Canvas.Pixels[N7pixX[19],N7pixY[19]]; N7Color[20] := GF.Canvas.Pixels[N7pixX[20],N7pixY[20]]; N7Color[21] := GF.Canvas.Pixels[N7pixX[21],N7pixY[21]]; N7Color[22] := GF.Canvas.Pixels[N7pixX[22],N7pixY[22]]; N7Color[23] := GF.Canvas.Pixels[N7pixX[23],N7pixY[23]]; N7Color[24] := GF.Canvas.Pixels[N7pixX[24],N7pixY[24]]; if (N7Color[1]=$00000000) and (N7Color[2]=$00000000) and (N7Color[3]=$00000000) and (N7Color[4]=$00000000) and (N7Color[5]=$00000000) and (N7Color[6]=$00000000) and (N7Color[7]=$00000000) and (N7Color[8]=$00000000) and (N7Color[9]=$00000000) and (N7Color[10]=$00000000) and (N7Color[11]=$00000000) and (N7Color[12]=$00000000) and (N7Color[13]=$00000000) and (N7Color[14]=$00000000) and (N7Color[15]=$00000000) and (N7Color[16]=$00000000) and (N7Color[17]=$00000000) and (N7Color[18]=$00000000) and (N7Color[19]=$00000000) and (N7Color[20]=$00000000) and (N7Color[21]=$00000000) and (N7Color[22]=$00000000) and (N7Color[23]=$00000000) and (N7Color[24]=$00000000) then StrHGIF3 := '7' else N8Color[1] := GF.Canvas.Pixels[N8pixX[1],N8pixY[1]]; N8Color[2] := GF.Canvas.Pixels[N8pixX[2],N8pixY[2]]; N8Color[3] := GF.Canvas.Pixels[N8pixX[3],N8pixY[3]]; N8Color[4] := GF.Canvas.Pixels[N8pixX[4],N8pixY[4]]; N8Color[5] := GF.Canvas.Pixels[N8pixX[5],N8pixY[5]]; N8Color[6] := GF.Canvas.Pixels[N8pixX[6],N8pixY[6]]; N8Color[7] := GF.Canvas.Pixels[N8pixX[7],N8pixY[7]]; N8Color[8] := GF.Canvas.Pixels[N8pixX[8],N8pixY[8]]; N8Color[9] := GF.Canvas.Pixels[N8pixX[9],N8pixY[9]]; N8Color[10] := GF.Canvas.Pixels[N8pixX[10],N8pixY[10]]; N8Color[11] := GF.Canvas.Pixels[N8pixX[11],N8pixY[11]]; N8Color[12] := GF.Canvas.Pixels[N8pixX[12],N8pixY[12]]; N8Color[13] := GF.Canvas.Pixels[N8pixX[13],N8pixY[13]]; N8Color[14] := GF.Canvas.Pixels[N8pixX[14],N8pixY[14]]; N8Color[15] := GF.Canvas.Pixels[N8pixX[15],N8pixY[15]]; N8Color[16] := GF.Canvas.Pixels[N8pixX[16],N8pixY[16]]; N8Color[17] := GF.Canvas.Pixels[N8pixX[17],N8pixY[17]]; N8Color[18] := GF.Canvas.Pixels[N8pixX[18],N8pixY[18]]; N8Color[19] := GF.Canvas.Pixels[N8pixX[19],N8pixY[19]]; N8Color[20] := GF.Canvas.Pixels[N8pixX[20],N8pixY[20]]; N8Color[21] := GF.Canvas.Pixels[N8pixX[21],N8pixY[21]]; N8Color[22] := GF.Canvas.Pixels[N8pixX[22],N8pixY[22]]; N8Color[23] := GF.Canvas.Pixels[N8pixX[23],N8pixY[23]]; N8Color[24] := GF.Canvas.Pixels[N8pixX[24],N8pixY[24]]; N8Color[25] := GF.Canvas.Pixels[N8pixX[25],N8pixY[25]]; N8Color[26] := GF.Canvas.Pixels[N8pixX[26],N8pixY[26]]; N8Color[27] := GF.Canvas.Pixels[N8pixX[27],N8pixY[27]]; N8Color[28] := GF.Canvas.Pixels[N8pixX[28],N8pixY[28]]; N8Color[29] := GF.Canvas.Pixels[N8pixX[29],N8pixY[29]]; N8Color[30] := GF.Canvas.Pixels[N8pixX[30],N8pixY[30]]; N8Color[31] := GF.Canvas.Pixels[N8pixX[31],N8pixY[31]]; N8Color[32] := GF.Canvas.Pixels[N8pixX[32],N8pixY[32]]; N8Color[33] := GF.Canvas.Pixels[N8pixX[33],N8pixY[33]]; N8Color[34] := GF.Canvas.Pixels[N8pixX[34],N8pixY[34]]; N8Color[35] := GF.Canvas.Pixels[N8pixX[35],N8pixY[35]]; N8Color[36] := GF.Canvas.Pixels[N8pixX[36],N8pixY[36]]; if (N8Color[1]=$00000000) and (N8Color[2]=$00000000) and (N8Color[3]=$00000000) and (N8Color[4]=$00000000) and (N8Color[5]=$00000000) and (N8Color[6]=$00000000) and (N8Color[7]=$00000000) and (N8Color[8]=$00000000) and (N8Color[9]=$00000000) and (N8Color[10]=$00000000) and (N8Color[11]=$00000000) and (N8Color[12]=$00000000) and (N8Color[13]=$00000000) and (N8Color[14]=$00000000) and (N8Color[15]=$00000000) and (N8Color[16]=$00000000) and (N8Color[17]=$00000000) and (N8Color[18]=$00000000) and (N8Color[19]=$00000000) and (N8Color[20]=$00000000) and (N8Color[21]=$00000000) and (N8Color[22]=$00000000) and (N8Color[23]=$00000000) and (N8Color[24]=$00000000) and (N8Color[25]=$00000000) and (N8Color[26]=$00000000) and (N8Color[27]=$00000000) and (N8Color[28]=$00000000) and (N8Color[29]=$00000000) and (N8Color[30]=$00000000) and (N8Color[31]=$00000000) and (N8Color[32]=$00000000) and (N8Color[33]=$00000000) and (N8Color[34]=$00000000) and (N8Color[35]=$00000000) and (N8Color[36]=$00000000) then StrHGIF3 := '8' else N9Color[1] := GF.Canvas.Pixels[N9pixX[1],N9pixY[1]]; N9Color[2] := GF.Canvas.Pixels[N9pixX[2],N9pixY[2]]; N9Color[3] := GF.Canvas.Pixels[N9pixX[3],N9pixY[3]]; N9Color[4] := GF.Canvas.Pixels[N9pixX[4],N9pixY[4]]; N9Color[5] := GF.Canvas.Pixels[N9pixX[5],N9pixY[5]]; N9Color[6] := GF.Canvas.Pixels[N9pixX[6],N9pixY[6]]; N9Color[7] := GF.Canvas.Pixels[N9pixX[7],N9pixY[7]]; N9Color[8] := GF.Canvas.Pixels[N9pixX[8],N9pixY[8]]; N9Color[9] := GF.Canvas.Pixels[N9pixX[9],N9pixY[9]]; N9Color[10] := GF.Canvas.Pixels[N9pixX[10],N9pixY[10]]; N9Color[11] := GF.Canvas.Pixels[N9pixX[11],N9pixY[11]]; N9Color[12] := GF.Canvas.Pixels[N9pixX[12],N9pixY[12]]; N9Color[13] := GF.Canvas.Pixels[N9pixX[13],N9pixY[13]]; N9Color[14] := GF.Canvas.Pixels[N9pixX[14],N9pixY[14]]; N9Color[15] := GF.Canvas.Pixels[N9pixX[15],N9pixY[15]]; N9Color[16] := GF.Canvas.Pixels[N9pixX[16],N9pixY[16]]; N9Color[17] := GF.Canvas.Pixels[N9pixX[17],N9pixY[17]]; N9Color[18] := GF.Canvas.Pixels[N9pixX[18],N9pixY[18]]; N9Color[19] := GF.Canvas.Pixels[N9pixX[19],N9pixY[19]]; N9Color[20] := GF.Canvas.Pixels[N9pixX[20],N9pixY[20]]; N9Color[21] := GF.Canvas.Pixels[N9pixX[21],N9pixY[21]]; N9Color[22] := GF.Canvas.Pixels[N9pixX[22],N9pixY[22]]; N9Color[23] := GF.Canvas.Pixels[N9pixX[23],N9pixY[23]]; N9Color[24] := GF.Canvas.Pixels[N9pixX[24],N9pixY[24]]; N9Color[25] := GF.Canvas.Pixels[N9pixX[25],N9pixY[25]]; N9Color[26] := GF.Canvas.Pixels[N9pixX[26],N9pixY[26]]; N9Color[27] := GF.Canvas.Pixels[N9pixX[27],N9pixY[27]]; N9Color[28] := GF.Canvas.Pixels[N9pixX[28],N9pixY[28]]; N9Color[29] := GF.Canvas.Pixels[N9pixX[29],N9pixY[29]]; N9Color[30] := GF.Canvas.Pixels[N9pixX[30],N9pixY[30]]; if (N9Color[1]=$00000000) and (N9Color[2]=$00000000) and (N9Color[3]=$00000000) and (N9Color[4]=$00000000) and (N9Color[5]=$00000000) and (N9Color[6]=$00000000) and (N9Color[7]=$00000000) and (N9Color[8]=$00000000) and (N9Color[9]=$00000000) and (N9Color[10]=$00000000) and (N9Color[11]=$00000000) and (N9Color[12]=$00000000) and (N9Color[13]=$00000000) and (N9Color[14]=$00000000) and (N9Color[15]=$00000000) and (N9Color[16]=$00000000) and (N9Color[17]=$00000000) and (N9Color[18]=$00000000) and (N9Color[19]=$00000000) and (N9Color[20]=$00000000) and (N9Color[21]=$00000000) and (N9Color[22]=$00000000) and (N9Color[23]=$00000000) and (N9Color[24]=$00000000) and (N9Color[25]=$00000000) and (N9Color[26]=$00000000) and (N9Color[27]=$00000000) and (N9Color[28]=$00000000) and (N9Color[29]=$00000000) and (N9Color[30]=$00000000) then StrHGIF3 := '9' end;