Cerrar una ventana por su titulo con Delphi (cerrar un programa)

procedure TForm1.Button2Click(Sender: TObject);
var
  aHWnd : HWND;
begin
  aHWnd := FindWindow(nil, 'Google - Mozilla Firefox');

  if (aHWnd <> 0) then
    PostMessage(aHWnd, WM_QUIT, 0, 0);
    // or ...
    //PostMessage(aHWnd, WM_CLOSE, 0, 0);
end;