Danke, für Eure Hilfe.
Die "Schleife " habe ich jetzt so gelöst:
Code:
with ClientDataSet1 do
begin
First;
while not EOF do
begin
if FieldByName('Codenummer').AsString = lbledt1.text then
Delete
else
Next;
end;
end;
Oder spricht was gehen "with"?
Gruß Heiko