[Bacterion]

Cuidado con:

with Tree do
begin
Nodo := Selected;
Nodo := Nodo.GetPrev;
if Nodo <> nil then
Selected := Nodo;
end;

El Nodo<>nil es una comprobación un poco tardía! (sobre todo porque ya ha accedido a él).