Código Delphi [-]While Not dmXXX.Bof do begin xxxxxx Dmxx.Prior end;
While Not dmXXX.Bof do begin xxxxxx Dmxx.Prior end;