TabSheets zur Laufzeit entfernen & speicher wieder freigeben

[KH82]

Naja, die Frage ist ja, wie ich ne Referenz abspeichern soll, da ich die Anzahl der TabSheets vorher ja nicht kenne. Und dafür ne Liste anzulegen ist dann vielleicht doch ein wenig übertrieben, oder?

Code:

with PageControl1 do
begin
    with TTabSheet(FindComponent('Tab_' + inttostr(j))) do
    begin
       Free;
    end;
end;

allerdings passiert hier nich wirklich viel Aber ist das von der Idee her richtig oder völlig in die falsche Richtung gedacht?