mylistview.items.beginupdate;
while not ADOQuery_1.eof do begin
  NewItem := Self.mylistview.Items.Add;
  NewItem.Caption := ADOQuery_1['Name'];
  NewItem.ImageIndex := 1; //Symbol für alle DS aus ADOQuery_1
  next;
end;
.
. (Durchlaufen der Querys 2 und 3)
.
while not ADOQuery_4.eof do begin
  NewItem := Self.mylistview.Items.Add;
  NewItem.Caption := ADOQuery_4['Name'];
  NewItem.ImageIndex := 4 //Symbol für alle DS aus ADOQuery_4
  next;
end;
mylistview.items.endupdate;