Não precisa de nada disso, basta colocar no CanResizeForm, CanResizeForm: Resize := False;
Pronto sem gambiarras, nem implementações mirabolantes.... Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]