ayuda con salida de indices

[danielmj]

hola, no se si es el sitio adecuando, asi que por si acaso, mis disculpas..


vereis estoy intentando llenar un tlistview con todos los registros de una base de datos, el codigo en concreto es este:

Código Delphi [-]
lista:= listview1.Items.Add;
campo:= form1.adoTabla.IndexFields[1].AsString;   
for i:= 0 to form1.adotabla.RecordCount -1 do     
lista.SubItems.Add (campo)

el problema es que me da error de index out of bound -1 o algo similar, y de otro modo cuando le quito el for, añade el item en la segunda columna no en la primera.
La bd esta habierta por supuesto, y para mas detalles, la primera columna seria para los apellidos de los clientes, la segunda para el nombre y la tercera para el tinte de pelo que usa (es para una peluqueria de una amiga)

a ver si me echais una mano.
saludos.