Cursor sql desde delphi

[Rafa]

Saludos a Todos!!

Quiero utilizar un cursor para realizar un consulta, solo qe he notado qe cuando voy a crear un cursor este no se si se crea bien , el chiste es qe despues tengo qe hacer un recorrido del cursor , pero como qe no lo recorre todo o se trunca o no se qe pasa, pero no me da los resultados qe yo espero
,me faltan registros,

mas o menos asi va el script sql de mi cursor:

DECLARE Kardex CURSOR FOR
Select cve_art,existencia,sub_alm from invars
Where cia=@Cia and alm=@Alm and sub_alm like @SAlm
order by cve_art,sub_alm

OPEN Kardex

FETCH NEXT FROM Kardex
Into @CveArt, @Exist,@sub_alm
WHILE @@FETCH_STATUS = 0
BEGIN
insert into Valuacion
select top 1 d.cve_art,@sub_alm as sub_alm, d.fec_tra,d.consec_orig, d.saldo, @Exist as existencia, d.costo_prom
from invmdt d
where cia= @Cia and alm=@Alm and salm= @Sub_Alm and cve_art=@CveArt and fec_tra <=@Fec
and (status=1 or status=0)
order by fec_tra desc,salm desc, consec_orig desc
FETCH NEXT FROM Kardex
Into @CveArt,@Exist,@sub_alm
END

CLOSE Kardex
DEALLOCATE Kardex

esto lo llamo mediante un stored procedure.... qe mas , utilizo sql server 2000 y los componentes de delphi son sqldirect.

Gracias