Variablen werden überschrieben!?

[-187-]

Hallo,

ich steh vor einem komischen Problem. Und zwar scheint es als würden die Werte meiner Variablen auf Grund eines Methodenaufruf's überschrieben werden.
Jedenfalls konnte ich das im Debugger beobachten. Hat jemand eine Idee?

Delphi-Quellcode:

procedure TDemoForm.Button1Click(Sender: TObject);
var
  CurrentRow: Integer;
  maxExport : Integer;
  Next : Boolean;

  A: PersonDef;
  Current: PersonDef;
  RefNr: LongInt;
  Key: IsamKeyStr;
begin
  CurrentRow := 0;
  maxExport := 0;
  Next := true;
  while ((Next = true) and (maxExport < 100)) do
  begin
    Next := NextRecord(A, RefNr, 1, Key, true);
    if (Next = true) then
      BTGetRec(PersFB, RefNr, Current, False); //nach dem Aufruf dieser Methode ist "Next" z.B "false", warum?
    Inc(CurrentRow);
    Inc(maxExport);
  end;
end;

PS: Dazu ist noch zu sagen das "BTGetRec" eine Methode von BTreeFiler ist.