Listview... con ADO

[Victor Vega]

la verdad el cansancio si me mata pero no podre dormir tranquilo hasta no resolver este rollo,
solo necesito agregar a ese listview un subitems

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
                 ListItem:=lista.Items.Add;
                 ListItem.Caption:= QLlenar.FieldByName('nombres').AsString;
                 ListItem.SubItems.Add('apellidos');
                 
                 QLlenar.Next;
                end;
           end;

como veras en la parte donde quiero agregar el subitems solo esta add('apellidos') y de esa manera me agrega el tecto apellido al subitems. y si le asigno FieldByName me da el bendito error de no declarado...