VBA32, эвристика (paranoid)

[zorro84]

Delphi7, example attached (heur_test.rar)

детектит программу из-за этой строки как "Подозрительный;Malware.Delf.30 (paranoid heuristics)":
=====
if Assigned(FShutdown) then FShutdown;
=====
(код находится в юните ApplicationUnit, уровень эвристики "избыточный (paranoid)")

Если эту строку заменить на:
=====
if Assigned(FShutdown) then
begin
asm //VBA32 heuristic .. ?!?
xor eax, eax
end;
FShutdown;
end;
=====
то детект убирается

[zorro84]

:-\

[pig]

А чего ещё ждать от параноидальной эвристики? Чем параноидальнее, тем больше ложных срабатываний.