wie kann ich ein Tag anzeigen bei TPageControl / TabSheet

[mirage228]

Ich würde die Tabsheets von 2 bis 6 durchnummerieen (also als name: tbs_2, tbs_3 etc.)

und dann

Delphi-Quellcode:

if FindComponent('tbs_' + IntToStr(DayOfWeek)) <> nil then
  PageControl1.ActivePage := FindComponent('tbs_' + IntToStr(DayOfWeek));

DayOfWeek: 1ter Wochentag ist Sonntag und Samstag der 7te

mfG
mirage228