Variablen werden überschrieben!?

[Sir Rufo]

Ich habe mal alles überflüssige und evtl. Seiteneffekte erzeugende entfernt.
Schau mal, ob das funktioniert, wie gewünscht:

Delphi-Quellcode:

procedure TDemoForm.Button1Click( Sender : TObject );
var
  CurrentRow : Integer;
  A :       PersonDef;
  Current : PersonDef;
  RefNr :   LongInt;
  Key :     IsamKeyStr;
begin
  CurrentRow := 0;
  while ( CurrentRow < 100 ) and NextRecord( A, RefNr, 1, Key, true ) do
    begin
      BTGetRec( PersFB, RefNr, Current, False );
      Inc( CurrentRow );
    end;
end;