انشاء حدث للزر اثناء التنفيذ

[AX302]

السلام عليكم 
ادا كنت تريد وضع كل شئ في وحدة جديدة ، يجب  عليك انشاء كلاس جديد و قم بوضع تلك الدالة الخاصة ب onclick داخلها

كود :

procedure  Button1Click(Sender: TObject) ;