Procedure para fechar aplicação e remover software da memória - Delphi

Boa Tarde,
Me deparei essa semana com um problema, no Windows 7 e Windows server 2008, ao fechar a aplicação com os Comandos : Close, ou Application.Terminate, a mesma continuava em memória, por isso efetuei a procedure abaixo .
Considerando um form chamado frmTeste.


procedure frmTeste.FechaAplicacao();
Var
h : HWND;
Begin
   h:= FindWindow( nil, 'Caption da Tela onde a procedure vai ser chamada.' );
   {Exemplo
   h:= FindWindow( nil, 'Menu Principal' );}
   if h <> 0 then begin
      PostMessage( h, WM_CLOSE, 0, 0 );
   end
End;

{Chamar a funcao diretamente como FechaAplicacao() , no local desejado.
By
Gustavo Luís H.
}