TPageControl, TabSheet i TChildForm(pilne)

Witam
Na początku opisze problem!
Na formę( MDIForm) wżucam TPageControl i przycisk, mam również drógą formę (MDIChild). Na przycisku pod zdażeniem onClick wzucam procedure :

[code]
procedure TMainForm.ToolButton1Click(Sender: TObject);
 var
  NewTabSheet:TTabSheet;
  I:integer;
  T:integer ;
  Child:TChildForm;
begin
  NewTabSheet := TTabSheet.Create(Child);
  NewTabSheet.PageControl := PageControl1;
    try
      Child:=TChildForm.Create(PageControl1);
      except on exception do
      Showmessage('Niemogę utworzy okna MDI');
     end;
 T:=PageControl1.PageCount;
  I:=MDIChildCount;
   Child.Caption:=(intToStr(I));
    NewTabSheet.Caption:=':'+Child.Caption+':'+(intToStr(T));
end;
[/code]

Chciałbym aby tak utworzone dynamicznie zakładki sterowały otworzonymi oknami MDIChild, w pewien sposób to osiągnołem ponieważ po zamknięciu jednej z utworzonych form, zamyka się również zakłądka utworzona wraz z tą formą.
Sterowanie miałoby sie odbywać tak jak np.: w przeglądarkach typu "Opera" lub "My IE", czyli po zmianie zakładki miałoby sie uaktywnić okno utworzone razem z tą zakładką i odwrotnie.
Próbowałem na różne sposoby lecz niemogłem znaleŹć rozwiązania, będę bardzo wdzięczny za jaką kolwiek pomoc w rozwiązaniu problemu.
Pozdrowienia