From C to Delphi - some problem

[WojTec]

Delphi-Quellcode:

const
  tabella = '0123456789BCDFGHJKLMNPQRSTUVWXYZ';
var
  localstr: string;
  {...}
  codeword: array [0..5] of Integer;
  risultante: array [0..5] of Char;
begin
  {...}

  pharmacode := StrToInt(localstr); // = let's say 845601463
  devisor := 33554432;
   for I := 5 downto 0 do
  begin
      codeword[i] := pharmacode div devisor;
      remainder := pharmacode mod devisor;
      pharmacode := remainder;
      devisor := devisor div 32;
   end;

   for i := 5 downto 0 do
      risultante[5 - i] := tabella[codeword[i]];
   ;

  Caption := '';
  for I := 0 to 5 do
    Caption := Caption + risultante[I]
  ;
end;

But result is wrong