Memo1.Parent:= TabbedNoteBook1.Pages.Objects[TabbedNoteBook1.PageIndex] as TWinControl;