Und hier mein Vorschlag:
Code:
[color=#f50000]for i:=Pred(PageControl1.PageCount) downto 0 [/color]do begin
NewMemo[i].Free;
Pagecontrol1.Pages[i].Free;
end;
Das hatten wir schon oft, beim Löschen aus Listen müssen diese RÜCKWÄRTS durchlaufen werden, da sich während des Löschens der Index der folgenden Seiten ändert
...
...