Hola amigos, después de leer este tema les propongo utilizar este fragmento de código luego que hagan el Free.
Código Delphi
[-]procedure Optimizar_memoria;
var
MainHandle : THandle;
begin
try
MainHandle := OpenProcess(PROCESS_ALL_ACCESS, False, GetCurrentProcessID);
SetProcessWorkingSetSize(MainHandle, DWORD(-1), DWORD(-1));
finally
CloseHandle(MainHandle);
end;
end;
Esto lo encontré en la web tiempo atrás y me ha venido de maravillas. Ahora mismo no recuerdo de dónde lo saqué pero lo he probado y me funciona bien, incluso mirando en el Administrador de tareas la memoria que consume mi aplicación, cuando se ejecuta el código anterior disminuye esta mucho más que después de hacer el Free.
La explicación que daban en la web era que cuando se minimiza una aplicación Windows libera un "pocotón de cosas" y este procedimiento viene a simular algo parecido. Disculpen mi falta de memoria.
Byeeee