delphi关闭程序本身代码是什么啊?

用close;或halt;都可以！

application.terminate;

添加一个按钮Button1,然后写Button1的OnClick事件：

procedure TForm1.Button1Click(Sender: TObject);
begin
Application.Terminate; //close或者halt或者self.close，都可以;
end;

self.close

close;

form1.close