TabSheets zur Laufzeit entfernen & speicher wieder freigeben

[KH82]

Ok, ich hab weiter rum probiert und nun nur noch die Frage, ob Komponenten auf den einzelnen TabSheets automatisch mit freigegeben werden, oder ob ich diese ebenfalls mit Free wieder Frei geben muss?

Folgender Code übernimmt nun das löschen:

Code:

 if SpEd_AnzahlZustand.Value < PageControl1.PageCount then
 begin
   temp:= PageControl1.PageCount;
   for j:= temp-1 downto (SpEd_AnzahlZustand.Value) do
   with PageControl1 do
     self.PageControl1.Pages[j].Free;
 end;