清理内存

procedure clearmemory;
begin

        if win32platform = ver_platform_win32_nt then
        begin
                setprocessworkingsetsize(getcurrentprocess, $ffffffff, $ffffffff);
                application.processmessages;
        end;

end;