Vale, entonces lo que tienes que hacer es lo siguiente:
Código Delphi
[-]
FrmBusqArt:= TFrmBusqArt.Create(self);
FrmBusqArt.EdBuscar.text := TRIM(producto);
FrmBusqArt.formulario := FrmPedidos;
FrmBusqArt.Dbgrid1.Fields[0].Value := GridArtBusq.Fields[0].Value;
FrmBusqArt.ShowModal;
Espero que te sirva
Edu