problemas avance locate

[anubis]

Hola, nose donde esta el problema por mas vueltas que le doy
tengo una tabla en paradox:

tiene de campos:
numerohabitacion numerico clave principal
Codigot numerico (clave secundaria)
Tipodehabitacion cadena 25 longitud (clave secundaria)

los registros van ordenador por numerohabitacion asi que el codigot esta salteado.

el codigo que uso para visualizar todas las habitaciones segun un codigot es este:

Código Delphi [-]
mcamas.tcamas.Open;
 mcamas.tcamas.IndexFieldNames:='Codigot';
 mcamas.tcamas.First;
 cv:=itemindex;
 while mcamas.tcamas.locate('Codigot',cv,[]) do
 begin
 contador1:=mcamas.tcamas.fieldbyname('Numerohabitacion').AsInteger;
 dibujacell;
 mcamas.tcamas.Next;
 end;

al pasar por ahi, hace el while y lo ejecuta a pesar de hacer el next al siguiente registro pero nunca lo hace.

alguna idea ?