[mrnovice]

Código Delphi [-]
readfiles(nil);

Código Delphi [-]
if Node=nil then
   begin
    begin
         QModulo.First;
         while not QModulo.Eof do
            begin
               Child:=JvCheckTreeView1.Items.AddChild(Node,'<'+Qmodulo.fieldbyname('modulo').AsString+'>');
               Child.Data:=pointer(Qmodulo.FieldByName('modulo').AsString);
               ShowMessage(child.Text);
               ShowMessage(String(child.Data)); //este sí sale correcto
               Child.HasChildren:=True;
               QModulo.Next;
            end;
     end;
   end else begin
         ShowMessage(String(Node.Data));
         ShowMessage(String(Node.Data^));
         ShowMessage(node.Text);
end;

no salió del todo y muchas gracias por tu apoyo mira el código de arriba es algo que manejo en el evento OnExpanding, como verás cuando lo agergo si sale pero lo intento expandir no sale a qué se puede deber incluso me aparece un Access Violation