Fórum Como salvar conteúdo de um memo no banco de dados - delphi #607697

                   try
                   Screen.Cursor := crHourGlass;
                   for x:=0 to cxlistView1.Items.Count-1 do
                       begin
                          if (cxlistView1.Items.Count > 0) then
                          begin
                                   lbMensagem.Caption := cxListView1.Items[x].Caption;
                                   cxlistview1.Items[x].Selected := true;
                                   qrMusicaIns.insert;
                                   qrMusicaInsMidia_nome.AsString         := cxListView1.Items[x].Caption;
                                   qrMusicaIns.post;
                                   qrMusicaIns.ApplyUpdates;
                                   pbImportar.Position := pbImportar.Position + 1;
                                   Application.ProcessMessages;
                           end;
                       end;
                   finally
                   Screen.Cursor := crDefault;
                   Application.MessageBox('Importação realizada com sucesso!!',
                                          'Atenção', MB_ICONWARNING+MB_OK);
                   BTNLimpar.Click;
                   end;