Desde luego, el código es mucho más claro como lo pone
ecfisa, aunque no creo que influya mucho en la velocidad. Por otra parte, hay algo muy raro en lo que haces:
Código Delphi
[-]
Buscar_Camio.SQL.Text:='SELECT ID FROM BOM0001 WHERE ID = :COD');
Buscar_Camio.ParamByName('COD').AsInteger:= Camions_ParcID.AsInteger;
¿Qué sentido tiene esta consulta? Estás buscando el ID de un registro siendo que ya conoces de antemano el ID (se lo pasas como parámetro). ¡Mejor te ahorras la consulta!
// Saludos