Icone nao some da barra de tarefa apos fechar aplicacao

Estou com mais um probleminha. A aplicacao possui uma rotina onde se a aplicacao eh minimizada, fica um icone na barra de tarefas do windows, ao lado do relogio, mas quando fecho a aplicacao o icone continua a aparecer.Ele somente fecha se passo com o mouse por cima.Segue codigo://**************** Rotina para jogar icone na barra de tarefas ****************//procedure TFrmPrincipal.TrayMessage(var Msg: TMessage);var p: TPoint;begin Case Msg.lParam Of WM_LBUTTONDBLCLK: Begin ShowWindow(Application.Handle, SW_SHOWNORMAL); End; WM_RBUTTONDOWN: Begin SetForeGroundWindow(Handle); GetCursorPos(p); PopupMenu1.Popup(p.x, p.y); PostMessage(Handle, WM_NULL, 0, 0); End; Else Inherited; End;end;procedure TFrmPrincipal.WMSysCommand(var Msg: TWMSysCommand);begin Case Msg.CmdType Of SC_MINIMIZE: Begin ShowWindow(Application.Handle, SW_MINIMIZE); ShowWindow(Application.Handle, SW_HIDE); End; Else Inherited; End;end;//**********************************************************************************//Agradeco qualquer ajuda.Valeu.