EMS、顺丰快递单号连续单号算法

/////////////////////////////////////////
/////////////////////////////////////////

function TForm1.EMS(EMSNo: string;num:integer):TStringList;
var
        fri:string;
        res:Integer;
        num3,num4,num5,num6,num7,num8,num9,num0:Integer;
        mid:Integer;
        I:integer;
        EMSres:TStringList;
begin
        EMSres:=TStringList.Create;
        fri:=Copy(EMSNo,3,8)  ;
        for i:=1 to  num do
        begin
          num3:=StrToInt(Copy(fri,1,1));
          num4:=StrToInt(Copy(fri,2,1));
          num5:=StrToInt(Copy(fri,3,1));
          num6:=StrToInt(Copy(fri,4,1));
          num7:=StrToInt(Copy(fri,5,1));
          num8:=StrToInt(Copy(fri,6,1));
          num9:=StrToInt(Copy(fri,7,1));
          num0:=StrToInt(Copy(fri,8,1));
          mid:= 8*num3+6*num4+4*num5+2*num6+3*num7+5*num8+9*num9+7*num0 ;
          res:=11-(mid)mod(11);
          if res=10 then
                res:=0;
          if res=11 then
                res:=5;