procedure TForm1.Button1Click(Sender: TObject);begin Close;end; 这个是关闭的代码，你可以看下，其他两个联系我 我会告诉你的
close;完成“登陆”“取消”和“退出”按钮的单击事件，当然是退出这个窗体了。
