Listview... con ADO

[Victor Vega]

Hola como estan regreso con este tema para comunicarles los adelantos q logre hacer hoy, pero q en resumidas aun no logro del todo lo que quiero... les dejo el codigo y les explico lo q sucede:

Código Delphi [-]
 
QLlenar.SQL.Clear;
QLlenar.SQL.Add('select * from Datos order by cedula');
QLlenar.Open;
  if QLlenar.RecordCount >=1
    then begin
             lista.Clear;
             QLlenar.Open;
             QLlenar.First;
             while not QLLenar.Eof do
               begin
                 with lista.Items.Add do
                  begin
                  Caption:= QLlenar.FIeldByName('cedula').AsString;
                  Subitems.Text:= QLlenar.FieldByName('nombres').AsString;
                  Subitems.Text:=QLlenar.FieldByName('apellidos').AsString;
                  end;
             QLlenar.Next;
                 end;
           end;

ya logro añadir a mi lista Subitem, cuando probé con el primer subitems todo funciono bien, pero cuando intente añadir el segundo subitems no me dio error de programación, pero tampoco me inserto nada en la lista.

espero uno de uds me pueda ayudar, y si es Delphius con su paciencia le estare agradecido de mas..
Ademas esto nos servira a todos, asi q es bueno trabajar en conjunto por eso es que somos todos de este club..