[sur-se]

Otra cosa más, también tengo puesto por el programa las llamadas a esta función:

// By Ian Marteens (libera memoria viartual que no se utiliza)
procedure TModuloDatos.LiberarMemoria;
begin
       if Win32Platform = VER_PLATFORM_WIN32_NT then
              SetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF);
end;

Salu2.