Title: How to calculate a simple checksum
function CalcStrChecksum(s: string; zerobased: Boolean): Longint;
var
i: integer;
L: integer;
begin
Result := 0;
l := Length(s);
if l 0 then
begin
for i := 1 to l do
if zerobased then
Inc(Result, Ord(s[i]) - 65)
else
Inc(Result, Ord(s[i]));
end;
end;