No se ejecuta el Destroy

[satelier.martin]

Hola a todos aqui tengo un problema el cual no puedo encontrar la solucion.

Tengo este programa:

Código Delphi [-]
program L2exe;

uses Forms,ShellAPI,Windows,TLHelp32,SysUtils,Messages;

type
  TL2exe = class(TObject)
    constructor Create; virtual;
    destructor Destroy; override;
   private
  end;

constructor TL2exe.Create;
begin
  Application.MessageBox('create','Error', MB_ICONEXCLAMATION);
  inherited Create;
end;

destructor TL2exe.Destroy;
begin
  Application.MessageBox('se cerro','Error', MB_ICONEXCLAMATION);
  inherited Destroy;
end;

{$R *.res}
begin
  TL2exe.Create;
  Application.MessageBox('antes del call procces','Error', MB_ICONEXCLAMATION);
  Application.Terminate;
  end;
end.

Ejecuta bien el constructor, pero al terminar o terminar el proceso desde el administrador de windows no ejecuta el destroy. Estoy haciendo algo mal ??

Cualquier ayuda para orientarme es bienvenida.
Saludos.