Código Delphi [-] WHILE NOT CLIENDATASET.ISEMPTY DO CLIENDASET.DELETE;
WHILE NOT CLIENDATASET.ISEMPTY DO CLIENDASET.DELETE;