Du solltest ganz am Anfang von BtnErstellenKlick zwischen begin und repeat folgendes einfügen:
Delphi-Quellcode:
begin
Repeat2:=False;
Repeat1 = 0;
repeat
Damit die Schleife terminiert
(Ja, auch das repeatt2=false sollte da stehen, und nicht da unten beim löschenklick
)
Btw.:. Dein Code ist nicht besonders gut formatiert geschweige denn sauber, aber das ist ne andere Sache