If you set to ON the SET ESCAPE command,
you will be able to interrupt an infinite loop
by pressing the ESCAPE key. And then use the
keypress event of the form to finish the process
properly.