Kann fehler nicht finden, Programm hängt sich auf

[jfheins]

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