delphi, деревья

[DmuS]

Необходимо удалить все листья дерева. Написал процедуру, но при просмотре структуры дерева или его обходе после ее выполнения программа выдает ошибку

procedure preorder(t:PNode);
 var q:PNode;
begin
  if t<>nil then
    begin
      if (t^.left=nil) and (t^.right=nil) then
        begin
          q:=t;
          dispose(q);
          exit;
        end;
      preorder(t^.left);
      preorder(t^.right);
    end;
end;

Подскажите пожалуйста в чем ошибка?

[sabbathist]

у вас в какой-то момент времени рекурсия заходит в нулевой элемент.