vb function zu delphi konvertieren

[endeffects]

hallo =),

ich möchte gerne eine vb funktion zu delphi konvertieren
und bekomm nun allerdings ständig fehlermeldungen
vom compiler mit denen ich nichts anfangen kann

Code:

function calccrc(strng: string; lenstr: integer): integer;
var
  crc, ch, i, j: integer;
begin
  for i:= 0 to lenstr -1 do
    ch:= Ord(Copy(strng, i +1, 1));
    for j:= 0 to 7 do
      if ((crc Xor ch) And 1) Then
        crc:= (int((crc /2)) Xor 40961)
      else
        crc:= Int(crc / 2);
      end;
        ch:= Int(ch / 2);
    end;
  end;
  result:= crc;
end;

in der zeile: "ch:= Ord(Copy(strng, i +1, 1));" heißt
es z.b. inkompatible typen

in "if ((crc Xor ch) And 1) Then"
Ausdruck muss Boolean sein

crc:= (int((crc /2)) Xor 40961)
Operation ist auf Operantentyp nicht anwendbar

crc:= Int(crc / 2);
inkompatible typen Integer und extented

usw. hat jemand beim überfliegen meines versuches in
delphi vielleicht ein paar gundsetzliche fehler gefunden?

die orginal funktion:

Code:

Function CALCCRC(strng$, lenstr)
Dim crc As Long
Dim ch As Long
Dim i As Long
Dim j As Long

For i = 0 To lenstr - 1
  ch = Asc(Mid(strng$, i + 1, 1))
    For j = 0 To 7
      If ((crc Xor ch) And 1) Then
        crc = (Int((crc / 2)) Xor 40961)
      Else
        crc = Int(crc / 2)
      End If
      ch = Int(ch / 2)
    Next j
   Next i
CALCCRC = crc
End Function