case (list.ItemIndex) of
0..3: begin //doro 345 409 410 610
for i:=7 to 14 do begin
v1:=strtoint(imei.Text);
v2:=strtoint(imei.Text[i+1]);
v1:=v1+v2+v2; if (v1>10) then v1:= v1 mod 10;
nck:=nck+inttostr(v1) end ;result.text:=' NCK : '+nck+#13#10+
'- Input a non-accepted Sim, enter the code.'+#13#10+
'- Without Sim, type *#787464# and enter code.';
end;
