Aplicacion no cierra cuando el SO trata de cerrar (inicializar el sistema o apagar)

[Rolando Glez]

Hola a todos he hecho una aplicacion minimizada es decir en forma de Icono la aplicacion responde correctamente a sus mensaje pero cuando se quiere cerrar la sesion es decir Inicializar el sistema o apagar, el Window cierra todas las aplicaciones que estan en systray pero mi aplicacion window informa que no responde como resultado el systema operativo no puede cerrar (inicializar o apagar cuando mi programita esta en memoria), no se porque esto sucede.

He tratado de resolver el problema gestionando los mensaje que window le envia a la aplicacion para cuando envie algun mensaje parecido a WM_QUIT O WM_DESTROY mi aplicacion termine se vaya de memoria y asi el sistema operativo puede cerrar la sesion he el procedimiento

procedure TMainForm.WndProc (var Message: TMessage);
var
  hwnd:word;
  lpmsg:TagMsg;
  continua:boolean;
  nv:variant;
begin
    hwnd:=mainform.handle;
    //continua:=GETMESSAGE(lpmsg,hwnd,0,0);
    if (MESSAGE.MSG=WM_QUIT) then APPLICATION.TERMINATE
                                        else  begin

                                              //dispatchmessage(lpmsg);
                                              inherited WndProc (Message);

                                              end


end;

Segun tengo entendido Window envia mensajes a las aplicaciones y las aplicaciones pueden en dependencia de el mensaje tomar una accion determinada esa es mi idea para que termine mi aplicacion pero no logro
que termine mi aplicacion cuando supuestamente window le este enviando un mensaje de WN_QUIT O WM_DESTROY a la aplicacion

no tengo claro cual es el handle de la funsion getmessage, en fin quisiera que alguien me diera un norte con relacion al tema saludos y gracias