How to disable the “escape” key?

In my program, I want to prevent the running application from stopping by pressing the “escape” key. Could anybody tell me how to disable the “escape” key in the program?

P.S.:the program was written in Delphi, and it is used to comunicate with some smart terminals in real-time mode.