hi!
warum machst du es dir so umständlich, würds nicht auch so gehn?
Delphi-Quellcode:
var
i: Integer;
begin
i := PageControl1.PageCount -1;
If i <= 0
then exit;
repeat
PageControl1.Pages[i].Destroy;
Dec(i, 1);
until PageControl1.PageCount = 1;
end;
Natürlich musst du dein PageControl anpassen
Durch aufrufen von Destroy werden alle auf der Seite des PageControl abgelegten Kompos gleich mit zersört/speicher freigegeben.
mfg phlux