nodos y la propiedad data en un Treeview
 

he cargado datos de una tabla a un treeview y deseo almacenar info
relacionada a cada nodo, y he hecho esto:

Código Delphi [-]
 
type
  PData = ^TData;
  TData = record
  Id: Longint;
  Monto: Currency;
end;

 with ZData do
   begin
      First;
      while not(Eof) do
      begin
         New(inf);
         inf^.Id := FieldByName('id').AsInteger;
         inf^.Monto := FieldByName('monto').AsCurrency;
         Report.Items.AddChildObject( nodo,
            FieldByName('nombre').AsString+';'+
            FieldByName('monto').AsString, inf);
         Next;
         Dispose(inf); // he probado quitar esto pero igual
      end;
   end;

pero a toma el primer registro y la condicion de while not(Eof) do toma el valor de true
no se a que se debe pero;
estoy haciendo mal algo???

me olvidaba despues de defiir el tipo declaro estas variables

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