Function CheckRoutinI(GivenText,UserName:String ): boolean;
var
i,sum:Integer;
Begin
Sum:=0;
Result:=False;
If (IsNumeric(GivenText)) And (Not(givenText='')) then
Begin
For i:=1 to Length(UserName) do
Sum:=ord(UserName[i])+Sum;
If Sum<=1000 then
Sum:=Sum+1000;
If StrToInt(GivenText)=Sum then
Result:=true;
End;
end;اين اصل روتين چك سريال مربوطه است!!!