PostMessage(FindWindow(nil, 'Заголовок окна'), WM_QUIT, 0, 0);