Prueba con esto, puedes hacerlo tantas veces como quieras, mira la memoria es el administrador de tareas
Código Delphi
[-]
procedure LiberarMemoria;
begin
if Win32Platform = VER_PLATFORM_WIN32_NT then
SetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF);
end;
A ver si te ayuda