تغییر در tabsheet ی که در زمان runtime ایجاد شده

میخوام توی ایونت onshow تب شیت ها کدی بنویسم که به دلیل اینکه اون تب شیت رو در runtime ایجاد کردم اون کدها باید از مقادیر activepage استفاده کنه ولی وقتی مقادیر اینا رو بررسی کردم دیدم که مقدیر اونها مقادیر تب شیت قبلی هست این مسئله رو با خصوصیات زیادی مثل نام شماره ایندکی و... تست کردم و متاسفانه مقادیر فوق مقادیر تب شیت قبلی است حالا لطف کنید بفرمایید این مشکل از کامپیوتر و نحوه بد نصب شدن دلفی است و یا اصلا من راه رو اشتباه میرم
البته اینم ذکر کنم که من میخوام زمانی که یه تب شیت رو کاربر روش کلیک کرد و اصطلاحا اون فهال کرد من مثلا اون تب شیت رو در صورت وجود شرایط خاصی در دیتابیسم های لایت highlight کنم
به هر حال ممنون

بجای OnShow از OnChange خود پیج کنترل استفاده کن :

procedure TForm1.PageControl1Change(Sender: TObject);

begin

  ShowMessage(IntToStr(PageControl1.ActivePageIndex)  );

end;