Pues me contesto yo solo, quiza por el cansancio y demas....
Código Delphi
[-]
while mcamas.tcamas.locate('Codigot',cv,[]) do
si hago eso siempre se va a quedar ahi, mientras que si lo pongo antes
Código Delphi
[-]
mcamas.tcamas.Open;
mcamas.tcamas.IndexFieldNames:='Codigot';
mcamas.tcamas.First;
cv:=itemindex;
mcamas.tcamas.locate('Codigot',cv,[]);
while ((mcamas.tcamas.fieldbyname('Codigot').AsInteger)=cv) and (not mcamas.tcamas.Eof) do
begin
contador1:=mcamas.tcamas.fieldbyname('Numerohabitacion').AsInteger;
mcamas.tcamas.Next;
dibujacell;
end;
mcamas.tcamas.Close;
asi si funciona
gracias