Liberar memoria

[darkbits]

revivo el tema

con 2 preguntas

como puedo acelerar la carga del programa en delphi tengo mi pc win10 con 8Gb memoria ,la aplicación comienza a cargar los combobox label etc uno por uno lo hace en 3 segundos, pero es notorio a la vista lo que carga lento?

y mi segunda pregunta es como libero memoria hasta windows 7 estos códigos funcionan de primera, ahora estoy trabajando en windows10 y veo que no libera memoria ni el uso del procesador con con los 3 ejemplos q menciona en el post:

Código Delphi [-]
procedure LiberarMemoria;
begin
  if Win32Platform = VER_PLATFORM_WIN32_NT then
    SetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF);
end;

Código Delphi [-]
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin

 setPriorityClass(GetCurrentProcess,IDLE_PRIORITY_CLASS);
 SetThreadPriority(GetCurrentThread,THREAD_PRIORITY_IDLE);

 Application.FreeOnRelease;

 Action := caFree;

end;