Daten aus ListBox in TTabSheet(TPageControl) (dynamisch generiert) "saugen"

[Drosera]

Hallo zusammen!

Also mit diesem dynamisch erzeugtem Klumpatsch stehe ich wirklich auf kriegsfuß.... (wills aber unbedingt so haben).
Ich habe wirklich gewühlt und gebastelt, aber hierbei fehlt es mir wohl an tiefgreifendem Verständnis der Materie (so ist das halt mit Amateur-Newbes)

Also hier das Problem:

Es wird in ein dyn. erzeugtes TTabSheet eine ListBox "gepflanzt"

Delphi-Quellcode:

TabSheet := TTabSheet.Create(PageCtrl); // Basis Tab-Erzeugung
 TabSheet.PageControl := PageCtrl;     // Basis Tab-Erzeugung
   TabSheet.Caption := tabListe[i];    // Basis Tab-Erzeugung
//**** Verzeichnis zu passendem Tab ermitteln
         verz := verzeichnisHandlingUnit.leseInfoZuKey(abschnitt, TabSheet.Caption);
//************ zufügen SongListBoxes ****************//
       songListBox := TListBox.Create(self);
        with songListBox  do begin
              Parent := TabSheet.PageControl.ActivePage;
              Align := alClient;
//**** Auslesen der Dateien eines Verzeichnises
//***** und befüllen aktuelle SongListBox
       Items.Assign(verzeichnisHandlingUnit.leseFilenamen(verz));
//******      Mit EventHandling versehen
         onClick := selectLine;
        end;

Wie greife ich jetzt auf die ListBox des aktuellen TabSheets zu?

Mein letzer von vieeelen Versuchen:

Delphi-Quellcode:

 procedure TsqdForm.selectLine(Sender: TObject);
begin
      with  tabSheet.PageControl.ActivePage do
        Memo1.Lines.Add(songListBox.Items.Text);
end;

Liefert mir immer nur den Eintrag aus dem als letztes erstellten Tab, egals welches Tab (optisch) aktiv ist.
Wie gesagt: Wohl grundlegendes Verständnisproblem.

Hat vielleicht jmd. Lust mich aufzuklären, also delphitechnisch (also bitte nicht anfangen über Bienchen und Blümchen referieren )