procedure TForm1.CheckCharTybe(S: string;labnum:TLabel);
var
x,y,z,n,v,w:integer;
ch1:Char;
ch2:char;
ch3:char;
ch4:char;
ch5:char;
AF: set of char;
GL: set of CHAR;
MR: set of CHAR;
SX: set of CHAR;
YZ: set of CHAR;
N1: set of CHAR;
N2: set of CHAR;
begin
af:=['A','B','C','D','E','F'];
GL:=['G','H','I','J','K','L'] ;
MR:=['M','N','O','P','Q','R'];
SX:=['S','T','U','V','W','X'];
YZ:=['Y','Z'];
N1:=['0','1','2','3','4'];
N2:=['5','6','7','8','9'];
if Length(s)=5 then
begin
//==============================================================
//==============================================================
if s[1] in AF then
begin
ch1:=chr(ord(s[1])+7);
end;
if s[1] in GL then
begin
ch1:=chr(ord(s[1])+9);
end;
if s[1] in MR then begin
ch1:=chr(ord(s[1])+6);
end;
if s[1] in SX then begin
ch1:=chr(ord(s[1])+2);
end;
if s[1] in YZ then begin
ch1:=chr(ord(s[1])-9);
end;
if s[1] in N1 then begin
ch1:=chr(ord(s[1])+3);
end;
if s[1] in N2 then begin
ch1:=chr(ord(s[1])-3);
end;
//=============================================
//=============================================
if s[2] in AF then begin
ch2:=chr(ord(s[2])+5);
end;
if s[2] in GL then begin
ch2:=chr(ord(s[2])+8);
end;
if s[2] in MR then begin
ch2:=chr(ord(s[2])+4);
end;
if s[2] in SX then begin
ch2:=chr(ord(s[2])+1);
end;
if s[2] in YZ then begin
ch2:=chr(ord(s[2])-7);
end;
if s[2] in N1 then begin
ch2:=chr(ord(s[2])+4);
end;
if s[2] in N2 then begin
ch2:=chr(ord(s[2])-3);
end;
//ـــــــــــــــــــــــــــــــــــــــــــــــ
//ـــــــــــــــــــــــــــــــــــــــــــــــ
if s[3] in AF then begin
ch3:=chr(ord(s[3])+2);
end;
if s[3] in GL then begin
ch3:=chr(ord(s[3])+5);
end;
if s[3] in MR then begin
ch3:=chr(ord(s[3])+7);
end;
if s[3] in SX then begin
ch3:=chr(ord(s[3])-4);
end;
if s[3] in YZ then begin
ch3:=chr(ord(s[3])-8);
end;
if s[3] in N1 then begin
ch3:=chr(ord(s[3])+3);
end;
if s[3] in N2 then begin
ch3:=chr(ord(s[3])-3);
end;
//ـــــــــــــــــــــــــــــــــــــــــــــــ
//ـــــــــــــــــــــــــــــــــــــــــــــــ
if s[4] in AF then begin
ch4:=chr(ord(s[4])+3);
end;
if s[4] in GL then begin
ch4:=chr(ord(s[4])-3);
end;
if s[4] in MR then begin
ch4:=chr(ord(s[4])-2);
end;
if s[4] in SX then begin
ch4:=chr(ord(s[4])-5);
end;
if s[4] in YZ then begin
ch4:=chr(ord(s[4])-4);
end;
if s[4] in N1 then begin
ch4:=chr(ord(s[4])+5);
end;
if s[4] in N2 then begin
ch4:=chr(ord(s[4])-4);
end;
//ـــــــــــــــــــــــــــــــــــــــــــــــ
//ـــــــــــــــــــــــــــــــــــــــــــــــ
if s[5] in AF then begin
ch5:=chr(ord(s[5])+4);
end;
if s[5] in GL then begin
ch5:=chr(ord(s[5])+6);
end;
if s[5] in MR then begin
ch5:=chr(ord(s[5])+4);
end;
if s[5] in SX then begin
ch5:=chr(ord(s[5])-4);
end;
if s[5] in YZ then begin
ch5:=chr(ord(s[5])-4);
end;
if s[5] in N1 then begin
ch5:=chr(ord(s[5])+4);
end;
if s[5] in N2 then begin
ch5:=chr(ord(s[5])-4);
end;
//ـــــــــــــــــــــــــــــــــــــــــــــــ
//ـــــــــــــــــــــــــــــــــــــــــــــــ
LABNUM.Caption:=ch1+CH2+CH3+CH4+CH5;
//ـــــــــــــــــــــــــــــــــــــــــــــــ
//ـــــــــــــــــــــــــــــــــــــــــــــــ
end;
if Length(s)=3 then
begin
if s[1] in AF then begin
ch1:=chr(ord(s[1])+9);
end;
if s[1] in GL then begin
ch1:=chr(ord(s[1])+4);
end;
if s[1] in MR then begin
ch1:=chr(ord(s[1])+6);
end;
if s[1] in SX then begin
ch1:=chr(ord(s[1])-4);
end;
if s[1] in YZ then begin
ch1:=chr(ord(s[1])-3);
end;
if s[1] in N1 then begin
ch1:=chr(ord(s[1])+3);
end;
if s[1] in N2 then begin
ch1:=chr(ord(s[1])+3);
end;
//ـــــــــــــــــــــــــــــــــــــــــــــــ
//ـــــــــــــــــــــــــــــــــــــــــــــــ
if s[2] in AF then begin
ch2:=chr(ord(s[2])+1);
end;
if s[2] in GL then begin
ch2:=chr(ord(s[2])-1);
end;
if s[2] in MR then begin
ch2:=chr(ord(s[2])-2);
end;
if s[2] in SX then begin
ch2:=chr(ord(s[2])-2);
end;
if s[2] in YZ then begin
ch2:=chr(ord(s[2])-7);
end;
if s[2] in N1 then begin
ch2:=chr(ord(s[2])+5);
end;
if s[2] in N2 then begin
ch2:=chr(ord(s[2])-5);
end;
//ـــــــــــــــــــــــــــــــــــــــــــــــ
//ـــــــــــــــــــــــــــــــــــــــــــــــ
if s[3] in AF then begin
ch3:=chr(ord(s[3])+7);
end;
if s[3] in GL then begin
ch3:=chr(ord(s[3])+7);
end;
if s[3] in MR then begin
ch3:=chr(ord(s[3])-7);
end;
if s[3] in SX then begin
ch3:=chr(ord(s[3])-5);
end;
if s[3] in YZ then begin
ch3:=chr(ord(s[3])-9);
end;
if s[3] in N1 then begin
ch3:=chr(ord(s[3])+5);
end;
if s[3] in N2 then begin
ch3:=chr(ord(s[3])-5);
end;
//ـــــــــــــــــــــــــــــــــــــــــــــــ
//ـــــــــــــــــــــــــــــــــــــــــــــــ
LABNUM.Caption:=ch1+ch2+ch3;
//ـــــــــــــــــــــــــــــــــــــــــــــــ
//ـــــــــــــــــــــــــــــــــــــــــــــــ
end; {End of the checking the chars}
