[cotseec]

Код:

procedure Decode_Code_DynamicData(Divider:Byte; LCounter:Byte; HCounter:Byte; SNumber:Byte; Length:integer; Data:PByte)
var
   k,
   i,
   j:integer;
begin
   j:=LCounter+SNumber+5;
   j:=j mod $10000;
   for i:=10 to Length do
   begin
      k:=Round(j/Divider);
      k:=k mod 256;
      Data[i]:=Polynom[k];
      j:=j+(HCounter+SNumber+5);
      j=j mod $10000;
   end;
end;

вот это Data[i]^ привело в замешательство, судя по этому в Delphi (без .NET) такого нет
может еще что с типами в объявлении функции напутал, а в общем самому такое с помощью интернетов можно перевести

поправил.... k типа integer, поэтому k:=Round(j/Divider);