Function at 0x533ed8
Capabilities:
Create directory

Disassembly:
push ebp
mov ebp, esp
push ecx
mov ecx, 0xa1
push 0
push 0
dec ecx
jne 0x533ee1
xchg dword [ebp - 4], ecx
push ebx
push esi
push edi
mov dword [ebp - 8], ecx
mov dword [ebp - 4], edx
mov esi, eax
mov eax, dword [ebp - 4]
call sub.rtl70.bpl__System__IntfAddRef_qqrx45System__DelphiInterface_t17System_IInterface_
mov eax, dword [ebp - 8]
call sub.rtl70.bpl__System__IntfAddRef_qqrx45System__DelphiInterface_t17System_IInterface_
xor eax, eax
push ebp
push 0x535973
push dword fs:[eax]
mov dword fs:[eax], esp
mov dl, 1
mov eax, dword [sym.imp.rtl70.bpl__Classes_TStringList_]
call sub.rtl70.bpl__System_TObject__bctr_qqrv
mov dword [ebp - 0x3c], eax
xor edx, edx
push ebp
push 0x53542d
push dword fs:[edx]
mov dword fs:[edx], esp
xor edx, edx
push ebp
push 0x5353f9
push dword fs:[edx]
mov dword fs:[edx], esp
push 0
lea edx, [ebp - 0x58]
mov eax, dword [sym.P_Interface.bpl__Publicutil_GL_ExeName]
mov eax, dword [eax]
call sub.rtl70.bpl__Sysutils_ExtractFilePath_qqrx17System_AnsiString
lea eax, [ebp - 0x58]
mov edx, 0x535994
call sub.rtl70.bpl__System__LStrCat_qqrv
mov eax, dword [ebp - 0x58]
call sub.rtl70.bpl__System__LStrToPChar_qqrx17System_AnsiString
push eax
call sub.kernel32.dll_CreateDirectoryA
push 0
lea edx, [ebp - 0x5c]
mov eax, dword [sym.P_Interface.bpl__Publicutil_GL_ExeName]
mov eax, dword [eax]
call sub.rtl70.bpl__Sysutils_ExtractFilePath_qqrx17System_AnsiString
lea eax, [ebp - 0x5c]
mov edx, 0x5359a0
call sub.rtl70.bpl__System__LStrCat_qqrv
mov eax, dword [ebp - 0x5c]
call sub.rtl70.bpl__System__LStrToPChar_qqrx17System_AnsiString
push eax
call sub.kernel32.dll_CreateDirectoryA
mov byte [ebp - 9], 0
lea eax, [ebp - 0x18]
call sub.rtl70.bpl__System__LStrClr_qqrpv
mov ebx, 1
xor eax, eax
mov dword [ebp - 0x28], eax
mov dword [ebp - 0x24], eax
mov word [ebp - 0x20], ax
xor eax, eax
mov dword [ebp - 0x38], eax
mov dword [ebp - 0x34], eax
mov word [ebp - 0x30], ax
lea eax, [ebp - 0x48]
mov edx, 0x5359b4
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
lea ecx, [ebp - 0x70]
mov edx, 0x5359bc
mov eax, dword [ebp - 4]
mov edi, dword [eax]
call dword [edi + 0xc]
lea eax, [ebp - 0x70]
lea ecx, [ebp - 0x60]
mov edx, 0x5359d0
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
mov eax, dword [ebp - 0x60]
call sub.rtl70.bpl__Sysutils_StrToInt_qqrx17System_AnsiString
mov dword [ebp - 0x4c], eax
cmp dword [ebp - 0x4c], 2
je 0x53409e
lea edx, [ebp - 0x74]
mov eax, dword [ebp - 8]
mov ecx, dword [eax]
call dword [ecx + 0x14]
mov eax, dword [ebp - 0x74]
mov edx, dword [eax]
call dword [edx + 0xc]
push eax
lea ecx, [ebp - 0x88]
mov edx, 0x5359d8
mov eax, dword [ebp - 4]
mov edi, dword [eax]
call dword [edi + 0xc]
lea eax, [ebp - 0x88]
lea ecx, [ebp - 0x78]
mov edx, 0x5359d0
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
mov eax, dword [ebp - 0x78]
call sub.rtl70.bpl__Sysutils_StrToInt_qqrx17System_AnsiString
pop edx
sub edx, eax
cmp edx, 8
jle 0x534059
lea eax, [ebp - 0x48]
mov edx, 0x5359f4
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
lea ecx, [ebp - 0x9c]
mov edx, 0x5359fc
mov eax, dword [ebp - 4]
mov edi, dword [eax]
call dword [edi + 0xc]
lea eax, [ebp - 0x9c]
lea ecx, [ebp - 0x8c]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
mov eax, dword [ebp - 0x8c]
mov edx, 0x535a18
call sub.rtl70.bpl__System__LStrCmp_qqrv
jne 0x53409e
lea eax, [ebp - 0x48]
mov edx, 0x5359f4
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
lea edx, [ebp - 0xa0]
mov eax, dword [ebp - 8]
mov ecx, dword [eax]
call dword [ecx + 0x14]
mov eax, dword [ebp - 0xa0]
mov edx, dword [eax]
call dword [edx + 0xc]
push eax
lea ecx, [ebp - 0xb4]
mov edx, 0x5359d8
mov eax, dword [ebp - 4]
mov edi, dword [eax]
call dword [edi + 0xc]
lea eax, [ebp - 0xb4]
lea ecx, [ebp - 0xa4]
mov edx, 0x5359d0
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
mov eax, dword [ebp - 0xa4]
call sub.rtl70.bpl__Sysutils_StrToInt_qqrx17System_AnsiString
pop edx
sub edx, eax
dec edx
test edx, edx
jl 0x5349ab
inc edx
mov dword [ebp - 0x54], edx
mov dword [ebp - 0x14], 0
lea edx, [ebp - 0xb8]
mov eax, dword [ebp - 8]
mov ecx, dword [eax]
call dword [ecx + 0x14]
mov eax, dword [ebp - 0xb8]
push eax
lea eax, [ebp - 0xc8]
mov edx, dword [ebp - 0x14]
mov cl, 0xfc
call sub.rtl70.bpl__Variants__OleVarFromInt_qqrr8TVarDataxixzc
lea edx, [ebp - 0xc8]
lea ecx, [ebp - 0x10]
pop eax
mov edi, dword [eax]
call dword [edi + 0x10]
lea ecx, [ebp - 0xdc]
mov edx, 0x535a20
mov eax, dword [ebp - 0x10]
mov edi, dword [eax]
call dword [edi + 0xc]
lea eax, [ebp - 0xdc]
lea ecx, [ebp - 0xcc]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
mov eax, dword [ebp - 0xcc]
mov edx, 0x535a3c
call sub.rtl70.bpl__System__LStrCmp_qqrv
je 0x53499f
push dword [ebp - 0x18]
push 0x535a48
lea edx, [ebp - 0xe0]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0xe0]
push 0x535a58
push 0x535a64
lea ecx, [ebp - 0xfc]
mov edx, 0x535a6c
mov eax, dword [ebp - 0x10]
mov edi, dword [eax]
call dword [edi + 0xc]
lea eax, [ebp - 0xfc]
lea ecx, [ebp - 0xec]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
mov eax, dword [ebp - 0xec]
lea edx, [ebp - 0xe8]
call sub.rtl70.bpl__Sysutils_Trim_qqrx17System_AnsiString
mov edx, dword [ebp - 0xe8]
lea ecx, [ebp - 0xe4]
mov eax, dword [esi + 0x28]
call sym.P_Interface.bpl__Unitxmlhttp_TXmlhttp_UTF8ANDURLENCODE_qqrx17System_AnsiString
push dword [ebp - 0xe4]
push 0x535a64
lea ecx, [ebp - 0x118]
mov edx, 0x535a7c
mov eax, dword [ebp - 0x10]
mov edi, dword [eax]
call dword [edi + 0xc]
lea eax, [ebp - 0x118]
lea ecx, [ebp - 0x108]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
mov eax, dword [ebp - 0x108]
lea edx, [ebp - 0x104]
call sub.rtl70.bpl__Sysutils_Trim_qqrx17System_AnsiString
mov edx, dword [ebp - 0x104]
lea ecx, [ebp - 0x100]
mov eax, dword [esi + 0x28]
call sym.P_Interface.bpl__Unitxmlhttp_TXmlhttp_UTF8ANDURLENCODE_qqrx17System_AnsiString
push dword [ebp - 0x100]
push 0x535a9c
push 0x535aa8
lea edx, [ebp - 0x11c]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x11c]
push 0x535a58
lea ecx, [ebp - 0x138]
mov edx, 0x535ab4
mov eax, dword [ebp - 0x10]
mov edi, dword [eax]
call dword [edi + 0xc]
lea eax, [ebp - 0x138]
lea ecx, [ebp - 0x128]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
mov eax, dword [ebp - 0x128]
lea edx, [ebp - 0x124]
call sub.rtl70.bpl__Sysutils_Trim_qqrx17System_AnsiString
mov edx, dword [ebp - 0x124]
lea ecx, [ebp - 0x120]
mov eax, dword [esi + 0x28]
call sym.P_Interface.bpl__Unitxmlhttp_TXmlhttp_UTF8ANDURLENCODE_qqrx17System_AnsiString
push dword [ebp - 0x120]
push 0x535a9c
push 0x535ad8
lea edx, [ebp - 0x13c]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x13c]
push 0x535a58
lea ecx, [ebp - 0x158]
mov edx, 0x535ae0
mov eax, dword [ebp - 0x10]
mov edi, dword [eax]
call dword [edi + 0xc]
lea eax, [ebp - 0x158]
lea ecx, [ebp - 0x148]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
mov eax, dword [ebp - 0x148]
lea edx, [ebp - 0x144]
call sub.rtl70.bpl__Sysutils_Trim_qqrx17System_AnsiString
mov edx, dword [ebp - 0x144]
lea ecx, [ebp - 0x140]
mov eax, dword [esi + 0x28]
call sym.P_Interface.bpl__Unitxmlhttp_TXmlhttp_UTF8ANDURLENCODE_qqrx17System_AnsiString
push dword [ebp - 0x140]
push 0x535a9c
push 0x535b00
lea edx, [ebp - 0x15c]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x15c]
push 0x535a58
lea ecx, [ebp - 0x170]
mov edx, 0x535b0c
mov eax, dword [ebp - 0x10]
mov edi, dword [eax]
call dword [edi + 0xc]
lea eax, [ebp - 0x170]
lea ecx, [ebp - 0x160]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
push dword [ebp - 0x160]
push 0x535a9c
push 0x535b28
lea edx, [ebp - 0x174]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x174]
push 0x535a58
lea ecx, [ebp - 0x188]
mov edx, 0x535b34
mov eax, dword [ebp - 0x10]
mov edi, dword [eax]
call dword [edi + 0xc]
lea eax, [ebp - 0x188]
lea ecx, [ebp - 0x178]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
push dword [ebp - 0x178]
push 0x535a9c
push 0x535b48
lea edx, [ebp - 0x18c]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x18c]
push 0x535a58
lea ecx, [ebp - 0x1a0]
mov edx, 0x535b50
mov eax, dword [ebp - 0x10]
mov edi, dword [eax]
call dword [edi + 0xc]
lea eax, [ebp - 0x1a0]
lea ecx, [ebp - 0x190]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
push dword [ebp - 0x190]
push 0x535a9c
push 0x535b68
lea edx, [ebp - 0x1a4]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x1a4]
push 0x535a58
push 0
push 0
push 0
lea ecx, [ebp - 0x1bc]
mov edx, 0x535b70
mov eax, dword [ebp - 0x10]
mov edi, dword [eax]
call dword [edi + 0xc]
lea eax, [ebp - 0x1bc]
lea ecx, [ebp - 0x1ac]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
mov eax, dword [ebp - 0x1ac]
call sub.rtl70.bpl__Sysutils_StrToFloatDef_qqrx17System_AnsiStringxg
fdiv dword [0x535b80]
add esp, 0xfffffff4
fstp xword [esp]
wait
lea ecx, [ebp - 0x1a8]
mov dl, 1
mov eax, 2
call sub.PCommonUtil.bpl__Ncutil_roundString_qqrxgio
push dword [ebp - 0x1a8]
push 0x535a9c
push 0x535b8c
lea edx, [ebp - 0x1c0]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x1c0]
push 0x535a58
lea ecx, [ebp - 0x1d4]
mov edx, 0x535b94
mov eax, dword [ebp - 0x10]
mov edi, dword [eax]
call dword [edi + 0xc]
lea eax, [ebp - 0x1d4]
lea ecx, [ebp - 0x1c4]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
push dword [ebp - 0x1c4]
push 0x535a9c
push 0x535bb0
lea edx, [ebp - 0x1d8]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x1d8]
push 0x535a58
lea ecx, [ebp - 0x1f4]
mov edx, 0x535bbc
mov eax, dword [ebp - 0x10]
mov edi, dword [eax]
call dword [edi + 0xc]
lea eax, [ebp - 0x1f4]
lea ecx, [ebp - 0x1e4]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
mov eax, dword [ebp - 0x1e4]
lea edx, [ebp - 0x1e0]
call sub.rtl70.bpl__Sysutils_Trim_qqrx17System_AnsiString
mov edx, dword [ebp - 0x1e0]
lea ecx, [ebp - 0x1dc]
mov eax, dword [esi + 0x28]
call sym.P_Interface.bpl__Unitxmlhttp_TXmlhttp_UTF8ANDURLENCODE_qqrx17System_AnsiString
push dword [ebp - 0x1dc]
push 0x535a9c
push 0x535bd0
lea edx, [ebp - 0x1f8]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x1f8]
push 0x535a58
lea ecx, [ebp - 0x210]
mov edx, 0x535bdc
mov eax, dword [ebp - 0x10]
mov edi, dword [eax]
call dword [edi + 0xc]
lea eax, [ebp - 0x210]
lea ecx, [ebp - 0x200]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
mov edx, dword [ebp - 0x200]
lea ecx, [ebp - 0x1fc]
mov eax, dword [esi + 0x28]
call sym.P_Interface.bpl__Unitxmlhttp_TXmlhttp_UTF8ANDURLENCODE_qqrx17System_AnsiString
push dword [ebp - 0x1fc]
push 0x535a9c
push 0x535bf0
lea edx, [ebp - 0x214]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x214]
push 0x535a58
lea ecx, [ebp - 0x22c]
mov edx, 0x535bfc
mov eax, dword [ebp - 0x10]
mov edi, dword [eax]
call dword [edi + 0xc]
lea eax, [ebp - 0x22c]
lea ecx, [ebp - 0x21c]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
mov edx, dword [ebp - 0x21c]
lea ecx, [ebp - 0x218]
mov eax, dword [esi + 0x28]
call sym.P_Interface.bpl__Unitxmlhttp_TXmlhttp_UTF8ANDURLENCODE_qqrx17System_AnsiString
push dword [ebp - 0x218]
push 0x535a9c
push 0x535c10
lea edx, [ebp - 0x230]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x230]
push 0x535a58
lea ecx, [ebp - 0x248]
mov edx, 0x535c1c
mov eax, dword [ebp - 0x10]
mov edi, dword [eax]
call dword [edi + 0xc]
lea eax, [ebp - 0x248]
lea ecx, [ebp - 0x238]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
mov edx, dword [ebp - 0x238]
lea ecx, [ebp - 0x234]
mov eax, dword [esi + 0x28]
call sym.P_Interface.bpl__Unitxmlhttp_TXmlhttp_UTF8ANDURLENCODE_qqrx17System_AnsiString
push dword [ebp - 0x234]
push 0x535a9c
push 0x535c34
lea edx, [ebp - 0x24c]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x24c]
push 0x535c44
lea eax, [ebp - 0x18]
mov edx, 0x43
call sub.rtl70.bpl__System__LStrCatN_qqrv
lea ecx, [ebp - 0x260]
mov edx, 0x535a20
mov eax, dword [ebp - 0x10]
mov edi, dword [eax]
call dword [edi + 0xc]
lea eax, [ebp - 0x260]
lea ecx, [ebp - 0x250]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
mov eax, dword [ebp - 0x250]
mov edx, 0x535c50
call sub.rtl70.bpl__System__LStrCmp_qqrv
jne 0x534971
push dword [ebp - 0x18]
push 0x535c5c
lea edx, [ebp - 0x264]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x264]
push 0x535c6c
lea eax, [ebp - 0x18]
mov edx, 4
call sub.rtl70.bpl__System__LStrCatN_qqrv
lea edx, [ebp - 0x268]
mov eax, dword [ebp - 8]
mov ecx, dword [eax]
call dword [ecx + 0x14]
mov eax, dword [ebp - 0x268]
push eax
lea eax, [ebp - 0x278]
mov edx, dword [ebp - 0x14]
inc edx
mov cl, 0xfc
call sub.rtl70.bpl__Variants__OleVarFromInt_qqrr8TVarDataxixzc
lea edx, [ebp - 0x278]
lea ecx, [ebp - 0x10]
pop eax
mov edi, dword [eax]
call dword [edi + 0x10]
push 0
push 0
push 0
lea ecx, [ebp - 0x28c]
mov edx, 0x535b50
mov eax, dword [ebp - 0x10]
mov edi, dword [eax]
call dword [edi + 0xc]
lea eax, [ebp - 0x28c]
lea ecx, [ebp - 0x27c]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
mov eax, dword [ebp - 0x27c]
call sub.rtl70.bpl__Sysutils_StrToFloatDef_qqrx17System_AnsiStringxg
fld xword [ebp - 0x28]
faddp st(1)
add esp, 0xfffffff4
fstp xword [esp]
wait
mov eax, 2
call sub.PCommonUtil.bpl__Ncutil_round2_qqrxgi
fstp xword [ebp - 0x28]
wait
push 0
push 0
push 0
lea ecx, [ebp - 0x2a0]
mov edx, 0x535b94
mov eax, dword [ebp - 0x10]
mov edi, dword [eax]
call dword [edi + 0xc]
lea eax, [ebp - 0x2a0]
lea ecx, [ebp - 0x290]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
mov eax, dword [ebp - 0x290]
call sub.rtl70.bpl__Sysutils_StrToFloatDef_qqrx17System_AnsiStringxg
fld xword [ebp - 0x38]
faddp st(1)
add esp, 0xfffffff4
fstp xword [esp]
wait
mov eax, 2
call sub.PCommonUtil.bpl__Ncutil_round2_qqrxgi
fstp xword [ebp - 0x38]
wait
push dword [ebp - 0x18]
push 0x535c78
lea edx, [ebp - 0x2a4]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x2a4]
push 0x535a58
lea ecx, [ebp - 0x2bc]
mov edx, 0x535a7c
mov eax, dword [ebp - 0x10]
mov edi, dword [eax]
call dword [edi + 0xc]
lea eax, [ebp - 0x2bc]
lea ecx, [ebp - 0x2ac]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
mov edx, dword [ebp - 0x2ac]
lea ecx, [ebp - 0x2a8]
mov eax, dword [esi + 0x28]
call sym.P_Interface.bpl__Unitxmlhttp_TXmlhttp_UTF8ANDURLENCODE_qqrx17System_AnsiString
push dword [ebp - 0x2a8]
push 0x535a9c
push 0x535c88
lea edx, [ebp - 0x2c0]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x2c0]
push 0x535a58
lea ecx, [ebp - 0x2d4]
mov edx, 0x535b50
mov eax, dword [ebp - 0x10]
mov edi, dword [eax]
call dword [edi + 0xc]
lea eax, [ebp - 0x2d4]
lea ecx, [ebp - 0x2c4]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
push dword [ebp - 0x2c4]
push 0x535a9c
push 0x535c98
lea edx, [ebp - 0x2d8]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x2d8]
push 0x535a58
push 0
push 0
push 0
lea ecx, [ebp - 0x2f0]
mov edx, 0x535b70
mov eax, dword [ebp - 0x10]
mov edi, dword [eax]
call dword [edi + 0xc]
lea eax, [ebp - 0x2f0]
lea ecx, [ebp - 0x2e0]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
mov eax, dword [ebp - 0x2e0]
call sub.rtl70.bpl__Sysutils_StrToFloatDef_qqrx17System_AnsiStringxg
fdiv dword [0x535b80]
add esp, 0xfffffff4
fstp xword [esp]
wait
lea ecx, [ebp - 0x2dc]
mov dl, 1
mov eax, 2
call sub.PCommonUtil.bpl__Ncutil_roundString_qqrxgio
push dword [ebp - 0x2dc]
push 0x535a9c
push 0x535ca8
lea edx, [ebp - 0x2f4]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x2f4]
push 0x535a58
lea ecx, [ebp - 0x308]
mov edx, 0x535b94
mov eax, dword [ebp - 0x10]
mov edi, dword [eax]
call dword [edi + 0xc]
lea eax, [ebp - 0x308]
lea ecx, [ebp - 0x2f8]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
push dword [ebp - 0x2f8]
push 0x535a9c
lea eax, [ebp - 0x18]
mov edx, 0x15
call sub.rtl70.bpl__System__LStrCatN_qqrv
jmp 0x53499e
push dword [ebp - 0x18]
push 0x535c5c
lea edx, [ebp - 0x30c]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x30c]
push 0x535c44
lea eax, [ebp - 0x18]
mov edx, 4
call sub.rtl70.bpl__System__LStrCatN_qqrv
inc ebx
inc dword [ebp - 0x14]
dec dword [ebp - 0x54]
jne 0x534103
lea eax, [ebp - 0x40]
mov edx, 0x535cb8
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
cmp dword [ebp - 0x4c], 1
jne 0x5349ce
mov edx, dword [esi + 0x1c]
lea eax, [ebp - 0x44]
mov ecx, 0x535ce0
call sub.rtl70.bpl__System__LStrCat3_qqrv
cmp dword [ebp - 0x4c], 0
jne 0x5349e4
mov edx, dword [esi + 0x1c]
lea eax, [ebp - 0x44]
mov ecx, 0x535cfc
call sub.rtl70.bpl__System__LStrCat3_qqrv
cmp dword [ebp - 0x4c], 2
jne 0x5349fa
mov edx, dword [esi + 0x1c]
lea eax, [ebp - 0x44]
mov ecx, 0x535d18
call sub.rtl70.bpl__System__LStrCat3_qqrv
push 0
push 0
push 0
lea ecx, [ebp - 0x320]
mov edx, 0x535b50
mov eax, dword [ebp - 4]
mov ebx, dword [eax]
call dword [ebx + 0xc]
lea eax, [ebp - 0x320]
lea ecx, [ebp - 0x310]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
mov eax, dword [ebp - 0x310]
call sub.rtl70.bpl__Sysutils_StrToFloatDef_qqrx17System_AnsiStringxg
fcomp dword [0x535d2c]
fnstsw ax
sahf
jae 0x534c53
lea ecx, [ebp - 0x334]
mov edx, 0x535d34
mov eax, dword [ebp - 4]
mov ebx, dword [eax]
call dword [ebx + 0xc]
lea edx, [ebp - 0x334]
lea eax, [ebp - 0x324]
call sub.rtl70.bpl__Variants__VarToLStr_qqrr17System_AnsiStringrx8TVarData
mov eax, dword [ebp - 0x324]
call sub.rtl70.bpl__System__LStrLen_qqrx17System_AnsiString
cmp eax, 0x14
jne 0x534b47
push 0x535d48
lea eax, [ebp - 0x338]
push eax
lea ecx, [ebp - 0x34c]
mov edx, 0x535d34
mov eax, dword [ebp - 4]
mov ebx, dword [eax]
call dword [ebx + 0xc]
lea eax, [ebp - 0x34c]
lea ecx, [ebp - 0x33c]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
mov eax, dword [ebp - 0x33c]
mov ecx, 0xc
mov edx, 1
call sub.PCommonUtil.bpl__Ncutil_copystr_qqr17System_AnsiStringii
push dword [ebp - 0x338]
push 0x535a9c
push 0x535d58
lea eax, [ebp - 0x350]
push eax
lea ecx, [ebp - 0x364]
mov edx, 0x535d34
mov eax, dword [ebp - 4]
mov ebx, dword [eax]
call dword [ebx + 0xc]
lea eax, [ebp - 0x364]
lea ecx, [ebp - 0x354]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
mov eax, dword [ebp - 0x354]
mov ecx, 8
mov edx, 0xd
call sub.PCommonUtil.bpl__Ncutil_copystr_qqr17System_AnsiStringii
push dword [ebp - 0x350]
push 0x535a9c
push 0x535d68
push 0x535d78
push 0x535d94
push 0x535da4
push 0x535db8
lea eax, [ebp - 0x40]
mov edx, 0xb
call sub.rtl70.bpl__System__LStrCatN_qqrv
jmp 0x534c11
push 0x535d48
lea eax, [ebp - 0x368]
push eax
lea ecx, [ebp - 0x37c]
mov edx, 0x535d34
mov eax, dword [ebp - 4]
mov ebx, dword [eax]
call dword [ebx + 0xc]
lea eax, [ebp - 0x37c]
lea ecx, [ebp - 0x36c]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
mov eax, dword [ebp - 0x36c]
mov ecx, 0xa
mov edx, 1
call sub.PCommonUtil.bpl__Ncutil_copystr_qqr17System_AnsiStringii
push dword [ebp - 0x368]
push 0x535a9c
push 0x535d58
lea eax, [ebp - 0x380]
push eax
lea ecx, [ebp - 0x394]
mov edx, 0x535d34
mov eax, dword [ebp - 4]
mov ebx, dword [eax]
call dword [ebx + 0xc]
lea eax, [ebp - 0x394]
lea ecx, [ebp - 0x384]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
mov eax, dword [ebp - 0x384]
mov ecx, 8
mov edx, 0xb
call sub.PCommonUtil.bpl__Ncutil_copystr_qqr17System_AnsiStringii
push dword [ebp - 0x380]
push 0x535a9c
push 0x535d68
push 0x535d78
push 0x535d94
push 0x535da4
push 0x535db8
lea eax, [ebp - 0x40]
mov edx, 0xb
call sub.rtl70.bpl__System__LStrCatN_qqrv
cmp dword [ebp - 0x4c], 1
jne 0x534c27
mov edx, dword [esi + 0x1c]
lea eax, [ebp - 0x44]
mov ecx, 0x535dc8
call sub.rtl70.bpl__System__LStrCat3_qqrv
cmp dword [ebp - 0x4c], 0
jne 0x534c3d
mov edx, dword [esi + 0x1c]
lea eax, [ebp - 0x44]
mov ecx, 0x535cfc
call sub.rtl70.bpl__System__LStrCat3_qqrv
cmp dword [ebp - 0x4c], 2
jne 0x534c53
mov edx, dword [esi + 0x1c]
lea eax, [ebp - 0x44]
mov ecx, 0x535d18
call sub.rtl70.bpl__System__LStrCat3_qqrv
push 0x4e20
mov eax, dword [esi + 0x28]
mov ecx, dword [ebp - 0x44]
mov edx, 0x535de8
call sym.P_Interface.bpl__Unitxmlhttp_TXmlhttp_open_qqr17System_AnsiStringt1ui
mov eax, dword [esi + 0x28]
mov ecx, 0x535df8
mov edx, 0x535e34
call sym.P_Interface.bpl__Unitxmlhttp_TXmlhttp_setRequestHeader_qqr17System_AnsiStringt1
push 0x535e4c
lea ecx, [ebp - 0x3ac]
mov edx, 0x535e58
mov eax, dword [ebp - 4]
mov ebx, dword [eax]
call dword [ebx + 0xc]
lea eax, [ebp - 0x3ac]
lea ecx, [ebp - 0x39c]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
mov edx, dword [ebp - 0x39c]
lea ecx, [ebp - 0x398]
mov eax, dword [esi + 0x28]
call sym.P_Interface.bpl__Unitxmlhttp_TXmlhttp_UTF8ANDURLENCODE_qqrx17System_AnsiString
push dword [ebp - 0x398]
push 0x535a9c
push 0x535e7c
lea ecx, [ebp - 0x3c4]
mov edx, 0x535e88
mov eax, dword [ebp - 4]
mov ebx, dword [eax]
call dword [ebx + 0xc]
lea eax, [ebp - 0x3c4]
lea ecx, [ebp - 0x3b4]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
mov edx, dword [ebp - 0x3b4]
lea ecx, [ebp - 0x3b0]
mov eax, dword [esi + 0x28]
call sym.P_Interface.bpl__Unitxmlhttp_TXmlhttp_UTF8ANDURLENCODE_qqrx17System_AnsiString
push dword [ebp - 0x3b0]
push 0x535a9c
push 0x535eb0
lea ecx, [ebp - 0x3dc]
mov edx, 0x535ec0
mov eax, dword [ebp - 4]
mov ebx, dword [eax]
call dword [ebx + 0xc]
lea eax, [ebp - 0x3dc]
lea ecx, [ebp - 0x3cc]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
mov edx, dword [ebp - 0x3cc]
lea ecx, [ebp - 0x3c8]
mov eax, dword [esi + 0x28]
call sym.P_Interface.bpl__Unitxmlhttp_TXmlhttp_UTF8ANDURLENCODE_qqrx17System_AnsiString
push dword [ebp - 0x3c8]
push 0x535a9c
push 0x535ee8
lea ecx, [ebp - 0x3f4]
mov edx, 0x535ef8
mov eax, dword [ebp - 4]
mov ebx, dword [eax]
call dword [ebx + 0xc]
lea eax, [ebp - 0x3f4]
lea ecx, [ebp - 0x3e4]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
mov edx, dword [ebp - 0x3e4]
lea ecx, [ebp - 0x3e0]
mov eax, dword [esi + 0x28]
call sym.P_Interface.bpl__Unitxmlhttp_TXmlhttp_UTF8ANDURLENCODE_qqrx17System_AnsiString
push dword [ebp - 0x3e0]
push 0x535a9c
push 0x535f20
push 1
lea eax, [ebp - 0x3fc]
push eax
push 1
lea eax, [ebp - 0x400]
push eax
lea ecx, [ebp - 0x414]
mov edx, 0x535f28
mov eax, dword [ebp - 4]
mov ebx, dword [eax]
call dword [ebx + 0xc]
lea eax, [ebp - 0x414]
lea ecx, [ebp - 0x404]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
mov eax, dword [ebp - 0x404]
xor ecx, ecx
mov edx, 0x535f48
call sub.PCommonUtil.bpl__Ncutil_ReplaceStr_qqr17System_AnsiStringt1t1o
mov eax, dword [ebp - 0x400]
xor ecx, ecx
mov edx, 0x535f54
call sub.PCommonUtil.bpl__Ncutil_ReplaceStr_qqr17System_AnsiStringt1t1o
mov edx, dword [ebp - 0x3fc]
lea ecx, [ebp - 0x3f8]
mov eax, dword [esi + 0x28]
call sym.P_Interface.bpl__Unitxmlhttp_TXmlhttp_UTF8ANDURLENCODE_qqrx17System_AnsiString
push dword [ebp - 0x3f8]
push 0x535a9c
push 0x535f60
lea ecx, [ebp - 0x42c]
mov edx, 0x535f6c
mov eax, dword [ebp - 4]
mov ebx, dword [eax]
call dword [ebx + 0xc]
lea eax, [ebp - 0x42c]
lea ecx, [ebp - 0x41c]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
mov edx, dword [ebp - 0x41c]
lea ecx, [ebp - 0x418]
mov eax, dword [esi + 0x28]
call sym.P_Interface.bpl__Unitxmlhttp_TXmlhttp_UTF8ANDURLENCODE_qqrx17System_AnsiString
push dword [ebp - 0x418]
push 0x535a9c
push 0x535f7c
lea ecx, [ebp - 0x444]
mov edx, 0x535f88
mov eax, dword [ebp - 4]
mov ebx, dword [eax]
call dword [ebx + 0xc]
lea eax, [ebp - 0x444]
lea ecx, [ebp - 0x434]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
mov edx, dword [ebp - 0x434]
lea ecx, [ebp - 0x430]
mov eax, dword [esi + 0x28]
call sym.P_Interface.bpl__Unitxmlhttp_TXmlhttp_UTF8ANDURLENCODE_qqrx17System_AnsiString
push dword [ebp - 0x430]
push 0x535a9c
push 0x535f98
lea ecx, [ebp - 0x45c]
mov edx, 0x535fa4
mov eax, dword [ebp - 4]
mov ebx, dword [eax]
call dword [ebx + 0xc]
lea eax, [ebp - 0x45c]
lea ecx, [ebp - 0x44c]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
mov edx, dword [ebp - 0x44c]
lea ecx, [ebp - 0x448]
mov eax, dword [esi + 0x28]
call sym.P_Interface.bpl__Unitxmlhttp_TXmlhttp_UTF8ANDURLENCODE_qqrx17System_AnsiString
push dword [ebp - 0x448]
push 0x535a9c
push 0x535fb4
mov ax, word [ebp - 0x20]
push eax
push dword [ebp - 0x24]
push dword [ebp - 0x28]
lea ecx, [ebp - 0x460]
mov dl, 1
mov eax, 2
call sub.PCommonUtil.bpl__Ncutil_roundString_qqrxgio
push dword [ebp - 0x460]
push 0x535a9c
push 0x535fc4
mov ax, word [ebp - 0x30]
push eax
push dword [ebp - 0x34]
push dword [ebp - 0x38]
lea ecx, [ebp - 0x464]
mov dl, 1
mov eax, 2
call sub.PCommonUtil.bpl__Ncutil_roundString_qqrxgio
push dword [ebp - 0x464]
push 0x535a9c
push 0x535fd4
lea ecx, [ebp - 0x478]
mov edx, 0x535b50
mov eax, dword [ebp - 4]
mov ebx, dword [eax]
call dword [ebx + 0xc]
lea eax, [ebp - 0x478]
lea ecx, [ebp - 0x468]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
push dword [ebp - 0x468]
push 0x535a9c
push 0x535fe4
lea ecx, [ebp - 0x48c]
mov edx, 0x535b94
mov eax, dword [ebp - 4]
mov ebx, dword [eax]
call dword [ebx + 0xc]
lea eax, [ebp - 0x48c]
lea ecx, [ebp - 0x47c]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
push dword [ebp - 0x47c]
push 0x535a9c
push 0x535ff4
lea ecx, [ebp - 0x4a0]
mov edx, 0x536000
mov eax, dword [ebp - 4]
mov ebx, dword [eax]
call dword [ebx + 0xc]
lea eax, [ebp - 0x4a0]
lea ecx, [ebp - 0x490]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
push dword [ebp - 0x490]
push 0x535a9c
push 0x536020
push 0x536030
push 0x536040
push 0x536054
push 0x536068
push 0x53607c
push 0x53608c
push 0x5360a0
push 0x5360b0
lea ecx, [ebp - 0x4a4]
mov eax, dword [esi + 0x28]
mov edx, dword [ebp - 0x48]
call sym.P_Interface.bpl__Unitxmlhttp_TXmlhttp_UTF8ANDURLENCODE_qqrx17System_AnsiString
push dword [ebp - 0x4a4]
push 0x535a9c
push 0x5360c0
lea ecx, [ebp - 0x4b8]
mov edx, 0x5360cc
mov eax, dword [ebp - 4]
mov ebx, dword [eax]
call dword [ebx + 0xc]
lea eax, [ebp - 0x4b8]
lea ecx, [ebp - 0x4a8]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
push dword [ebp - 0x4a8]
push 0x535a9c
push dword [ebp - 0x40]
push 0x5360e0
push 0
push 0
push 0
lea ecx, [ebp - 0x4d0]
mov edx, 0x535b70
mov eax, dword [ebp - 0x10]
mov ebx, dword [eax]
call dword [ebx + 0xc]
lea eax, [ebp - 0x4d0]
lea ecx, [ebp - 0x4c0]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
mov eax, dword [ebp - 0x4c0]
call sub.rtl70.bpl__Sysutils_StrToFloatDef_qqrx17System_AnsiStringxg
fdiv dword [0x535b80]
add esp, 0xfffffff4
fstp xword [esp]
wait
lea ecx, [ebp - 0x4bc]
mov dl, 1
mov eax, 2
call sub.PCommonUtil.bpl__Ncutil_roundString_qqrxgio
push dword [ebp - 0x4bc]
push 0x535a9c
push dword [ebp - 0x18]
lea eax, [ebp - 0x50]
mov edx, 0x3a
call sub.rtl70.bpl__System__LStrCatN_qqrv
lea eax, [ebp - 0x4d4]
push eax
mov eax, dword [esi + 0x28]
mov cl, 1
mov edx, dword [ebp - 0x50]
call sym.P_Interface.bpl__Unitxmlhttp_TXmlhttp_send_qqr17System_AnsiStringo
mov eax, dword [ebp - 0x3c]
mov edx, dword [eax]
call dword [edx + 0x44]
mov edx, dword [ebp - 0x50]
mov eax, dword [ebp - 0x3c]
mov ecx, dword [eax]
call dword [ecx + 0x38]
lea edx, [ebp - 0x4dc]
mov eax, dword [sym.imp.vcl70.bpl__Forms_Application]
mov eax, dword [eax]
call sub.vcl70.bpl__Forms_TApplication_GetExeName_qqrv
mov eax, dword [ebp - 0x4dc]
lea edx, [ebp - 0x4d8]
call sub.rtl70.bpl__Sysutils_ExtractFilePath_qqrx17System_AnsiString
lea eax, [ebp - 0x4d8]
mov edx, 0x5360f0
call sub.rtl70.bpl__System__LStrCat_qqrv
mov edx, dword [ebp - 0x4d8]
mov eax, dword [ebp - 0x3c]
mov ecx, dword [eax]
call dword [ecx + 0x74]
mov eax, dword [ebp - 0x3c]
mov edx, dword [eax]
call dword [edx + 0x44]
mov eax, dword [esi + 0x28]
mov edx, dword [eax + 0x18]
mov eax, dword [ebp - 0x3c]
mov ecx, dword [eax]
call dword [ecx + 0x38]
lea edx, [ebp - 0x4e4]
mov eax, dword [sym.imp.vcl70.bpl__Forms_Application]
mov eax, dword [eax]
call sub.vcl70.bpl__Forms_TApplication_GetExeName_qqrv
mov eax, dword [ebp - 0x4e4]
lea edx, [ebp - 0x4e0]
call sub.rtl70.bpl__Sysutils_ExtractFilePath_qqrx17System_AnsiString
lea eax, [ebp - 0x4e0]
mov edx, 0x536104
call sub.rtl70.bpl__System__LStrCat_qqrv
mov edx, dword [ebp - 0x4e0]
mov eax, dword [ebp - 0x3c]
mov ecx, dword [eax]
call dword [ecx + 0x74]
mov eax, dword [esi + 0x28]
mov edx, dword [eax + 0x18]
mov eax, 0x53611c
call sub.rtl70.bpl__System__LStrPos_qqrv
test eax, eax
jle 0x5353e4
lea eax, [ebp - 0x18]
mov edx, dword [esi + 0x28]
mov edx, dword [edx + 0x18]
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
mov eax, dword [ebp - 0x3c]
mov edx, dword [eax]
call dword [edx + 0x44]
mov edx, dword [ebp - 0x18]
mov eax, dword [ebp - 0x3c]
mov ecx, dword [eax]
call dword [ecx + 0x38]
lea eax, [ebp - 0x4e8]
push eax
mov edx, dword [ebp - 0x18]
mov eax, 0x536134
call sub.rtl70.bpl__System__LStrPos_qqrv
mov edx, eax
add edx, 9
xor ecx, ecx
mov eax, dword [ebp - 0x18]
call sub.PCommonUtil.bpl__Ncutil_copystr_qqr17System_AnsiStringii
mov edx, dword [ebp - 0x4e8]
lea eax, [ebp - 0x18]
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
mov eax, dword [ebp + 0xc]
push eax
mov edx, dword [ebp - 0x18]
mov eax, 0x536148
call sub.rtl70.bpl__System__LStrPos_qqrv
mov ecx, eax
dec ecx
mov edx, 1
mov eax, dword [ebp - 0x18]
call sub.rtl70.bpl__System__LStrCopy_qqrv
lea eax, [ebp - 0x4ec]
push eax
mov edx, dword [ebp - 0x18]
mov eax, 0x536154
call sub.rtl70.bpl__System__LStrPos_qqrv
mov edx, eax
add edx, 9
xor ecx, ecx
mov eax, dword [ebp - 0x18]
call sub.PCommonUtil.bpl__Ncutil_copystr_qqr17System_AnsiStringii
mov edx, dword [ebp - 0x4ec]
lea eax, [ebp - 0x18]
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
lea eax, [ebp - 0x4f0]
push eax
mov edx, dword [ebp - 0x18]
mov eax, 0x536148
call sub.rtl70.bpl__System__LStrPos_qqrv
mov ecx, eax
dec ecx
mov edx, 1
mov eax, dword [ebp - 0x18]
call sub.rtl70.bpl__System__LStrCopy_qqrv
mov edx, dword [ebp - 0x4f0]
mov eax, dword [ebp + 0xc]
call sub.rtl70.bpl__System__LStrCat_qqrv
mov eax, dword [ebp + 0xc]
lea eax, [ebp - 0x4f4]
push eax
mov edx, dword [ebp - 0x18]
mov eax, 0x536168
call sub.rtl70.bpl__System__LStrPos_qqrv
mov edx, eax
add edx, 9
xor ecx, ecx
mov eax, dword [ebp - 0x18]
call sub.PCommonUtil.bpl__Ncutil_copystr_qqr17System_AnsiStringii
mov edx, dword [ebp - 0x4f4]
lea eax, [ebp - 0x18]
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
mov eax, dword [ebp + 8]
push eax
mov edx, dword [ebp - 0x18]
mov eax, 0x536148
call sub.rtl70.bpl__System__LStrPos_qqrv
mov ecx, eax
dec ecx
mov edx, 1
mov eax, dword [ebp - 0x18]
call sub.rtl70.bpl__System__LStrCopy_qqrv
lea eax, [ebp - 0x4f8]
push eax
mov eax, dword [ebp + 8]
mov eax, dword [eax]
mov ecx, 8
mov edx, 1
call sub.PCommonUtil.bpl__Ncutil_copystr_qqr17System_AnsiStringii
mov edx, dword [ebp - 0x4f8]
mov eax, dword [ebp + 8]
call sub.rtl70.bpl__System__LStrAsg_qqrpvpxv
lea eax, [ebp - 0x4fc]
push eax
mov eax, dword [ebp + 8]
mov eax, dword [eax]
mov ecx, 4
mov edx, 1
call sub.rtl70.bpl__System__LStrCopy_qqrv
push dword [ebp - 0x4fc]
push 0x53617c
lea eax, [ebp - 0x500]
push eax
mov eax, dword [ebp + 8]
mov eax, dword [eax]
mov ecx, 2
mov edx, 5
call sub.rtl70.bpl__System__LStrCopy_qqrv
push dword [ebp - 0x500]
push 0x53617c
lea eax, [ebp - 0x504]
push eax
mov eax, dword [ebp + 8]
mov eax, dword [eax]
mov ecx, 2
mov edx, 7
call sub.rtl70.bpl__System__LStrCopy_qqrv
push dword [ebp - 0x504]
mov eax, dword [ebp + 8]
mov edx, 5
call sub.rtl70.bpl__System__LStrCatN_qqrv
lea edx, [ebp - 0x50c]
mov eax, dword [sym.P_Interface.bpl__Publicutil_GL_ExeName]
mov eax, dword [eax]
call sub.rtl70.bpl__Sysutils_ExtractFilePath_qqrx17System_AnsiString
push dword [ebp - 0x50c]
push 0x536188
mov eax, dword [ebp + 0xc]
push dword [eax]
push 0x53619c
lea eax, [ebp - 0x508]
mov edx, 4
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x508]
mov eax, dword [ebp - 0x3c]
mov ecx, dword [eax]
call dword [ecx + 0x74]
mov byte [ebp - 9], 1
jmp 0x5353ef
mov eax, dword [esi + 0x28]
mov eax, dword [eax + 0x18]
call sub.vcl70.bpl__Dialogs_ShowMessage_qqrx17System_AnsiString
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x535417
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x535434
mov eax, dword [ebp - 0x3c]
call sub.rtl70.bpl__System_TObject_Free_qqrv
ret