Function at 0x5769b4
Capabilities:
Create directory

Disassembly:
push ebp
mov ebp, esp
push ecx
mov ecx, 0xa1
push 0
push 0
dec ecx
jne 0x5769bd
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 0x578460
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 0x577f1a
push dword fs:[edx]
mov dword fs:[edx], esp
xor edx, edx
push ebp
push 0x577ee6
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, 0x578480
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, 0x57848c
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, 0x5784a0
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
lea ecx, [ebp - 0x70]
mov edx, 0x5784a8
mov eax, dword [ebp - 4]
mov edi, dword [eax]
call dword [edi + 0xc]
lea eax, [ebp - 0x70]
lea ecx, [ebp - 0x60]
mov edx, 0x5784bc
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 0x576b7a
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, 0x5784c4
mov eax, dword [ebp - 4]
mov edi, dword [eax]
call dword [edi + 0xc]
lea eax, [ebp - 0x88]
lea ecx, [ebp - 0x78]
mov edx, 0x5784bc
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 0x576b35
lea eax, [ebp - 0x48]
mov edx, 0x5784e0
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
lea ecx, [ebp - 0x9c]
mov edx, 0x5784e8
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, 0x578504
call sub.rtl70.bpl__System__LStrCmp_qqrv
jne 0x576b7a
lea eax, [ebp - 0x48]
mov edx, 0x5784e0
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, 0x5784c4
mov eax, dword [ebp - 4]
mov edi, dword [eax]
call dword [edi + 0xc]
lea eax, [ebp - 0xb4]
lea ecx, [ebp - 0xa4]
mov edx, 0x5784bc
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 0x577487
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, 0x57850c
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, 0x578528
call sub.rtl70.bpl__System__LStrCmp_qqrv
je 0x57747b
push dword [ebp - 0x18]
push 0x578534
lea edx, [ebp - 0xe0]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0xe0]
push 0x578544
push 0x578550
lea ecx, [ebp - 0xfc]
mov edx, 0x578558
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 0x578550
lea ecx, [ebp - 0x118]
mov edx, 0x578568
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 0x578588
push 0x578594
lea edx, [ebp - 0x11c]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x11c]
push 0x578544
lea ecx, [ebp - 0x138]
mov edx, 0x5785a0
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 0x578588
push 0x5785c4
lea edx, [ebp - 0x13c]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x13c]
push 0x578544
lea ecx, [ebp - 0x158]
mov edx, 0x5785cc
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 0x578588
push 0x5785ec
lea edx, [ebp - 0x15c]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x15c]
push 0x578544
lea ecx, [ebp - 0x170]
mov edx, 0x5785f8
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 0x578588
push 0x578614
lea edx, [ebp - 0x174]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x174]
push 0x578544
lea ecx, [ebp - 0x188]
mov edx, 0x578620
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 0x578588
push 0x578634
lea edx, [ebp - 0x18c]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x18c]
push 0x578544
lea ecx, [ebp - 0x1a0]
mov edx, 0x57863c
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 0x578588
push 0x578654
lea edx, [ebp - 0x1a4]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x1a4]
push 0x578544
push 0
push 0
push 0
lea ecx, [ebp - 0x1bc]
mov edx, 0x57865c
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 [0x57866c]
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 0x578588
push 0x578678
lea edx, [ebp - 0x1c0]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x1c0]
push 0x578544
lea ecx, [ebp - 0x1d4]
mov edx, 0x578680
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 0x578588
push 0x57869c
lea edx, [ebp - 0x1d8]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x1d8]
push 0x578544
lea ecx, [ebp - 0x1f4]
mov edx, 0x5786a8
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 0x578588
push 0x5786bc
lea edx, [ebp - 0x1f8]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x1f8]
push 0x578544
lea ecx, [ebp - 0x210]
mov edx, 0x5786c8
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 0x578588
push 0x5786dc
lea edx, [ebp - 0x214]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x214]
push 0x578544
lea ecx, [ebp - 0x22c]
mov edx, 0x5786e8
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 0x578588
push 0x5786fc
lea edx, [ebp - 0x230]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x230]
push 0x578544
lea ecx, [ebp - 0x248]
mov edx, 0x578708
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 0x578588
push 0x578720
lea edx, [ebp - 0x24c]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x24c]
push 0x578730
lea eax, [ebp - 0x18]
mov edx, 0x43
call sub.rtl70.bpl__System__LStrCatN_qqrv
lea ecx, [ebp - 0x260]
mov edx, 0x57850c
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, 0x57873c
call sub.rtl70.bpl__System__LStrCmp_qqrv
jne 0x57744d
push dword [ebp - 0x18]
push 0x578748
lea edx, [ebp - 0x264]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x264]
push 0x578758
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, 0x57863c
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, 0x578680
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 0x578764
lea edx, [ebp - 0x2a4]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x2a4]
push 0x578544
lea ecx, [ebp - 0x2bc]
mov edx, 0x578568
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 0x578588
push 0x578774
lea edx, [ebp - 0x2c0]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x2c0]
push 0x578544
lea ecx, [ebp - 0x2d4]
mov edx, 0x57863c
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 0x578588
push 0x578784
lea edx, [ebp - 0x2d8]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x2d8]
push 0x578544
push 0
push 0
push 0
lea ecx, [ebp - 0x2f0]
mov edx, 0x57865c
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 [0x57866c]
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 0x578588
push 0x578794
lea edx, [ebp - 0x2f4]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x2f4]
push 0x578544
lea ecx, [ebp - 0x308]
mov edx, 0x578680
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 0x578588
lea eax, [ebp - 0x18]
mov edx, 0x15
call sub.rtl70.bpl__System__LStrCatN_qqrv
jmp 0x57747a
push dword [ebp - 0x18]
push 0x578748
lea edx, [ebp - 0x30c]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x30c]
push 0x578730
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 0x576bdf
lea eax, [ebp - 0x40]
mov edx, 0x5787a4
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
cmp dword [ebp - 0x4c], 1
jne 0x5774aa
mov edx, dword [esi + 0x1c]
lea eax, [ebp - 0x44]
mov ecx, 0x5787cc
call sub.rtl70.bpl__System__LStrCat3_qqrv
cmp dword [ebp - 0x4c], 0
jne 0x5774c0
mov edx, dword [esi + 0x1c]
lea eax, [ebp - 0x44]
mov ecx, 0x5787e8
call sub.rtl70.bpl__System__LStrCat3_qqrv
cmp dword [ebp - 0x4c], 2
jne 0x5774d6
mov edx, dword [esi + 0x1c]
lea eax, [ebp - 0x44]
mov ecx, 0x578804
call sub.rtl70.bpl__System__LStrCat3_qqrv
push 0
push 0
push 0
lea ecx, [ebp - 0x320]
mov edx, 0x57863c
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 [0x578818]
fnstsw ax
sahf
jae 0x57772f
lea ecx, [ebp - 0x334]
mov edx, 0x578820
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 0x577623
push 0x578834
lea eax, [ebp - 0x338]
push eax
lea ecx, [ebp - 0x34c]
mov edx, 0x578820
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 0x578588
push 0x578844
lea eax, [ebp - 0x350]
push eax
lea ecx, [ebp - 0x364]
mov edx, 0x578820
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 0x578588
push 0x578854
push 0x578864
push 0x578880
push 0x578890
push 0x5788a4
lea eax, [ebp - 0x40]
mov edx, 0xb
call sub.rtl70.bpl__System__LStrCatN_qqrv
jmp 0x5776ed
push 0x578834
lea eax, [ebp - 0x368]
push eax
lea ecx, [ebp - 0x37c]
mov edx, 0x578820
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 0x578588
push 0x578844
lea eax, [ebp - 0x380]
push eax
lea ecx, [ebp - 0x394]
mov edx, 0x578820
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 0x578588
push 0x578854
push 0x578864
push 0x578880
push 0x578890
push 0x5788a4
lea eax, [ebp - 0x40]
mov edx, 0xb
call sub.rtl70.bpl__System__LStrCatN_qqrv
cmp dword [ebp - 0x4c], 1
jne 0x577703
mov edx, dword [esi + 0x1c]
lea eax, [ebp - 0x44]
mov ecx, 0x5788b4
call sub.rtl70.bpl__System__LStrCat3_qqrv
cmp dword [ebp - 0x4c], 0
jne 0x577719
mov edx, dword [esi + 0x1c]
lea eax, [ebp - 0x44]
mov ecx, 0x5787e8
call sub.rtl70.bpl__System__LStrCat3_qqrv
cmp dword [ebp - 0x4c], 2
jne 0x57772f
mov edx, dword [esi + 0x1c]
lea eax, [ebp - 0x44]
mov ecx, 0x578804
call sub.rtl70.bpl__System__LStrCat3_qqrv
push 0x13880
mov eax, dword [esi + 0x28]
mov ecx, dword [ebp - 0x44]
mov edx, 0x5788d4
call sym.P_Interface.bpl__Unitxmlhttp_TXmlhttp_open_qqr17System_AnsiStringt1i
mov eax, dword [esi + 0x28]
mov ecx, 0x5788e4
mov edx, 0x578920
call sym.P_Interface.bpl__Unitxmlhttp_TXmlhttp_setRequestHeader_qqr17System_AnsiStringt1
push 0x578938
lea ecx, [ebp - 0x3ac]
mov edx, 0x578944
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 0x578588
push 0x578968
lea ecx, [ebp - 0x3c4]
mov edx, 0x578974
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 0x578588
push 0x57899c
lea ecx, [ebp - 0x3dc]
mov edx, 0x5789ac
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 0x578588
push 0x5789d4
lea ecx, [ebp - 0x3f4]
mov edx, 0x5789e4
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 0x578588
push 0x578a0c
push 1
lea eax, [ebp - 0x3fc]
push eax
push 1
lea eax, [ebp - 0x400]
push eax
lea ecx, [ebp - 0x414]
mov edx, 0x578a14
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, 0x578a34
call sub.PCommonUtil.bpl__Ncutil_ReplaceStr_qqr17System_AnsiStringt1t1o
mov eax, dword [ebp - 0x400]
xor ecx, ecx
mov edx, 0x578a40
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 0x578588
push 0x578a4c
lea ecx, [ebp - 0x42c]
mov edx, 0x578a58
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 0x578588
push 0x578a68
lea ecx, [ebp - 0x444]
mov edx, 0x578a74
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 0x578588
push 0x578a84
lea ecx, [ebp - 0x45c]
mov edx, 0x578a90
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 0x578588
push 0x578aa0
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 0x578588
push 0x578ab0
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 0x578588
push 0x578ac0
lea ecx, [ebp - 0x478]
mov edx, 0x57863c
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 0x578588
push 0x578ad0
lea ecx, [ebp - 0x48c]
mov edx, 0x578680
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 0x578588
push 0x578ae0
lea ecx, [ebp - 0x4a0]
mov edx, 0x578aec
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 0x578588
push 0x578b0c
push 0x578b1c
push 0x578b2c
push 0x578b40
push 0x578b54
push 0x578b68
push 0x578b78
push 0x578b8c
push 0x578b9c
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 0x578588
push 0x578bac
lea ecx, [ebp - 0x4b8]
mov edx, 0x578bb8
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 0x578588
push dword [ebp - 0x40]
push 0x578bcc
push 0
push 0
push 0
lea ecx, [ebp - 0x4d0]
mov edx, 0x57865c
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 [0x57866c]
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 0x578588
push dword [ebp - 0x18]
lea eax, [ebp - 0x50]
mov edx, 0x3a
call sub.rtl70.bpl__System__LStrCatN_qqrv
push 1
lea eax, [ebp - 0x4d4]
push eax
mov eax, dword [ebp - 0x50]
call sub.rtl70.bpl__System__LStrLen_qqrx17System_AnsiString
push eax
mov eax, dword [ebp - 0x50]
call sub.rtl70.bpl__System__LStrToPChar_qqrx17System_AnsiString
mov edx, eax
mov eax, dword [esi + 0x28]
pop ecx
call sym.P_Interface.bpl__Unitxmlhttp_TXmlhttp_send_qqrpcio
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, 0x578bdc
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, 0x578bf0
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, 0x578c08
call sub.rtl70.bpl__System__LStrPos_qqrv
test eax, eax
jle 0x577ed1
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, 0x578c20
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, 0x578c34
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, 0x578c40
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, 0x578c34
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, 0x578c54
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, 0x578c34
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 0x578c68
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 0x578c68
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 0x578c74
mov eax, dword [ebp + 0xc]
push dword [eax]
push 0x578c88
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 0x577edc
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 0x577f04
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x577f21
mov eax, dword [ebp - 0x3c]
call sub.rtl70.bpl__System_TObject_Free_qqrv
ret