Example 12 Formula,
"SumString" - emanation (123=1+2+3=6)
v3[0]:=SumString(StringGrid4.Cells[0,a]);
v3[4]:=keno[4,1];
v3[5]:=keno[4,2];
v3[6]:=keno[4,3];
if trunc(abs(( abs(v3[0]-v3[4])-abs(v3[5]-v3[6]))) /4)>0 then x2:=1 else x2:=0;
if t1<>x2 then x1:=1 ;
v3[0]:=SumString(StringGrid4.Cells[1,a]);
v3[4]:=keno[5,1];
v3[5]:=keno[5,2];
v3[6]:=keno[5,3];
if trunc(abs(( abs(v3[0]-v3[4])-abs(v3[5]-v3[6]))) /4)>0 then x2:=1 else x2:=0;
if t2<>x2 then x1:=1 ;
v3[0]:=SumString(StringGrid4.Cells[2,a]);
v3[4]:=keno[6,1];
v3[5]:=keno[6,2];
v3[6]:=keno[6,3];
if trunc(abs(( abs(v3[0]-v3[4])-abs(v3[5]-v3[6]))) /4)>0 then x2:=1 else x2:=0;
if t3<>x2 then x1:=1 ;
/////////////////////////////////////////
v3[0]:=SumString(StringGrid4.Cells[0,a]+StringGrid4.Cells[1,a]);
v3[4]:=SumString(inttostr(keno[4,1]+keno[5,1]));
v3[5]:=SumString(inttostr(keno[4,2]+keno[5,2]));
v3[6]:=SumString(inttostr(keno[4,3]+keno[5,3]));
if trunc(abs(( abs(v3[0]-v3[4])-abs(v3[5]-v3[6]))) /4)>0 then x2:=1 else x2:=0;
if t4<>x2 then x1:=1 ;
v3[0]:=SumString(StringGrid4.Cells[0,a]+StringGrid4.Cells[2,a]);
v3[4]:=SumString(inttostr(keno[4,1]+keno[6,1]));
v3[5]:=SumString(inttostr(keno[4,2]+keno[6,2]));
v3[6]:=SumString(inttostr(keno[4,3]+keno[6,3]));
if trunc(abs(( abs(v3[0]-v3[4])-abs(v3[5]-v3[6]))) /4)>0 then x2:=1 else x2:=0;
if t5<>x2 then x1:=1 ;
v3[0]:=SumString(StringGrid4.Cells[1,a]+StringGrid4.Cells[2,a]);
v3[4]:=SumString(inttostr(keno[5,1]+keno[6,1]));
v3[5]:=SumString(inttostr(keno[5,2]+keno[6,2]));
v3[6]:=SumString(inttostr(keno[5,3]+keno[6,3]));
if trunc(abs(( abs(v3[0]-v3[4])-abs(v3[5]-v3[6]))) /4)>0 then x2:=1 else x2:=0;
if t6<>x2 then x1:=1 ;
///////////////******************************************************
v3[0]:=SumString(inttostr(3*(SumString(StringGrid4.Cells[0,a]+StringGrid4.Cells[1,a]))));
v3[4]:=SumString(inttostr(3*(keno[4,1]+keno[5,1])));
v3[5]:=SumString(inttostr(3*(keno[4,2]+keno[5,2])));
v3[6]:=SumString(inttostr(3*(keno[4,3]+keno[5,3])));
if trunc(abs(( abs(v3[0]-v3[4])-abs(v3[5]-v3[6]))) /4)>0 then x2:=1 else x2:=0;
if t7<>x2 then x1:=1 ;
v3[0]:=SumString(inttostr(3*(SumString(StringGrid4.Cells[0,a]+StringGrid4.Cells[2,a]))));
v3[4]:=SumString(inttostr(3*(keno[4,1]+keno[6,1])));
v3[5]:=SumString(inttostr(3*(keno[4,2]+keno[6,2])));
v3[6]:=SumString(inttostr(3*(keno[4,3]+keno[6,3])));
if trunc(abs(( abs(v3[0]-v3[4])-abs(v3[5]-v3[6]))) /4)>0 then x2:=1 else x2:=0;
if t8<>x2 then x1:=1 ;
v3[0]:=SumString(inttostr(3*(SumString(StringGrid4.Cells[1,a]+StringGrid4.Cells[2,a]))));
v3[4]:=SumString(inttostr(3*(keno[5,1]+keno[6,1])));
v3[5]:=SumString(inttostr(3*(keno[5,2]+keno[6,2])));
v3[6]:=SumString(inttostr(3*(keno[5,3]+keno[6,3])));
if trunc(abs(( abs(v3[0]-v3[4])-abs(v3[5]-v3[6]))) /4)>0 then x2:=1 else x2:=0;
if t9<>x2 then x1:=1 ;
v3[0]:=SumString(inttostr(3*(SumString(StringGrid4.Cells[0,a]))));
v3[4]:=SumString(inttostr(3*(keno[4,1])));
v3[5]:=SumString(inttostr(3*(keno[4,2])));
v3[6]:=SumString(inttostr(3*(keno[4,3])));
if trunc(abs(( abs(v3[0]-v3[4])-abs(v3[5]-v3[6]))) /4)>0 then x2:=1 else x2:=0;
if t10<>x2 then x1:=1 ;
v3[0]:=SumString(inttostr(3*(SumString(StringGrid4.Cells[1,a]))));
v3[4]:=SumString(inttostr(3*(keno[5,1])));
v3[5]:=SumString(inttostr(3*(keno[5,2])));
v3[6]:=SumString(inttostr(3*(keno[5,3])));
if trunc(abs(( abs(v3[0]-v3[4])-abs(v3[5]-v3[6]))) /4)>0 then x2:=1 else x2:=0;
if t11<>x2 then x1:=1 ;
v3[0]:=SumString(inttostr(3*(SumString(StringGrid4.Cells[2,a]))));
v3[4]:=SumString(inttostr(3*(keno[6,1])));
v3[5]:=SumString(inttostr(3*(keno[6,2])));
v3[6]:=SumString(inttostr(3*(keno[6,3])));
if trunc(abs(( abs(v3[0]-v3[4])-abs(v3[5]-v3[6]))) /4)>0 then x2:=1 else x2:=0;
if t12<>x2 then x1:=1 ;