SoloCodigo

hola, te mando la funcion es hijo modificada ya que la funcion es padre en principio la tienes bien aunq no se si e cambiado algo, miratela tb x si acaso, ok?

function eshijo (a:tipoarbolgen; nifcliente:tiponif; var encontrado:boolean):boolean;
  var
    aux:tipoarbolgen;
  begin
    eshijo:=false;
    aux:=a^.hijo;
    encontrado:=false;
    while (aux<>nil) and (not encontrado) do
      begin
        encontrado:=aux^.cliente.nif=nifcliente;   //compruebo si los nifs son iguales
        aux:=aux^.siguiente;
      end;
    eshijo:=encontrado;
  end;


y x si acaso la unidad padre:

function padre(a:tipoArbolGen; nifCliente:string):tipoArbolGen;
  var
    aux:tipoarbolgen;
    enc:boolean;
  begin
    aux:=a;
    padre:=nil;
    if eshijo (aux,nifcliente,enc) then
      padre:=aux
    else
      begin
        if not enc and (aux^.hijo<>nil) then
          padre:=padre (aux^.hijo,nifcliente);
        if not enc and (aux^.siguiente<>nil) then
          padre:=padre (aux^.siguiente,nifcliente);
      end;
  end;


gracias a ti tb xq me as dado ideas de como acer estas funciones q yo tb estaba un poco perdido... de todas formas el problema q tenias es q la funcion padre es recursiva xo la hijo no puede serlo nunk xq simplemente buscas entre todos sus hijos y ya esta...un saludo y espero q te haya servido de algo.