procedure TForm1.FormCreate(Sender: TObject); begin ClientDataSet1.First; while not ClientDataSet1.Eof do begin with cxListView1.Items.Add do begin caption := ClientDataSet1.Fields[].AsString; SubItems.Add(ClientDataSet1.Fields[].asstring); end; Clie…