nodos y la propiedad data en un Treeview

[david_uh]

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


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???

[david_uh]

me olvidaba despues de defiir el tipo declaro estas variables


var
child: TTreeNode;
cond: String;
inf: PData;