مكون AdvOfficePager TMS

[medsoft]

السلام عليكم

أردت أن أستعمل في برنامجي مكون AdvOfficePager من TMS بدلا عن المكون TPageControl حيث قمت بادراج صفحتين داخل المكون AdvOfficePager أين وضعت بقة المكونات داخل الصفحتين الغرض هو عندما أقوم بتنفيذ البرنامج المكون AdvOfficePager يكون مخفيا و عند الضغط مثالا على الزر 1 تظهر الصفحة 1 الكود المستعمل هو :

كود :

procedure TForm1.FormCreate(Sender: TObject); begin AdvOfficePager1.Visible:=false; end;

كود :

procedure TForm1.Button1Click(Sender: TObject); begin AdvOfficePager1.Visible:=true; AdvOfficePager1.ActivePageIndex := 0; end;

المشكلة أنه عندما أقوم بتنفيذ البرنامج و الضغط على الزر 1 تظهر كلتى الصفحتين معا عوض الصفحة 1 فقط, أين الخلل من فظلكم.
شكرا.