[The Shadow]

Помогите перевести код на ассемблер:

Код:

procedure Recursia(x,i:integer; var Res:TMass; str:string);
var
k:integer;
begin
str:=str+Tables[i].mass[x];
if i=High(Tables) then begin
 SetLength(Res,Length(Res)+1);
 Res[High(Res)]:=str;
 exit;
end;
 for k:=0 to High(Tables[i+1].Mass) do Recursia(k,i+1,Res,str);
end;