Code:

{в конце процедуры: false для запрета true для разрешения}

EnableWindow(FindWindow(Nil,Pchar('Название Окна')), false);