close Beendet nicht

[atreju2oo0]

Ich habe für ein Projekt diesen Quelltext geschrieben:

Delphi-Quellcode:

loadStamm(Stamm);

help:=Stamm;
while Help.next<>nil do
  begin
    Help:=help.next;
    if help.Stamm.id=0 then showmessage('0');
  end;

close;

//Spielerdaten laden
loadSpieler;

loadstamm und loadspieler sind dabei proceduren.
Da einige Funktionen aus unerklärlichen Gründen nicht funktionieren habe ich
versucht mit Breakpoints der Sache auf den Grund zu gehen.
Und nun das überraschende: Dabei wird close; zwar durchlaufen, aber das Programm wird nicht beendet
sondern loadspieler wird gestartet.
??? Wieso ???

P.S.: Falls das wichtig ist... Help und Stamm sind zeiger auf einen von mir entworfenen Typ...