procedure antidbg; var ok:Boolean; begin ok:=False; try asm INT 2Dh nop end; except ok := True; end; if not ok then Application.Terminate; end;