一个可以清理程序内存的代码（不错）

if   Win32Platform   =   VER_PLATFORM_WIN32_NT   then
begin
SetProcessWorkingSetSize(GetCurrentProcess,   $FFFFFFFF,   $FFFFFFFF);
application.ProcessMessages;
end;