Function at 0x508e4c
Capabilities:
Resolve function by parsing pe exports

Disassembly:
push ebp
mov ebp, esp
mov ecx, 0x27
push 0
push 0
dec ecx
jne 0x508e54
push ecx
push ebx
push esi
push edi
mov dword [ebp - 0x28], eax
xor eax, eax
push ebp
push 0x509766
push dword fs:[eax]
mov dword fs:[eax], esp
mov byte [ebp - 0x29], 1
mov eax, dword [ebp - 0x28]
mov eax, dword [eax + 0x58]
call sub.rtl250.bpl__System__DynArrayHigh_qqrpxv
test eax, eax
jl 0x5095c0
lea edx, [ebp - 0xc]
mov eax, dword [ebp - 0x28]
mov eax, dword [eax + 0x60]
call sub.AxComponentsRTL.bpl__Axrtl_System_Ioutils_TPathHelper_PreparePathName_qqrx20System_UnicodeString
xor edx, edx
push ebp
push 0x508eb5
push dword fs:[edx]
mov dword fs:[edx], esp
mov eax, dword [ebp - 0xc]
call sub.rtl250.bpl__System_Sysutils_ForceDirectories_qqr20System_UnicodeString
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x508ee8
xor edx, edx
push ebp
push 0x50956b
push dword fs:[edx]
mov dword fs:[edx], esp
mov eax, dword [ebp - 0x28]
mov eax, dword [eax + 0x60]
mov dl, 1
call sub.rtl250.bpl__System_Sysutils_DirectoryExists_qqrx20System_UnicodeStringo
test al, al
jne 0x508f32
push 1
mov eax, dword [ebp - 0x28]
call fcn.00508994
mov ecx, eax
mov eax, dword [ebp - 0x28]
mov edx, dword [eax + 0x60]
mov eax, dword [ebp - 0x28]
call fcn.00509ae4
mov byte [ebp - 0x29], 0
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x5095c0
lea edx, [ebp - 0x10]
mov eax, 0x509788
call fcn.004a203c
lea ecx, [ebp - 0x14]
mov edx, 0x50979c
mov eax, dword [ebp - 0x10]
mov ebx, dword [eax]
call dword [ebx + 0x78]
mov edx, 0x5097b4
mov eax, dword [ebp - 0x10]
mov ecx, dword [eax]
call dword [ecx + 0x58]
movzx edx, byte [0x5097c0]
mov eax, dword [ebp - 0x10]
mov ecx, dword [eax]
call dword [ecx + 0x64]
mov dl, 1
mov eax, dword [ebp - 0x10]
mov ecx, dword [eax]
call dword [ecx + 0x4c]
call sub.rtl250.bpl__System_Sysutils_Now_qqrv
add esp, 0xfffffff8
fstp qword [esp]
wait
lea edx, [ebp - 0x48]
mov eax, 0x5097d0
call sub.rtl250.bpl__System_Sysutils_FormatDateTime_qqrx20System_UnicodeString16System_TDateTime
mov edx, dword [ebp - 0x48]
lea eax, [ebp - 0x44]
call sub.rtl250.bpl__System_Variants__OleVarFromUStr_qqrr8TVarDatax20System_UnicodeString
lea ecx, [ebp - 0x44]
mov edx, 0x509804
mov eax, dword [ebp - 0x14]
mov ebx, dword [eax]
call dword [ebx + 0x58]
lea eax, [ebp - 0x58]
mov edx, dword [ebp - 0x28]
mov edx, dword [edx + 0x64]
call sub.rtl250.bpl__System_Variants__OleVarFromUStr_qqrr8TVarDatax20System_UnicodeString
lea ecx, [ebp - 0x58]
mov edx, 0x50981c
mov eax, dword [ebp - 0x14]
mov ebx, dword [eax]
call dword [ebx + 0x58]
mov eax, dword [ebp - 0x28]
mov eax, dword [eax + 0x58]
call sub.rtl250.bpl__System__DynArrayLength_qqrpxv
mov dword [ebp - 0x5c], eax
fild dword [ebp - 0x5c]
mov eax, dword [ebp - 0x28]
fstp qword [eax + 0x30]
wait
mov eax, dword [ebp - 0x28]
xor edx, edx
mov dword [eax + 0x38], edx
mov dword [eax + 0x3c], edx
mov eax, dword [0x4af434]
call fcn.004b4164
lea eax, [ebp - 0x20]
mov edx, dword [ebp - 0x28]
mov edx, dword [edx + 0x58]
mov ecx, dword [0x492c3c]
call sub.rtl250.bpl__System__DynArrayAsg_qqrrpvpvt2
xor eax, eax
mov dword [ebp - 0x30], eax
jmp 0x5094e9
lea eax, [ebp - 4]
mov edx, dword [ebp - 0x20]
mov ecx, dword [ebp - 0x30]
mov edx, dword [edx + ecx*4]
call sub.rtl250.bpl__System__IntfCopy_qqrr44System__DelphiInterface_17System_IInterface_x44System__DelphiInterface_17System_IInterf
mov eax, dword [ebp - 0x28]
lea edx, [eax + 0x20]
mov eax, dword [ebp - 0x28]
call fcn.004c2468
test al, al
je 0x50903e
mov byte [ebp - 0x29], 0
jmp 0x5094fa
lea edx, [ebp - 0x60]
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0xc]
cmp dword [ebp - 0x60], 0
je 0x5094e6
xor ecx, ecx
mov dl, 1
mov eax, dword [0x4ffba4]
call fcn.00501628
mov ebx, eax
mov eax, dword [ebp - 0x28]
mov dword [eax + 0x78], ebx
mov eax, dword [ebp - 0x28]
mov dword [ebx + 0xdc], eax
mov dword [ebx + 0xd8], 0x508bc8
mov eax, dword [ebp - 0x28]
mov dword [ebx + 0x5fc], eax
mov dword [ebx + 0x5f8], 0x508c54
mov eax, ebx
mov dl, 1
call fcn.00508108
mov eax, dword [ebp - 0x28]
mov eax, dword [eax + 0x78]
mov dl, 1
call fcn.00508128
mov eax, dword [ebp - 0x28]
mov eax, dword [eax + 0x78]
mov dl, 1
call fcn.005080e8
mov eax, dword [ebp - 0x28]
mov eax, dword [eax + 0x78]
mov dl, 1
call fcn.00508148
xor eax, eax
push ebp
push 0x5094df
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 0x28]
mov eax, dword [eax + 0x5c]
mov edx, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x14]
mov eax, dword [ebp - 0x28]
add eax, 0x40
mov edx, dword [ebp - 4]
call sub.rtl250.bpl__System__IntfCopy_qqrr44System__DelphiInterface_17System_IInterface_x44System__DelphiInterface_17System_IInterf
mov eax, dword [ebp - 0x28]
fld1
fadd qword [eax + 0x38]
mov eax, dword [ebp - 0x28]
fstp qword [eax + 0x38]
wait
lea edx, [ebp - 0x68]
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x18]
mov eax, dword [ebp - 0x68]
push eax
lea edx, [ebp - 0x7c]
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0xc]
mov eax, dword [ebp - 0x7c]
lea edx, [ebp - 0x78]
mov ecx, dword [eax]
call dword [ecx + 0x14]
lea eax, [ebp - 0x78]
push eax
lea eax, [ebp - 0x64]
push eax
lea edx, [ebp - 0x80]
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x1c]
mov ecx, dword [ebp - 0x80]
mov edx, dword [ebp - 0xc]
mov eax, dword [ebp - 0x28]
call fcn.005089ec
mov edx, dword [ebp - 0x64]
mov eax, dword [ebp - 0x28]
mov eax, dword [eax + 0x78]
mov ecx, dword [eax]
call dword [ecx + 0x44]
lea eax, [ebp - 0x18]
push eax
or ecx, 0xffffffff
mov edx, 0x509834
mov eax, dword [ebp - 0x14]
mov ebx, dword [eax]
call dword [ebx + 0x6c]
lea edx, [ebp - 0x94]
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x10]
mov edx, dword [ebp - 0x94]
lea eax, [ebp - 0x90]
call sub.rtl250.bpl__System_Variants__OleVarFromUStr_qqrr8TVarDatax20System_UnicodeString
lea ecx, [ebp - 0x90]
mov edx, 0x509850
mov eax, dword [ebp - 0x18]
mov ebx, dword [eax]
call dword [ebx + 0x58]
lea edx, [ebp - 0xac]
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0xc]
mov eax, dword [ebp - 0xac]
lea edx, [ebp - 0x78]
mov ecx, dword [eax]
call dword [ecx + 0x14]
lea eax, [ebp - 0x78]
lea edx, [ebp - 0xa8]
call sub.rtl250.bpl__System_Win_Comobj_GUIDToString_qqrrx5_GUID
mov edx, dword [ebp - 0xa8]
lea eax, [ebp - 0xa4]
call sub.rtl250.bpl__System_Variants__OleVarFromUStr_qqrr8TVarDatax20System_UnicodeString
lea ecx, [ebp - 0xa4]
mov edx, 0x509868
mov eax, dword [ebp - 0x18]
mov ebx, dword [eax]
call dword [ebx + 0x58]
lea edx, [ebp - 0xc0]
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x18]
mov edx, dword [ebp - 0xc0]
lea eax, [ebp - 0xbc]
call sub.rtl250.bpl__System_Variants__OleVarFromUStr_qqrr8TVarDatax20System_UnicodeString
lea ecx, [ebp - 0xbc]
mov edx, 0x509880
mov eax, dword [ebp - 0x18]
mov ebx, dword [eax]
call dword [ebx + 0x58]
lea edx, [ebp - 0xd4]
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x1c]
mov edx, dword [ebp - 0xd4]
lea eax, [ebp - 0xd0]
call sub.rtl250.bpl__System_Variants__OleVarFromUStr_qqrr8TVarDatax20System_UnicodeString
lea ecx, [ebp - 0xd0]
mov edx, 0x50989c
mov eax, dword [ebp - 0x18]
mov ebx, dword [eax]
call dword [ebx + 0x58]
lea edx, [ebp - 0xe8]
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x20]
mov edx, dword [ebp - 0xe8]
lea eax, [ebp - 0xe4]
call sub.rtl250.bpl__System_Variants__OleVarFromUStr_qqrr8TVarDatax20System_UnicodeString
lea ecx, [ebp - 0xe4]
mov edx, 0x5098c0
mov eax, dword [ebp - 0x18]
mov ebx, dword [eax]
call dword [ebx + 0x58]
lea edx, [ebp - 0xfc]
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x24]
mov edx, dword [ebp - 0xfc]
lea eax, [ebp - 0xf8]
call sub.rtl250.bpl__System_Variants__OleVarFromUStr_qqrr8TVarDatax20System_UnicodeString
lea ecx, [ebp - 0xf8]
mov edx, 0x5098e4
mov eax, dword [ebp - 0x18]
mov ebx, dword [eax]
call dword [ebx + 0x58]
mov eax, dword [ebp - 4]
mov edx, dword [eax]
call dword [edx + 0x2c]
add esp, 0xfffffff8
fstp qword [esp]
wait
lea edx, [ebp - 0x110]
mov eax, 0x509908
call sub.rtl250.bpl__System_Sysutils_FormatDateTime_qqrx20System_UnicodeString16System_TDateTime
mov edx, dword [ebp - 0x110]
lea eax, [ebp - 0x10c]
call sub.rtl250.bpl__System_Variants__OleVarFromUStr_qqrr8TVarDatax20System_UnicodeString
lea ecx, [ebp - 0x10c]
mov edx, 0x50992c
mov eax, dword [ebp - 0x18]
mov ebx, dword [eax]
call dword [ebx + 0x58]
lea edx, [ebp - 0x114]
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x28]
mov eax, dword [ebp - 0x114]
lea edx, [ebp - 0x24]
mov ecx, dword [eax]
call dword [ecx + 0xc]
jmp 0x509366
lea edx, [ebp - 8]
mov eax, dword [ebp - 0x24]
mov ecx, dword [eax]
call dword [ecx + 0x10]
lea eax, [ebp - 0x1c]
push eax
or ecx, 0xffffffff
mov edx, 0x509948
mov eax, dword [ebp - 0x18]
mov ebx, dword [eax]
call dword [ebx + 0x6c]
lea edx, [ebp - 0x118]
mov eax, dword [ebp - 8]
mov ecx, dword [eax]
call dword [ecx + 0x10]
mov edx, dword [ebp - 0x118]
mov eax, dword [ebp - 0x1c]
mov ecx, dword [eax]
call dword [ecx + 0x68]
lea edx, [ebp - 0x11c]
mov eax, dword [ebp - 8]
mov ecx, dword [eax]
call dword [ecx + 0x14]
mov edx, dword [ebp - 0x11c]
mov eax, dword [ebp - 0x28]
mov eax, dword [eax + 0x78]
mov eax, dword [eax + 0x4c]
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x24]
mov edx, dword [eax]
call dword [edx + 0xc]
test al, al
jne 0x509309
lea eax, [ebp - 0x24]
call sub.rtl250.bpl__System__IntfClear_qqrr44System__DelphiInterface_17System_IInterface_
xor eax, eax
push ebp
push 0x509440
push dword fs:[eax]
mov dword fs:[eax], esp
lea edx, [ebp - 0x120]
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x28]
mov eax, dword [ebp - 0x120]
mov edx, dword [eax]
call dword [edx + 0x10]
mov ebx, eax
mov eax, dword [ebp - 0x28]
mov eax, dword [eax + 0x78]
call fcn.00501f74
cmp ebx, eax
jne 0x5093ba
mov eax, dword [ebp - 0x28]
inc dword [eax + 0x48]
jmp 0x509436
lea edx, [ebp - 0x124]
mov eax, dword [ebp - 0x28]
mov eax, dword [eax + 0x78]
call fcn.004f41d0
mov eax, dword [ebp - 0x124]
mov dl, 1
call sub.rtl250.bpl__System_Ioutils_TFile_Exists_qqrx20System_UnicodeStringo
test al, al
je 0x5093ff
lea edx, [ebp - 0x128]
mov eax, dword [ebp - 0x28]
mov eax, dword [eax + 0x78]
call fcn.004f41d0
mov eax, dword [ebp - 0x128]
movzx edx, byte [0x509954]
call sub.AxComponentsRTL.bpl__Axrtl_System_Ioutils_TFileHelper_Delete_qqrx20System_UnicodeString64System__Set_37Axrtl_System_Ioutil
lea edx, [ebp - 0x12c]
mov eax, dword [ebp - 0x14]
mov ecx, dword [eax]
call dword [ecx + 0x14]
mov eax, dword [ebp - 0x12c]
mov edx, dword [ebp - 0x18]
mov ecx, dword [eax]
call dword [ecx + 0x4c]
push eax
lea edx, [ebp - 0x130]
mov eax, dword [ebp - 0x14]
mov ecx, dword [eax]
call dword [ecx + 0x14]
mov eax, dword [ebp - 0x130]
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x24]
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x5094bb
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x5094e6
mov eax, dword [ebp - 0x28]
add eax, 0x78
call sub.rtl250.bpl__System_Sysutils_FreeAndNil_qqrpv
mov eax, dword [ebp - 0x28]
add eax, 0x40
call sub.rtl250.bpl__System__IntfClear_qqrr44System__DelphiInterface_17System_IInterface_
ret
inc dword [ebp - 0x30]
mov eax, dword [ebp - 0x20]
call sub.rtl250.bpl__System__DynArrayLength_qqrpxv
cmp eax, dword [ebp - 0x30]
jg 0x509012
lea eax, [ebp - 0x20]
mov edx, dword [0x492c3c]
call sub.rtl250.bpl__System__DynArrayClear_qqrrpvpv
cmp byte [ebp - 0x29], 0
je 0x50952b
lea edx, [ebp - 0x138]
mov eax, dword [ebp - 0x14]
mov ecx, dword [eax]
call dword [ecx + 0x14]
mov eax, dword [ebp - 0x138]
mov edx, dword [eax]
call dword [edx + 0xc]
test eax, eax
jg 0x50952f
xor eax, eax
jmp 0x509531
mov al, 1
mov byte [ebp - 0x29], al
cmp byte [ebp - 0x29], 0
je 0x509561
mov eax, dword [ebp - 0x28]
mov edx, dword [eax + 0x60]
lea eax, [ebp - 0x13c]
mov ecx, 0x509964
call sub.rtl250.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov edx, dword [ebp - 0x13c]
mov eax, dword [ebp - 0x10]
mov ecx, dword [eax]
call dword [ecx + 0xb0]
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x509597
cmp byte [ebp - 0x29], 0
jne 0x5095c0
mov eax, dword [ebp - 0x28]
mov eax, dword [eax + 0x60]
mov dl, 1
call sub.rtl250.bpl__System_Sysutils_DirectoryExists_qqrx20System_UnicodeStringo
test al, al
je 0x5095c0
mov eax, dword [ebp - 0x28]
mov eax, dword [eax + 0x60]
movzx edx, byte [0x50997c]
call sub.AxComponentsRTL.bpl__Axrtl_System_Ioutils_TDirectoryHelper_Delete_qqrx20System_UnicodeString64System__Set_37Axrtl_System_I
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x509770
lea eax, [ebp - 0x13c]
call sub.rtl250.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0x138]
call sub.rtl250.bpl__System__IntfClear_qqrr44System__DelphiInterface_17System_IInterface_
lea eax, [ebp - 0x134]
call sub.rtl250.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0x130]
mov edx, dword [0x49f564]
mov ecx, 2
call sub.rtl250.bpl__System__FinalizeArray_qqrpvt1ui
lea eax, [ebp - 0x128]
mov edx, 2
call sub.rtl250.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0x120]
call sub.rtl250.bpl__System__IntfClear_qqrr44System__DelphiInterface_17System_IInterface_
lea eax, [ebp - 0x11c]
mov edx, 2
call sub.rtl250.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0x114]
call sub.rtl250.bpl__System__IntfClear_qqrr44System__DelphiInterface_17System_IInterface_
lea eax, [ebp - 0x110]
call sub.rtl250.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0x10c]
call sub.rtl250.bpl__System_Variants__VarClr_qqrr8TVarData
lea eax, [ebp - 0xfc]
call sub.rtl250.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0xf8]
call sub.rtl250.bpl__System_Variants__VarClr_qqrr8TVarData
lea eax, [ebp - 0xe8]
call sub.rtl250.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0xe4]
call sub.rtl250.bpl__System_Variants__VarClr_qqrr8TVarData
lea eax, [ebp - 0xd4]
call sub.rtl250.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0xd0]
call sub.rtl250.bpl__System_Variants__VarClr_qqrr8TVarData
lea eax, [ebp - 0xc0]
call sub.rtl250.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0xbc]
call sub.rtl250.bpl__System_Variants__VarClr_qqrr8TVarData
lea eax, [ebp - 0xac]
call sub.rtl250.bpl__System__IntfClear_qqrr44System__DelphiInterface_17System_IInterface_
lea eax, [ebp - 0xa8]
call sub.rtl250.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0xa4]
call sub.rtl250.bpl__System_Variants__VarClr_qqrr8TVarData
lea eax, [ebp - 0x94]
call sub.rtl250.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0x90]
call sub.rtl250.bpl__System_Variants__VarClr_qqrr8TVarData
lea eax, [ebp - 0x80]
call sub.rtl250.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0x7c]
call sub.rtl250.bpl__System__IntfClear_qqrr44System__DelphiInterface_17System_IInterface_
lea eax, [ebp - 0x68]
mov edx, 2
call sub.rtl250.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0x60]
call sub.rtl250.bpl__System__IntfClear_qqrr44System__DelphiInterface_17System_IInterface_
lea eax, [ebp - 0x58]
call sub.rtl250.bpl__System_Variants__VarClr_qqrr8TVarData
lea eax, [ebp - 0x48]
call sub.rtl250.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0x44]
call sub.rtl250.bpl__System_Variants__VarClr_qqrr8TVarData
lea eax, [ebp - 0x24]
call sub.rtl250.bpl__System__IntfClear_qqrr44System__DelphiInterface_17System_IInterface_
lea eax, [ebp - 0x20]
mov edx, dword [0x492c3c]
call sub.rtl250.bpl__System__DynArrayClear_qqrrpvpv
lea eax, [ebp - 0x1c]
mov edx, dword [0x49f52c]
mov ecx, 3
call sub.rtl250.bpl__System__FinalizeArray_qqrpvt1ui
lea eax, [ebp - 0x10]
call sub.rtl250.bpl__System__IntfClear_qqrr44System__DelphiInterface_17System_IInterface_
lea eax, [ebp - 0xc]
call sub.rtl250.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 8]
call sub.rtl250.bpl__System__IntfClear_qqrr44System__DelphiInterface_17System_IInterface_
lea eax, [ebp - 4]
call sub.rtl250.bpl__System__IntfClear_qqrr44System__DelphiInterface_17System_IInterface_
ret