Multiseleccion DBgrid

[kainchu3102]

Hola gente espero que esten bien, tengo una consulta.

Tengo dos Dbgrid, DBGrid1 cuando selecciono la fila de uno en el otro me muestro los detalles relacionados en DBGrid2, en DBGrid1 cuando hago multiseleccion, en DBGrid2 no puedo hacer que me aparezcan los detalles relacionado a cada seleccion del DBGrid1.

Tengo este codigo, por favor si me podrian ayudar.

Código Delphi [-]
procedure TFORMINGRESO.multiselect;
 var
  X: Integer;

begin
  if DBGINGRESO.SelectedRows.Count = 0 then
  begin

  MessageBox (Handle, ' DEBE SELECCION AL MENOS 1 FILA PARA ELIMINAR ', ' SISTEMA CROSSROASD ', MB_OK);
    Exit;
  end
  else
  begin
     for X := 0 to DBGINGRESO.SelectedRows.Count -1 do
     with MDBRIONES.FDQBUS_DET_ING Do


      Begin
         DBGINGRESO.DataSource.DataSet.GotoBookmark(TBookmark(DBGINGRESO.SelectedRows.Items[X]));
        SQL.Clear;
        SQL.Add ('SELECT I.*, E. nom_esp, T. nom_tip FROM det_ingreso I LEFT JOIN especie E ON E.id_esp = id_esp_deting LEFT JOIN tipo T ON T.id_tip = id_tip_deting');
        SQL.Add ('WHERE id_ing_deting = :BUS4 ORDER BY LENGTH(cod_deting)ASC');
        params.ParamByName('BUS4').AsInteger := DBGINGRESO.datasource.dataset.fieldbyname('id_ing').Asinteger;
        Open();
        DBGDET_INGRESO.DataSource := MDBRIONES.DSBUS_DET_ING;

       end;
  end;