ListView con sql Server

[giantonti1801]

Empezado por giantonti1801

hola amigos, trato de llevar unos campos de Sql Server a los item de listview algunos de ellos fueron creados por mi, no he logrago conseguir la forma de hacerlo.

Código Delphi [-]
procedure TForminicio.Button1Click(Sender: TObject);
var
vItemList : TListViewItem;
StreamIMG : TStream;
begin
UniQueryVisita.Close;
UniQueryVisita.Open;
while not UniQueryVisita.Eof do
 begin
   vItemList := lvClientes.items.Add;
   StreamIMG := TMemoryStream.Create;
   if UniQueryVisitafoto.IsNull then
      IMG_Vendor.bitmap.saveToStream(streamIMG)
      else
      UniQueryVisitafoto.saveToStream(streamIMG);
      vItemList.bitmap := Circle1.MakeScreenshot;
//      vItemList.text := UniQueryVisitaNom_Vis.AsString;
//      vItemList.
//    vItemList.Text  := UniQueryVisitaRut__Vis.AsString;
      UniQueryVisita.Next;
      end;
end;

Adjunto imagen tambien del ide, talvez con eso puede ser mas de ayuda para el que realmente conoce del tema.

Buen dia alguien puedes ayudarme con eso?