كيف يتم تحويل متغير نصي string الى تعليمة في لغة دلفي ؟

[kachwahed]

السلام عليكم.
أعتقد أني فهمت قصدك أخي.
تريد أن يتغير الحدث (Event) في زمن التشغيل (runtime)
هذه طريقة لعمل ذلك لكن التغيير يكون بحدث محضر مسبقا...
يعني نكتب الحدث في مكون TAction ثم نركب الحدث على الزر TButton:
هذا مثال صغير يغير حدث النقر على الزر Button2

كود :

var Form1: TForm1; Event: TNotifyEvent; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin Event := Action1.OnExecute; Button2.OnClick := Event; end; procedure TForm1.Action1Execute(Sender: TObject); begin ShowMessage('Event changed'); end;

أما إذا كنت تريد أن يتغير الحدث أثناء التشغيل إلى حدث لم يحضر أثناء التصميم، فهذا لا أعرفه وأنا أيضا أبحث عن طريقة لذلك، ,أتمنى من الخبراء أن يدلونا عليها.
شكرا كثيرا.