[david_uh]

me olvidaba despues de defiir el tipo declaro estas variables

Código Delphi [-]
 
var
   child: TTreeNode;
   cond: String;
   inf: PData;