Ну, или во время шифровки (в цикле, например), очищать очередь сообщений, хотя этот способ будет гораздо медленнее. Это можно делать при помощи Application.ProcessMessages, но лучше при помощи вот этого:
http://www.delphisources.ru/forum/showthread.php?t=2039