Присвоение форме выбранного окна свойства Disabled / Enabled

{в конце процедуры: false для запрета, true для разрешения}
EnableWindow(FindWindow(Nil,Pchar('Название Окна')), false);