请帮帮我啊(25分)

以下是一个汇编加密程序，
请高手帮我转换成一个DELPHI函数，输入一个字符串，输出一个字符串。
1429:0100 50 PUSH AX
1429:0101 53 PUSH BX
1429:0102 51 PUSH CX
1429:0103 52 PUSH DX
1429:0104 55 PUSH BP
1429:0105 56 PUSH SI
1429:0106 57 PUSH DI
1429:0107 1E PUSH DS
1429:0108 06 PUSH ES
1429:0109 9C PUSHF
1429:010A BF0000 MOV DI,0000
1429:010D 1E PUSH DS
1429:010E 0E PUSH CS
1429:010F 1F POP DS
1429:0110 BE8200 MOV SI,0082
1429:0113 1F POP DS
1429:0114 B90C00 MOV CX,000C
1429:0117 8A21 MOV AH,[BX+DI]
1429:0119 1E PUSH DS
1429:011A 0E PUSH CS
1429:011B 1F POP DS
1429:011C 8824 MOV [SI],AH
1429:011E 1F POP DS
1429:011F 47 INC DI
1429:0120 46 INC SI
1429:0121 E2F4 LOOP 0117
1429:0123 1E PUSH DS
1429:0124 0E PUSH CS
1429:0125 1F POP DS
1429:0126 BE8200 MOV SI,0082
1429:0129 8A04 MOV AL,[SI]
1429:012B 247F AND AL,7F
1429:012D B400 MOV AH,00
1429:012F 8BF8 MOV DI,AX
1429:0131 46 INC SI
1429:0132 B90B00 MOV CX,000B
1429:0135 8A24 MOV AH,[SI]
1429:0137 8A05 MOV AL,[DI]
1429:0139 32E0 XOR AH,AL
1429:013B 8824 MOV [SI],AH
1429:013D 47 INC DI
1429:013E 46 INC SI
1429:013F E2F4 LOOP 0135
1429:0141 1F POP DS
1429:0142 BF0000 MOV DI,0000
1429:0145 1E PUSH DS
1429:0146 0E PUSH CS
1429:0147 1F POP DS
1429:0148 BE8200 MOV SI,0082
1429:014B 1F POP DS
1429:014C B90C00 MOV CX,000C
1429:014F 1E PUSH DS
1429:0150 0E PUSH CS
1429:0151 1F POP DS
1429:0152 8A24 MOV AH,[SI]
1429:0154 1F POP DS
1429:0155 8821 MOV [BX+DI],AH
1429:0157 47 INC DI
1429:0158 46 INC SI
1429:0159 E2F4 LOOP 014F
1429:015B 9D POPF
1429:015C 07 POP ES
1429:015D 1F POP DS
1429:015E 5F POP DI
1429:015F 5E POP SI
1429:0160 5D POP BP
1429:0161 5A POP DX
1429:0162 59 POP CX
1429:0163 5B POP BX
1429:0164 58 POP AX
1429:0165 CB RETF
1429:0166 CF IRET
1429:0167 C3 RET
1429:0168 C3 RET
谢谢啊