Foros Club Delphi - Varias selecciones en dbgrid a varias lineas stringgrid

hola a todos , espero me puedan ayudar , tengo un pequeño programa (delphi 7+ access) donde tengo un Dbgrid conectado a una tabla "productos" con un multi select envio las selecciones a un listbox y con un evento cellclick envio a un stringgrid una unica seleccion

Código:

procedure TfrmMain.dgProductoCellClick(Column: TColumn);

var

i:double;

x:double;



begin

i:=0;

 buscarcod(dgproducto.SelectedField.AsString, Encontrado);

  if Encontrado then

  begin

    StringGrid1.Cells[0, 1]:=DM.tblProducto.fieldbyname('Producto').AsString;

    StringGrid1.Cells[2, 1]:=DM.tblProducto.fieldbyname('Precio').AsString;

    StringGrid1.Cells[1, 1]:=DM.tblProducto.fieldbyname('Existencia').AsString;

    Edit3.Text:=DM.tblProducto.fieldbyname('tipo').AsString;

    i:=((DM.tblProducto.fieldbyname('precio').asfloat)*(strtofloat(maskedit1.Text)));

    x:= ceil(i);

    StringGrid1.Cells[3, 1]:= (FormatFloat('0.000',  (x)));



  end

end;

Sin embargo ahora me gustaria unir ambos procesos y usar unicamente el stringgrid para mostrar varias selecciones del dbgrid pero con el evento cellclick para no usar la tecla ctrl , gracias de antemano