Delphi - Recorrido Preorden de un arbol binario

Nesecito un metodo para recorrer un arbol binario en preorden , ayudame por favor, gracias.

Supongamos:

type Arbol=^RecArb;
RecArb=record
dato:integer;
izq,der:arbol;
end;

procedure pre_order(a:arbol);
begin
if a<>nil then
begin
write(a^.dato);
pre_order(a^.izq);
pre_order(a^.der);
end;
end;

Donde "write(a^.dato)" sería la parte donde hacés lo que tengas que hacer con los datos.

El método pos-order y el in-order son lo mismo, sólo que la posición donde hacés algo (en este caso el "write") van al final de las dos llamadas recursivas, y en el medio, respectivamente.

Gracias , por tu respuesta ahora mismo voy a probar , gracias una vez mas.

Richard