Liberación de memoria de Tbitmap

[sintecsl]

Creo que este procedimiento es mas eficaz :

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;