var Itm: TListItem; begin // start of your query loop Itm := ListView1.Items.Add; Itm.Caption := SQLQuery1['fullname']; Itm.SubItems.Add(SQLQuery1['cntry']); // end of your query loop end;