Du könntest auch einen Filter auf das ClientDataSet legen. Dann würde sich die Schleife etwas verkürzen lassen:
Delphi-Quellcode:
cds.Filter := 'Codenummer = ' + QuotedStr(lbledt1.text); // Wenn Codenummer ein numerisches Feld ist, kann man die Quotes weglassen.
cds.Filtered := true;
cds.First;
while not cds.EOF do
cds.Delete;
cds.Filtered := false;