[[enecumene]]

Hola, intenta cambiando alguna de estas lineas:

Código Delphi [-]
MUESTRA DETALLE DE LA REMISION
  dbgrid1.Visible := true;
  dm.DETALLE_REMICOM.First;
  f:=1;
  for i:=1 to dm.DETALLE_REMICOM.RecordCount -1 do   
  begin          
          if dm.DETALLE_REMICOM.FieldByName('idremision_compra').AsInteger = strtoint(botonbuscar) then          
          begin                  
                 dbgrid1.Cells[2,f]:= dm.DETALLE.FieldByName('idproducto').AsString;
                 dbgrid1.Cells[3,f]:= inttostr(dm.DETALLE.FieldByName('idalmacen').AsInteger);
                 dbgrid1.Cells[4,f]:= currtostr(dm.DETALLE.FieldByName('cantidad').AsCurrency);
                 dbgrid1.Cells[5,f]:= dm.DETALLE.FieldByName('precio').AsVariant;
                 dbgrid1.Cells[6,f]:= dm.DETALLE.FieldByName('descuento').AsVariant;
                 dbgrid1.Cells[7,f]:= dm.DETALLE.FieldByName('importe').AsVariant;

                 THackStringGrid(dbgrid1).InsertRow();
                 f:= f+1;
         end;
         dm.DETALLE_REMICOM.Next;
   end;

luego nos comentas como te fue.

Saludos.