Busqueda de registro lenta

[jafera]

Podria ser que el error estuviera en este prodedimiento?

He intentado ejecutar con f7 y cada vez que entra en el begin, si no se cumple nunguno de los dos id salta al end final y allí se queda el cursor, hago click en el formulario y vuelve al begin, end y así sin parar.

Código Delphi [-]
 
procedure TF_Camions.JvDBGrid2DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
        If F_ModulDades.Camions_AuxACTUAL.Value = 'N' then
        begin
                JVDBGrid2.Canvas.Brush.Color := clMoneyGreen;
                JVDBGrid2.DefaultDrawColumnCell(rect,DataCol,Column,State);
        end;
        if DataCol = 4 then
        begin
                if Pos('X', F_ModulDades.Camions_AuxCODI_CAMIO.Text ) > 0 then
                begin
                        TDrawGrid(sender).Canvas.Font.Color:= clRed;
                        TDrawGrid(Sender).Canvas.Brush.Color:=clYellow;
                        TdbGrid(sender).DefaultDrawColumnCell(Rect, Datacol, Column, State);
                end;
        end;
end;