小菜在尝试编写interbase数据库程序。才写就遇到问题了，问题如下：
    FORM1为主窗口，FORM2只是一个简单的输入用户名密码的界面。FORM2上有两个EDIT控件（edtadim,edtpassword）两个BUTTON(button1登陆，button2退出)控件。
    在FROM1中添加了ACTIONLIST。有一个动作为login。
    添加loginOnExecute事件。
    想把FORM2.button1.onclick事件的代码写到loginOnExecute事件里。该怎么处理？望大家帮帮忙，我折腾好几天了，都不知道怎么写
   
procedure    TFORM2.Button1.OnClick(Sender:TObject);
begin
    if self.edtadmin.text=' ' then
    begin
        showmessage('用户名不能为空！')；
        self.Edtadmin.setfocus;
        exit;
    end;
    if self.edtpassword.text=' ' then
    begin        
        showmessage('密码输入不能为空！')；
        self.edtpassword.setfocus;
        exit;
    end;
end;