Name des angewählten TabSheet anzeigen

Hallo,

ich habe folgendes Problem:

Ich möchte den Namen der aktuellen ausgewählten TabSheet in eine Variable anzeigen
(TabSheet...->Caption).

Ich benutze mehrere Seiten und daher möchte ich nicht alle einzeln in die Variable schieben, danach möchte ich den Namen in der Statusbar anzeigen lassen.

StatusBar1->Panels->Items[2]->Text = Seite;

Hat Jemand eine Idee, wie ich ganz einfach den Namen in die StatusBar rein bekommen?

Gruß Carsten

Jansen

Caption = TabControl1->Tabs->Strings[TabControl1->TabIndex];
Caption = PageControl1->ActivePage->Caption;

Ich hab es jetzt so gemacht:

StatusBar1->Panels->Items[2]->Text= PageControl2->ActivePage->Caption;

Es funktioniert erstmal, ein Paar Änderungen werde ich noc machen.

Vielen Dank.