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