Ejecutable muy grande

[[Lepe]]

Ejecuta este procedimiento de nuestro amigo Dr. Marteens dentro de un boton para ver cuanto ocupa antes y despues de pulsarlo:

procedure LiberarMemoria;
begin
  if Win32Platform = VER_PLATFORM_WIN32_NT then
    SetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF);
end;

He visto como un programa ocupando 6 megas en RAM se viene a 1.2 Megas.

Saludos y espero tu respuesta.