Problem mit Pointern

[Sascha]

Delphi-Quellcode:

  PKnoten = ^TKnoten;

  TKnoten = record  // Record für Knoten
  public
   pSuper ,pBit0, pBit1: PKnoten;
   bSuper: boolean;
   iHaeufigkeit: int64;
   cBuchstabe: char;
  end;

 ...

var
 aKnoten: array of TKnoten;

Delphi-Quellcode:

 ShowMessage(IntToStr(aKnoten[4].pBit0^.iHaeufigkeit));
 ShowMessage(IntToStr(aKnoten[4].pBit0^.iHaeufigkeit));

Bei der ersten Message kommt 3 raus (was richtig ist), beim zweiten mal jedoch 0.
Die Beiden Zeilen stehen genau hintereinander. Nur wo ist da der Fehler das das passiert?

(Delphi2005)