Fórum como colocar mais informações no Listbox? #42010

      for x:=0 to listbox1.Items.Count-1 do
      begin
         if (listbox1.Selected[x]) then
            begin
               qrmusica.Close;
               qrmusica.SQL.Clear;
               qrmusica.SQL.Add('select * from tbmusica');
               qrmusica.SQL.Add('where tbmusica.nome_musica = ''' + listbox1.Items.strings[x] + '''');
               qrmusica.Open;
               tbmusica.Open;
               if qrmusica.IsEmpty then
                  begin
                     tbmusica.insert;
                     tbmusicanome_musica.asstring:=listbox1.Items.strings[x];
                     tbmusicaidartista_musica.AsInteger:=edt_nome.EditValue;
                     tbmusicaano_musica.AsString:=edt_ano.Text;
                     tbmusicaidgenero_musica.AsInteger:=edt_genero.EditValue;
                     tbmusicaidcompositor_musica.AsInteger:=edt_compositor.EditValue;
                     tbmusicatitulo_musica.AsString:=edt_trabalho.Text;
                     tbMusica.post;
                     Gauge1.Position := gauge1.Position + 1;
                     Application.ProcessMessages;
                  end;
                  QRMusica.Close;
                  tbmusica.Close;

procedure TfrmImportar.btnprocurarClick(Sender: TObject);
Var
   SearchFile: TSearchRec;
   FindResult: Integer;
   FilesDir, DirSelect: String;
Const
   DefaultExt = '*.*';
begin
     Listbox1.Clear;
     if SelectDir((Sender as TcxButton).Parent.Handle, 'Procurar Diretório', FilesDir, '', False, DirSelect) then
        FilesDir := DirSelect;
     if FilesDir = '' then
        Exit;
     if FilesDir[Length(FilesDir)] <> '\'  then
        FilesDir := FilesDir + '\';
     if FilesDir <> '' then
        FindResult := FindFirst(FilesDir+DefaultExt, faArchive, SearchFile);
        try
           While FindResult = 0 do
           begin
                Application.ProcessMessages;
                ListBox1.Items.Add(UpperCase((RetiraExt(retchar(SearchFile.Name)))));
                FindResult := FindNext(SearchFile);
           end;
        finally
              FindClose(SearchFile)
        end;
   DesabilitaBotoes(Sender);
   Habilitacontroles(True);
end;