Fórum Onde esta o erro desse loop? #372074

Colegas..

Tenho esse loop funcionando 100¬ em um sistema usando o componente IBX(interbase).
Estou migrando para o DBExpress e quando mando rodar esse loop, não esta comitando no banco de dados e não sai do loop.


procedure TFormPadrao1.btn_habilitaTodosClick(Sender: TObject);
begin
if not (cdsCadastro.IsEmpty) then
begin
cdsCadastro.First;
cdsCadastro.DisableControls;
while not cdsCadastro.Eof do
begin
cdsCadastro.Edit;
cdsCadastro.FieldByName(´status´).asstring:= ´S´;
cdsCadastro.FieldByName(´data_hab´).AsDateTime:= date;
cdsCadastro.Post;
cdsCadastro.Next;
end;
cdsCadastro.ApplyUpdates(0);
cdsCadastro.EnableControls;
end;
end;

O que devo mudar?

Grato:
Jose Luiz