Вот нашел способ Против Дебага, но он на Паскале,
Помогите переделать в D5-D6.

{$A+,B-,D-,F-,G-,I-,L-,N-,O-,P-,Q-,R-,S-,T-,V-,X-}
unit AntiDbug;
interface
procedure AntiOn;
procedure AntiOff;
procedure HaltDebug;
implementation
var
Int01: Pointer absolute $0:$004;
Int03: Pointer absolute $0:$00C;
IntXX: Pointer absolute $0:$080;
{New interrupt, 04=$10, 20=$80}
SaveInt01, SaveInt03: Pointer;
procedure Cli; inline($FA); {Clear interrupts}
procedure Sti; inline($FB); {Store interrupts?}

procedure HaltDebug; assembler;
asm
push ds
xor ax, ax
mov ds, ax
mov ah, [046Ch]
@@TimerWait:
mov al, [046Ch]
cmp al, ah
je @@TimerWait
pop ds
end;

procedure AntiOn;
begin
Port[$21] := Port[$21] or $02;
Cli;
Int03 := IntXX;
Int01 := IntXX;
Sti;
end;

procedure AntiOff;
begin
Port[$21] := Port[$21] and $fd;
Cli;
Int01 := SaveInt01;
Int03 := SaveInt03;
Sti;
end;

begin
HaltDebug;
SaveInt01 := Int01;
SaveInt03 := Int03;
end.

Конкретно этот код - не переделать. Ушло то время, когда ОС давала спокойно лазить в порты и перехватывать int1 & int3 ...

Поищи лучше вот здесь - (Открытый проект "Анти крэковые мучения")

Нельзя переделать, и дело не в Паскале, а в том что Win32 не допускает таких трюков.