ادخال المعلومات في tab sheet

[sa7er100]

السلام عليكم

كود :

var ANewSheet: TTabSheet; ANewFrame: TFrame2; begin ANewSheet := TTabSheet.Create(Self); ANewSheet.Name := edit1.Text; ANewSheet.PageControl := PageControl1; FrammeIdx := FrammeIdx + 1; ANewFrame := TFrame2.Create(Self); ANewFrame.Name := edit1.Text+ IntToStr(FrammeIdx); ANewFrame.Edit1.Text := edit1.Text; ANewFrame.Parent := ANewSheet;

المشكلة هي كيف يمكنني ادخال المعلومات اذا كان كل tabsheet يوجد فيه مكون memo1 كيف يمكنني ادخال المعلومات ل memo من خارج ال frame
توضيح السؤال اكثر

لدي edit txt في الصفحة الرئيسية وانقل التكست الى tabsheet الموجودة داخل ال frame

[S.FATEH]

السلام عليكم تريد نقل النص الى جميع الميمو ام لديك ميمو واحدممكن توضح المشكلة اكثر

[sa7er100]

ننقل النص الى ميمو انا اختاره الموجود في الصفحة التي انشأت برمجياا