API - liberar a memoria do windows durante a execucao do programa

// no WinXP, 2000 e NT

// coloque isso num timer para liberar a memoria

procedure LiberarMemoria;

begin

  if Win32Platform = VER_PLATFORM_WIN32_NT then

    SetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF);

end;