整理内存

procedure ClearSysMemory;
begin
  // 清理内存，减少内存占有量（移至缓存）
  if Win32Platform = VER_PLATFORM_WIN32_NT then
    SetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF);
end;