工程判断内存溢出
ReportMemoryLeaksOnShutdown := True;
program Project1;
uses
Vcl.Forms,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
ReportMemoryLeaksOnShutdown := True;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.