在窗体事件中找到单击事件，然后双击，之后就可以在下面添加你的aaa函数。
Function aaa(abc: String): boolean;Begin application.MessageBox( PChar(abc),'你好', 16);End;Procedure TForm1.FormClick(Sender: TObject);Begin aaa('呵呵');End;
