实例一 hello world

procedure TForm1.Button1Click(Sender: TObject);
begin
  Application.Terminate; //关闭程序
end;

 

完整文件地址：

https://files.cnblogs.com/files/blogs/664406/%E5%AE%9E%E4%BE%8B3.rar