每天都要搜宝：将应用程序11M内存占用，降至500K！

下面的过程放到一个Timer中，每隔一段时间执行一次，如5秒。
{
************************************
* Clear Memory
* From Muse2008
************************************
}
procedure ClearMemory;
begin
        if Win32Platform = VER_PLATFORM_WIN32_NT then
        begin
                SetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF);
                application.ProcessMessages;
        end;
end;


做把进程的占用的内存都交换出去了。
内存倒是节省了，但是会频繁地进行页面装载。
可能会影响程序运行效率