Busqueda de registro lenta

[jafera]

A ver si alguien me puede echar un cable.

Ejecuto el código siguiente con un doble clik y cada x veces, no tiene una cadencia fija, se congelan los formularios uno encima del otro tardando más de un minuto en mostrar el resultado.

Código Delphi [-]
 
procedure TF_Parcs.JvDBGrid1DblClick(Sender: TObject);
var cod:Integer;
begin
        cod:= Camions_ParcID.Value;
        if not Assigned(F_Camions) then
        begin
                Buscar_Camio.Close;
                Buscar_Camio.UnPrepare;
                Buscar_Camio.SQL.Text:='SELECT ID FROM BOM0001 WHERE ID ='+ IntToStr(cod);
                Buscar_Camio.Prepare;
                Buscar_Camio.Open;
                F_Camions:=TF_Camions.Create(nil);
                F_ModulDades.Camions.Locate('ID',Buscar_CamioID.Value,[]);
        end
        else
        begin
                Buscar_Camio.Close;
                Buscar_Camio.UnPrepare;
                Buscar_Camio.SQL.Text:='SELECT ID FROM BOM0001 WHERE ID ='+ IntToStr(cod);
                Buscar_Camio.Prepare;
                Buscar_Camio.Open;
                F_ModulDades.Camions.Locate('ID',Buscar_CamioID.Value,[]);
                F_Camions.BringToFront;
        end;
end;

Esto es en D6 y FB 1.5

Saludos

Josep