Error al Recorrer SQL se queda colgado

[webmasterplc]

Replanteando la pregunta haciendo el analisis al codigo hice la siguiente prueba.

Código Delphi [-]
 begin;
       with datosa2.Sqajuste do
          begin
            Close;
            ParamByName('categoria').AsString:=listafpago.LookupValue;
            Open;
          end;
          begin
             if not datosa2.Sqajuste.IsEmpty then
                 begin
                 codigo:=datosa2.Sqajuste.FieldByName('FI_CODIGO').AsString;
                 ShowMessage(CODIGO);
                |end;
             datosa2.Sqajuste.Next;
end;
       end;

para verificar el recorrido y solo me da un mensaje con el prmer registro, aunque si mustro los datos de la consulta en un grid me muestra todos los registros.