Code:

PostMessage(FindWindow(Nil, Pchar('Название Окна')), WM_QUIT, 0, 0);