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

[Rolando Glez]

//se sustituyo estas instruccionespor el componente hecho escafandra systray
// fix problem

{with TrayIconData do
begin
cbSize := SizeOf(TrayIconData);
Wnd := Handle;
uID := 0;
uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;
uCallbackMessage := WM_ICONTRAY;
hIcon := Application.Icon.Handle;
StrPCopy(szTip, Application.Title);
end;

Shell_NotifyIcon(NIM_ADD, @TrayIconData); }

parece ser que hay algo incorrecto en estas instrucciones que a hace
que el sistema no pueda cerrar la aplicacion pero bueno lo resolvi con el uso del componente de escafranda y eliminando este codigo de la aplicacion

TrayIconData: TNotifyIconData; esta definida dentro de la zona privada
de la forma principal