binärbaum -> alle blätter entfernen

[brutus]

hallo an alle erstmal,
ich wollte wissen wie man bei einem binärenbaum mit einer prozedur alle blätter (d.h. wissenselemente ohne nachfolger) löschen kann?!
ich dachte schon an folgendes:;

Delphi-Quellcode:

procedure TForm1.herbst;

  procedure rek (VAR p:PKnot);
   BEGIN
    IF (p^.left<>NIL) OR (p^.right<>NIL) THEN
     begin
      rek(p^.left);
      rek(p^.right);    
     end
    ELSE dispose(p) //hier evtl. noch eine abfrage ob der knoten im hilfsarray steht
   END

begin
rek(root);
end;

das problem hierbei ist ja bloss dass durch die rekursion alle elemente gelöscht werden würde.
ich dachte schon an ein hilfsarray in dem ich die vorgängerknoten der blätter speichere und dies noch beim Else Zweig abfrage.
Ich würde dass aber gerne irgendwie effektiver lösen !
Habt ihr da nicht irgendeinen vorschlag???

mfg brutus