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;
UniQueryVisita.Next;
end;
end;