TabSheets zur Laufzeit entfernen & speicher wieder freigeben

[KH82]

Hi,

ich habe TabSheets auf einem PageControl zur Laufzeit erstellt und möchte sie nun auch wieder entfernen. Habe allerdings keine Ahnung wie.

Folgendermaßen erstelle ich die TabSheets:

Code:

for i := 0 to (SpEd_AnzahlZustand.Value)-4 do
    begin
    with PageControl1 do
      Tab:= TTabSheet.Create(Self);
      with  Tab do
      begin
        PageControl := PageControl1;
        TabVisible := true;
        Name := 'Tab_' + IntToStr(PageIndex+4);
        if (PageIndex+1) < (SpEd_AnzahlZustand.Value) then
          Caption := 'Q' + IntToStr(PageIndex)
        else
          Caption := 'Qe';
      end;

Hat jemand eine Idee?

Gruß
Kristin