Function at 0x4813dc
Capabilities:
Persist via run registry key

Disassembly:
push ebp
mov ebp, esp
add esp, 0xffffffd0
push ebx
push esi
xor ebx, ebx
mov dword [ebp - 0x2c], ebx
mov dword [ebp - 0x30], ebx
mov dword [ebp - 0x18], ebx
mov dword [ebp - 0x14], ebx
mov dword [ebp - 4], ebx
mov ebx, ecx
mov esi, edx
xor eax, eax
push ebp
push 0x48159d
push dword fs:[eax]
mov dword fs:[eax], esp
mov dl, 1
mov eax, dword [sym.imp.AxComponentsRTL.bpl__Auslogics_System_Win_Registry_TRegistry_]
call sub.rtl160.bpl__System_Win_Registry_TRegistry__bctr_qqrv
mov dword [ebp - 8], eax
xor eax, eax
push ebp
push 0x481566
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 8]
mov dword [eax + 0x18], 0x20006
mov edx, 0x80000001
mov eax, dword [ebp - 8]
call sub.rtl160.bpl__System_Win_Registry_TRegistry_SetRootKey_qqrp6HKEY__
xor ecx, ecx
mov edx, dword [0x535f50]
mov eax, dword [ebp - 8]
call sub.rtl160.bpl__System_Win_Registry_TRegistry_OpenKey_qqrx20System_UnicodeStringo
test al, al
je 0x481550
xor eax, eax
push ebp
push 0x481549
push dword fs:[eax]
mov dword fs:[eax], esp
test bl, bl
je 0x481529
lea eax, [ebp - 4]
push eax
lea edx, [ebp - 0x14]
xor eax, eax
call sub.rtl160.bpl__System_ParamStr_qqri
mov eax, dword [ebp - 0x14]
mov dword [ebp - 0x10], eax
mov byte [ebp - 0xc], 0x11
lea edx, [ebp - 0x10]
xor ecx, ecx
mov eax, 0x4815b8
call sub.rtl160.bpl__System_Sysutils_Format_qqrx20System_UnicodeStringpx14System_TVarRecxi
mov eax, dword [ebp + 0xc]
mov edx, dword [sym.imp.rtl160.bpl__System_Sysutils_EmptyStr]
mov edx, dword [edx]
call sub.rtl160.bpl__System__UStrEqual_qqrv
je 0x4814d7
lea eax, [ebp - 0x18]
push eax
mov eax, dword [ebp - 4]
mov dword [ebp - 0x28], eax
mov byte [ebp - 0x24], 0x11
mov eax, dword [ebp + 0xc]
mov dword [ebp - 0x20], eax
mov byte [ebp - 0x1c], 0x11
lea edx, [ebp - 0x28]
mov ecx, 1
mov eax, 0x4815d0
call sub.rtl160.bpl__System_Sysutils_Format_qqrx20System_UnicodeStringpx14System_TVarRecxi
mov edx, dword [ebp - 0x18]
lea eax, [ebp - 4]
call sub.rtl160.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
cmp byte [ebp + 8], 0
je 0x48151a
lea eax, [ebp - 0x2c]
push eax
mov eax, dword [ebp - 4]
mov dword [ebp - 0x28], eax
mov byte [ebp - 0x24], 0x11
lea eax, [ebp - 0x30]
call fcn.0047fc78
mov eax, dword [ebp - 0x30]
mov dword [ebp - 0x20], eax
mov byte [ebp - 0x1c], 0x11
lea edx, [ebp - 0x28]
mov ecx, 1
mov eax, 0x4815d0
call sub.rtl160.bpl__System_Sysutils_Format_qqrx20System_UnicodeStringpx14System_TVarRecxi
mov edx, dword [ebp - 0x2c]
lea eax, [ebp - 4]
call sub.rtl160.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov ecx, dword [ebp - 4]
mov edx, esi
mov eax, dword [ebp - 8]
call sub.rtl160.bpl__System_Win_Registry_TRegistry_WriteString_qqrx20System_UnicodeStringt1
jmp 0x481533
mov edx, esi
mov eax, dword [ebp - 8]
call sub.rtl160.bpl__System_Win_Registry_TRegistry_DeleteValue_qqrx20System_UnicodeString
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x481550
mov eax, dword [ebp - 8]
call sub.rtl160.bpl__System_Win_Registry_TRegistry_CloseKey_qqrv
ret
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x48156d
lea eax, [ebp - 8]
call sub.rtl160.bpl__System_Sysutils_FreeAndNil_qqrpv
ret