Interner Fehler C1537 - result Fehler???

[mr.warft]

Hallo Forum,

ich bin neu hier und beschäftige mich studienbedingt mit Delphi bzw. Object Pascal.

Ich habe ein Problem und komme einfach nicht dahinter was es sein könnte. Ich habe den Fehler schon eingegrenzt...zumindest denke ich das es daran liegt.

Delphi-Quellcode:

function TBigInteger.copy:TBigInteger;
var
   r : PBigInteger;
begin
     //r.BigInteger(BigIntegerToStr());
   new(r,BigInteger(BigIntegerToStr()));
   result := r^;
end;

An dieser Stelle wird mir ein interner Fehler C1537 gemeldet und ich habe schon 2Tage gegoogelt aber nichts darüber gefunden. Was ist der interne Fehler und was löst es aus bzw. wie kann ich diesen Fehler beseitigen.

Der Aufruf hin zu dieser Funktion erfolgt so:

Delphi-Quellcode:

function xyz (const a: TBigInteger; const  b : TBigInteger):TBigInteger;
var
   n,m: LongInt;

   xh,xl,yh,yl: TBigInteger;
   t3,t1,t2: TBigInteger;
   z1,z2,z3,z4,z5: TBigInteger;
begin
   inc(c);

   m := Max(a.bitLength(),b.bitLength());
   Debug('max: '+IntToStr(m));

   if (m <= 2) then
   begin
      result := a.multr(b);
   end else
   
   begin
   Debug('Durchgang: '+IntToStr(c));
   Debug('----------------');
   n := (m div 2);


   (****************** X ***********************)
   //BigInteger xH = x.shiftRight (n);
   xh := a.shrR(n);

und in shrR sieht der Code dann so aus:

Delphi-Quellcode:

function TBigInteger.shrR(n: Integer): TBigInteger;
var
   tmp: TBigInteger;
begin
   tmp := copy();
   tmp.shiftright(n);
   result := tmp.copy();
end;

Wo kann hier der Fehler sein?

Als Info: Unter FreePascal funktioniert dieser Code ohne Probleme. Ich benutze Borland Delphi 2005.

Hoffe das ihr mir helfen könnt.