[Vayrus]

Попробуй этот код:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
asm
cli
@A:
jmp @A
end;
end;