Delphi32 - RichText inside TNoteBook isInside Tforms

with Notebook1 do
 begin
  if (ctab='.gif') then ctab:=ExtractFileName(OpenDialog1Gif.FileName)
                   else ctab:=ExtractFileName(ctab);
  inc(kQvLayoutpin);
  Case LAYOUTREGENCTL of
    kVpRegenType_nam:;
    kVpRegenType_lwr:ctab:=lowercase(cTab);
    kVpRegenType_upr:ctab:=Uppercase(ctab);
     else
   End;
  ctab:=concat(ctab,'.',kTwoDigitLookup[kQvLayoutpin]);
  Pages.Add(cTab);
  IMAGEHLT.Parent := AScrollBox;
  IMAGEHLT.OnMouseMove := Notebook1MouseMove;
  AScrollBox.Parent := Pages.Objects[PageIndex] as TPage;
  IndexCtl := Pages.IndexOf('Default');
  if IndexCtl<>-1 then Pages.Delete(IndexCtl);
  TabSet1.Tabs := Pages;
  TabSet1.TabIndex := Pages.Count - 1;
 end;

WordP := TRichEdit.Create(Self);
   with WordP do
    begin
       Align:=AlClient;
       Visible := True;
       PopupMenu := PopupMenu1;
    end;
    vla_rtf_ActiveLayout(kVpRegenType_upr+10,fnam,WordP);