Hola Josep.
Hace la prueba de este modo:
Código Delphi
[-]
procedure TF_Parcs.JvDBGrid1DblClick(Sender: TObject);
begin
Buscar_Camio.Close;
Buscar_Camio.SQL.Text:='SELECT ID FROM BOM0001 WHERE ID = :COD');
Buscar_Camio.ParamByName('COD').AsInteger:= Camions_ParcID.AsInteger;
Buscar_Camio.Open;
F_ModulDades.Camions.Locate('ID', Buscar_CamioID.Value, []);
if not Assigned(F_Camions) then
F_Camions:=TF_Camions.Create(nil);
else
F_Camions.BringToFront;
end;
Saludos.