Modulo-10 Prüfsumme eines Strings berechnen

[Delphi.Narium]

Analog zu https://www.activebarcode.de/codes/c.../modulo10.html eventuell sowas?

Delphi-Quellcode:

function Modulo10FromString(s : String) : Integer;
var
  i : Integer;
begin
  Result := 0;
  for i := 1 to Length(s) do begin
    case i mod 2 of
      0 : Result := Result + (Ord(s[i]) * 3);
      1 : Result := Result +  Ord(s[i]);
    else
      // Upps, das geht doch garnicht ;-)
    end;
  end;
  Result := Result Mod 10;
end;

(nur hingedaddelt und ungetestet)

Ob ASCII oder nicht, sollte eigentlich egal sein, es geht ja um alle Zeichen im String und nicht nur um die Zeichen im String, die eine bestimmte Anforderung erfüllen.