php script > delphi

[endeffects]

hallo,

ich muss ein php script in delphi realisieren,
leider hab ich dabei einige probleme,
vielleicht kann mir dabei ja jemand helfen

hier die php funktion

Code:

 function base32_encode_num($num, $aa1) { # encode
         $r = "";
         while ($num > 0) {
                        $r = $r . $aa1[ ($num - floor($num/32)*32) + (32 * rand(0,1))  ] ;
                        $num = floor($num/32);
         }
         return $r;
 }

hier mein delphi versuch

Delphi-Quellcode:

function TForm1.base32_encode_num(num, aa1: integer): integer;
var r: integer;
begin
  r:= 0;
  while num > 0 do
  begin
    r:= r + aa1[(num - floor(num/32)*32) + (32 * random(1))];
    num:= floor(num/32);
  end;
end;

hier gibt es den fehler "array-typ erforderlich",
dies bezieht sich natürlich auf aa1,
ich weiß leider nicht wie ich ein array übergenen kann