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

Disassembly:
push ebp
mov ebp, esp
push ecx
mov ecx, 0xd7
push 0
push 0
dec ecx
jne 0x5711fd
push ecx
xchg dword [ebp - 4], ecx
push ebx
push esi
push edi
mov dword [ebp - 8], ecx
mov dword [ebp - 4], edx
mov ebx, 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 0x57322b
push dword fs:[eax]
mov dword fs:[eax], esp
mov dl, 1
mov eax, dword [sym.imp.PCommonUtil.bpl__Base64_TBase64_]
call sub.rtl70.bpl__System_TObject__bctr_qqrv
mov dword [ebp - 0x10], eax
lea edx, [ebp - 0x6c]
mov eax, 0x57324c
call sub.rtl70.bpl__Comobj_CreateOleObject_qqrx17System_AnsiString
mov edx, dword [ebp - 0x6c]
lea eax, [ebp - 0x68]
call sub.rtl70.bpl__Variants__VarFromDisp_qqrr8TVarDatax36System__DelphiInterface_t9IDispatch_
xor ecx, ecx
mov dl, 1
mov eax, dword [sym.imp.xmlrtl70.bpl__Xmldoc_TXMLDocument_]
call sub.xmlrtl70.bpl__Xmldoc_TXMLDocument__bctr_qqrp18Classes_TComponent
mov edx, eax
test edx, edx
je 0x571272
sub edx, 0xffffff34
lea eax, [ebp - 0x14]
call sub.rtl70.bpl__System__IntfCopy_qqrr45System__DelphiInterface_t17System_IInterface_x45System__DelphiInterface_t17System_IInter
xor ecx, ecx
mov dl, 1
mov eax, dword [sym.imp.xmlrtl70.bpl__Xmldoc_TXMLDocument_]
call sub.xmlrtl70.bpl__Xmldoc_TXMLDocument__bctr_qqrp18Classes_TComponent
mov edx, eax
test edx, edx
je 0x571294
sub edx, 0xffffff34
lea eax, [ebp - 0x18]
call sub.rtl70.bpl__System__IntfCopy_qqrr45System__DelphiInterface_t17System_IInterface_x45System__DelphiInterface_t17System_IInter
xor ecx, ecx
mov dl, 1
mov eax, dword [sym.imp.adortl70.bpl__Adodb_TADOQuery_]
call sub.adortl70.bpl__Adodb_TADOQuery__bctr_qqrp18Classes_TComponent
mov dword [ebp - 0x58], eax
xor eax, eax
push ebp
push 0x572ad4
push dword fs:[eax]
mov dword fs:[eax], esp
mov byte [ebp - 9], 0
mov dl, 1
mov eax, dword [ebp - 0x14]
mov ecx, dword [eax]
call dword [ecx + 0x4c]
mov edx, 0x573268
mov eax, dword [ebp - 0x14]
mov ecx, dword [eax]
call dword [ecx + 0x58]
lea ecx, [ebp - 0x20]
mov edx, 0x573278
mov eax, dword [ebp - 0x14]
mov esi, dword [eax]
call dword [esi + 0x78]
lea eax, [ebp - 0x7c]
xor edx, edx
call sub.rtl70.bpl__Variants__OleVarFromLStr_qqrr8TVarDatax17System_AnsiString
lea ecx, [ebp - 0x7c]
mov edx, 0x573290
mov eax, dword [ebp - 0x20]
mov esi, dword [eax]
call dword [esi + 0x58]
lea eax, [ebp - 0x8c]
mov edx, 0x5732a4
call sub.rtl70.bpl__Variants__OleVarFromLStr_qqrr8TVarDatax17System_AnsiString
lea ecx, [ebp - 0x8c]
mov edx, 0x5732d4
mov eax, dword [ebp - 0x20]
mov esi, dword [eax]
call dword [esi + 0x58]
lea eax, [ebp - 0x9c]
mov edx, 0x5732f0
call sub.rtl70.bpl__Variants__OleVarFromLStr_qqrr8TVarDatax17System_AnsiString
lea ecx, [ebp - 0x9c]
mov edx, 0x573330
mov eax, dword [ebp - 0x20]
mov esi, dword [eax]
call dword [esi + 0x58]
lea eax, [ebp - 0xac]
mov edx, 0x573360
call sub.rtl70.bpl__Variants__OleVarFromLStr_qqrr8TVarDatax17System_AnsiString
lea ecx, [ebp - 0xac]
mov edx, 0x57336c
mov eax, dword [ebp - 0x20]
mov esi, dword [eax]
call dword [esi + 0x58]
lea eax, [ebp - 0x24]
push eax
or ecx, 0xffffffff
mov edx, 0x573380
mov eax, dword [ebp - 0x20]
mov esi, dword [eax]
call dword [esi + 0x6c]
lea eax, [ebp - 0xb0]
push eax
or ecx, 0xffffffff
mov edx, 0x57339c
mov eax, dword [ebp - 0x24]
mov esi, dword [eax]
call dword [esi + 0x6c]
mov eax, dword [ebp - 0xb0]
push eax
mov al, 0x31
mov byte [ebp - 0xc3], al
mov byte [ebp - 0xc4], 1
lea eax, [ebp - 0xc0]
lea edx, [ebp - 0xc4]
call sub.rtl70.bpl__Variants__OleVarFromPStr_qqrr8TVarDatarx28System__SmallString_iuc_255_
lea edx, [ebp - 0xc0]
pop eax
mov ecx, dword [eax]
call dword [ecx + 0x60]
lea eax, [ebp - 0xc8]
push eax
or ecx, 0xffffffff
mov edx, 0x5733bc
mov eax, dword [ebp - 0x24]
mov esi, dword [eax]
call dword [esi + 0x6c]
mov eax, dword [ebp - 0xc8]
push eax
lea eax, [ebp - 0xd8]
mov edx, 0x5733d0
call sub.rtl70.bpl__Variants__OleVarFromLStr_qqrr8TVarDatax17System_AnsiString
lea edx, [ebp - 0xd8]
pop eax
mov ecx, dword [eax]
call dword [ecx + 0x60]
lea eax, [ebp - 0xdc]
push eax
or ecx, 0xffffffff
mov edx, 0x57336c
mov eax, dword [ebp - 0x24]
mov esi, dword [eax]
call dword [esi + 0x6c]
mov eax, dword [ebp - 0xdc]
push eax
lea eax, [ebp - 0xec]
mov edx, 0x5733e0
call sub.rtl70.bpl__Variants__OleVarFromLStr_qqrr8TVarDatax17System_AnsiString
lea edx, [ebp - 0xec]
pop eax
mov ecx, dword [eax]
call dword [ecx + 0x60]
lea eax, [ebp - 0xf0]
push eax
or ecx, 0xffffffff
mov edx, 0x5733e8
mov eax, dword [ebp - 0x24]
mov esi, dword [eax]
call dword [esi + 0x6c]
mov eax, dword [ebp - 0xf0]
push eax
lea eax, [ebp - 0x100]
mov edx, 0x57340c
call sub.rtl70.bpl__Variants__OleVarFromLStr_qqrr8TVarDatax17System_AnsiString
lea edx, [ebp - 0x100]
pop eax
mov ecx, dword [eax]
call dword [ecx + 0x60]
lea eax, [ebp - 0x104]
push eax
or ecx, 0xffffffff
mov edx, 0x573424
mov eax, dword [ebp - 0x24]
mov esi, dword [eax]
call dword [esi + 0x6c]
mov eax, dword [ebp - 0x104]
push eax
lea eax, [ebp - 0x114]
mov edx, dword [ebx + 0x64]
call sub.rtl70.bpl__Variants__OleVarFromLStr_qqrr8TVarDatax17System_AnsiString
lea edx, [ebp - 0x114]
pop eax
mov ecx, dword [eax]
call dword [ecx + 0x60]
lea eax, [ebp - 0x118]
push eax
or ecx, 0xffffffff
mov edx, 0x57343c
mov eax, dword [ebp - 0x24]
mov esi, dword [eax]
call dword [esi + 0x6c]
mov eax, dword [ebp - 0x118]
push eax
lea eax, [ebp - 0x128]
mov edx, dword [ebx + 0x6c]
call sub.rtl70.bpl__Variants__OleVarFromLStr_qqrr8TVarDatax17System_AnsiString
lea edx, [ebp - 0x128]
pop eax
mov ecx, dword [eax]
call dword [ecx + 0x60]
lea eax, [ebp - 0x12c]
push eax
or ecx, 0xffffffff
mov edx, 0x573454
mov eax, dword [ebp - 0x24]
mov esi, dword [eax]
call dword [esi + 0x6c]
mov eax, dword [ebp - 0x12c]
push eax
lea eax, [ebp - 0x13c]
mov edx, dword [ebx + 0x64]
call sub.rtl70.bpl__Variants__OleVarFromLStr_qqrr8TVarDatax17System_AnsiString
lea edx, [ebp - 0x13c]
pop eax
mov ecx, dword [eax]
call dword [ecx + 0x60]
lea eax, [ebp - 0x140]
push eax
or ecx, 0xffffffff
mov edx, 0x573470
mov eax, dword [ebp - 0x24]
mov esi, dword [eax]
call dword [esi + 0x6c]
mov eax, dword [ebp - 0x140]
push eax
call sub.rtl70.bpl__Sysutils_Now_qqrv
add esp, 0xfffffff8
fstp qword [esp]
wait
lea edx, [ebp - 0x154]
mov eax, 0x573490
call sub.rtl70.bpl__Sysutils_FormatDateTime_qqrx17System_AnsiString16System_TDateTime
mov edx, dword [ebp - 0x154]
lea eax, [ebp - 0x150]
call sub.rtl70.bpl__Variants__OleVarFromLStr_qqrr8TVarDatax17System_AnsiString
lea edx, [ebp - 0x150]
pop eax
mov ecx, dword [eax]
call dword [ecx + 0x60]
lea eax, [ebp - 0x158]
push eax
or ecx, 0xffffffff
mov edx, 0x5734a8
mov eax, dword [ebp - 0x24]
mov esi, dword [eax]
call dword [esi + 0x6c]
mov eax, dword [ebp - 0x158]
push eax
lea eax, [ebp - 0x168]
mov edx, dword [ebx + 0x5c]
call sub.rtl70.bpl__Variants__OleVarFromLStr_qqrr8TVarDatax17System_AnsiString
lea edx, [ebp - 0x168]
pop eax
mov ecx, dword [eax]
call dword [ecx + 0x60]
lea eax, [ebp - 0x16c]
push eax
or ecx, 0xffffffff
mov edx, 0x5734c4
mov eax, dword [ebp - 0x24]
mov esi, dword [eax]
call dword [esi + 0x6c]
mov eax, dword [ebp - 0x16c]
push eax
lea eax, [ebp - 0x17c]
mov edx, dword [ebx + 0x68]
call sub.rtl70.bpl__Variants__OleVarFromLStr_qqrr8TVarDatax17System_AnsiString
lea edx, [ebp - 0x17c]
pop eax
mov ecx, dword [eax]
call dword [ecx + 0x60]
lea eax, [ebp - 0x180]
push eax
or ecx, 0xffffffff
mov edx, 0x5734ec
mov eax, dword [ebp - 0x24]
mov esi, dword [eax]
call dword [esi + 0x6c]
mov eax, dword [ebp - 0x180]
push eax
lea eax, [ebp - 0x190]
mov edx, dword [ebx + 0x74]
call sub.rtl70.bpl__Variants__OleVarFromLStr_qqrr8TVarDatax17System_AnsiString
lea edx, [ebp - 0x190]
pop eax
mov ecx, dword [eax]
call dword [ecx + 0x60]
lea eax, [ebp - 0x194]
push eax
or ecx, 0xffffffff
mov edx, 0x57350c
mov eax, dword [ebp - 0x24]
mov esi, dword [eax]
call dword [esi + 0x6c]
mov eax, dword [ebp - 0x194]
push eax
call sub.rtl70.bpl__Sysutils_Now_qqrv
add esp, 0xfffffff8
fstp qword [esp]
wait
lea edx, [ebp - 0x1ac]
mov eax, 0x573534
call sub.rtl70.bpl__Sysutils_FormatDateTime_qqrx17System_AnsiString16System_TDateTime
mov ecx, dword [ebp - 0x1ac]
mov edx, dword [ebx + 0x64]
lea eax, [ebp - 0x1a8]
call sub.rtl70.bpl__System__LStrCat3_qqrv
mov edx, dword [ebp - 0x1a8]
lea eax, [ebp - 0x1a4]
call sub.rtl70.bpl__Variants__OleVarFromLStr_qqrr8TVarDatax17System_AnsiString
lea edx, [ebp - 0x1a4]
pop eax
mov ecx, dword [eax]
call dword [ecx + 0x60]
lea eax, [ebp - 0x24]
push eax
or ecx, 0xffffffff
mov edx, 0x57354c
mov eax, dword [ebp - 0x20]
mov esi, dword [eax]
call dword [esi + 0x6c]
lea eax, [ebp - 0x1b0]
push eax
or ecx, 0xffffffff
mov edx, 0x573570
mov eax, dword [ebp - 0x24]
mov esi, dword [eax]
call dword [esi + 0x6c]
mov eax, dword [ebp - 0x1b0]
push eax
lea eax, [ebp - 0x1c0]
mov edx, 0x573590
call sub.rtl70.bpl__Variants__OleVarFromLStr_qqrr8TVarDatax17System_AnsiString
lea edx, [ebp - 0x1c0]
pop eax
mov ecx, dword [eax]
call dword [ecx + 0x60]
lea eax, [ebp - 0x1c4]
push eax
or ecx, 0xffffffff
mov edx, 0x57359c
mov eax, dword [ebp - 0x24]
mov esi, dword [eax]
call dword [esi + 0x6c]
mov eax, dword [ebp - 0x1c4]
push eax
lea eax, [ebp - 0x1d4]
xor edx, edx
call sub.rtl70.bpl__Variants__OleVarFromLStr_qqrr8TVarDatax17System_AnsiString
lea edx, [ebp - 0x1d4]
pop eax
mov ecx, dword [eax]
call dword [ecx + 0x60]
lea eax, [ebp - 0x1d8]
push eax
or ecx, 0xffffffff
mov edx, 0x5735bc
mov eax, dword [ebp - 0x20]
mov esi, dword [eax]
call dword [esi + 0x6c]
mov edx, dword [ebp - 0x1d8]
lea eax, [ebp - 0x20]
call sub.rtl70.bpl__System__IntfCopy_qqrr45System__DelphiInterface_t17System_IInterface_x45System__DelphiInterface_t17System_IInter
lea eax, [ebp - 0x24]
push eax
or ecx, 0xffffffff
mov edx, 0x5735cc
mov eax, dword [ebp - 0x20]
mov esi, dword [eax]
call dword [esi + 0x6c]
lea eax, [ebp - 0x1dc]
push eax
or ecx, 0xffffffff
mov edx, 0x5735f0
mov eax, dword [ebp - 0x24]
mov esi, dword [eax]
call dword [esi + 0x6c]
mov eax, dword [ebp - 0x1dc]
push eax
mov al, 0x30
mov byte [ebp - 0xc3], al
mov byte [ebp - 0xc4], 1
lea eax, [ebp - 0x1ec]
lea edx, [ebp - 0xc4]
call sub.rtl70.bpl__Variants__OleVarFromPStr_qqrr8TVarDatarx28System__SmallString_iuc_255_
lea edx, [ebp - 0x1ec]
pop eax
mov ecx, dword [eax]
call dword [ecx + 0x60]
lea eax, [ebp - 0x1f0]
push eax
or ecx, 0xffffffff
mov edx, 0x573604
mov eax, dword [ebp - 0x24]
mov esi, dword [eax]
call dword [esi + 0x6c]
mov eax, dword [ebp - 0x1f0]
push eax
mov al, 0x30
mov byte [ebp - 0xc3], al
mov byte [ebp - 0xc4], 1
lea eax, [ebp - 0x200]
lea edx, [ebp - 0xc4]
call sub.rtl70.bpl__Variants__OleVarFromPStr_qqrr8TVarDatarx28System__SmallString_iuc_255_
lea edx, [ebp - 0x200]
pop eax
mov ecx, dword [eax]
call dword [ecx + 0x60]
lea eax, [ebp - 0x204]
push eax
or ecx, 0xffffffff
mov edx, 0x573620
mov eax, dword [ebp - 0x24]
mov esi, dword [eax]
call dword [esi + 0x6c]
mov eax, dword [ebp - 0x204]
push eax
mov al, 0x30
mov byte [ebp - 0xc3], al
mov byte [ebp - 0xc4], 1
lea eax, [ebp - 0x214]
lea edx, [ebp - 0xc4]
call sub.rtl70.bpl__Variants__OleVarFromPStr_qqrr8TVarDatarx28System__SmallString_iuc_255_
lea edx, [ebp - 0x214]
pop eax
mov ecx, dword [eax]
call dword [ecx + 0x60]
lea eax, [ebp - 0x2c]
mov edx, 0x57363c
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
lea eax, [ebp - 0x30]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x38]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x3c]
mov edx, 0x573648
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
lea eax, [ebp - 0x54]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea ecx, [ebp - 0x224]
mov edx, 0x573650
mov eax, dword [ebp - 4]
mov esi, dword [eax]
call dword [esi + 0xc]
lea eax, [ebp - 0x224]
lea ecx, [ebp - 0x4c]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
push 0
push 0
push 0
lea ecx, [ebp - 0x238]
mov edx, 0x57366c
mov eax, dword [ebp - 4]
mov esi, dword [eax]
call dword [esi + 0xc]
lea eax, [ebp - 0x238]
lea ecx, [ebp - 0x228]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
mov eax, dword [ebp - 0x228]
call sub.rtl70.bpl__Sysutils_StrToFloatDef_qqrx17System_AnsiStringxg
fcomp dword [0x57367c]
fnstsw ax
sahf
jae 0x57198f
lea eax, [ebp - 0x2c]
mov edx, 0x573688
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
lea eax, [ebp - 0x3c]
mov edx, 0x573694
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
lea eax, [ebp - 0x30]
push eax
lea ecx, [ebp - 0x24c]
mov edx, 0x57369c
mov eax, dword [ebp - 4]
mov esi, dword [eax]
call dword [esi + 0xc]
lea eax, [ebp - 0x24c]
lea ecx, [ebp - 0x23c]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
mov eax, dword [ebp - 0x23c]
mov ecx, 0xc
mov edx, 1
call sub.PCommonUtil.bpl__Ncutil_copystr_qqr17System_AnsiStringii
lea eax, [ebp - 0x38]
push eax
lea ecx, [ebp - 0x260]
mov edx, 0x57369c
mov eax, dword [ebp - 4]
mov esi, dword [eax]
call dword [esi + 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 ecx, 8
mov edx, 0xd
call sub.PCommonUtil.bpl__Ncutil_copystr_qqr17System_AnsiStringii
lea eax, [ebp - 0x54]
mov edx, 0x5736b0
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
push 0x5736c4
push dword [ebp - 0x30]
push 0x5736e0
push dword [ebp - 0x38]
push 0
push 0x5736f0
push 0x5736fc
push dword [ebp - 0x4c]
lea eax, [ebp - 0x4c]
mov edx, 8
call sub.rtl70.bpl__System__LStrCatN_qqrv
lea eax, [ebp - 0x40]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x48]
mov edx, 0x573708
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
lea ecx, [ebp - 0x274]
mov edx, 0x573710
mov eax, dword [ebp - 4]
mov esi, dword [eax]
call dword [esi + 0xc]
lea eax, [ebp - 0x274]
lea ecx, [ebp - 0x264]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
cmp dword [ebp - 0x264], 0
je 0x5719f6
lea ecx, [ebp - 0x284]
mov edx, 0x573710
mov eax, dword [ebp - 4]
mov esi, dword [eax]
call dword [esi + 0xc]
lea eax, [ebp - 0x284]
lea ecx, [ebp - 0x48]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
lea eax, [ebp - 0x298]
mov edx, 0x573724
call sub.rtl70.bpl__Variants__OleVarFromLStr_qqrr8TVarDatax17System_AnsiString
lea eax, [ebp - 0x298]
push eax
lea ecx, [ebp - 0x2a8]
mov edx, 0x573740
mov eax, dword [ebp - 4]
mov esi, dword [eax]
call dword [esi + 0xc]
lea edx, [ebp - 0x2a8]
pop eax
call sub.rtl70.bpl__Variants__VarAdd_qqrr8TVarDatarx8TVarData
lea edx, [ebp - 0x298]
lea eax, [ebp - 0x288]
call sub.rtl70.bpl__Variants__VarToLStr_qqrr17System_AnsiStringrx8TVarData
mov eax, dword [ebp - 0x288]
lea ecx, [ebp - 0x1c]
mov edx, 0x14
call sub.PCommonUtil.bpl__Ncutil_MyRightStr_qqr17System_AnsiStringi
lea edx, [ebp - 0x2ac]
mov eax, dword [ebp - 8]
mov ecx, dword [eax]
call dword [ecx + 0x14]
mov eax, dword [ebp - 0x2ac]
mov edx, dword [eax]
call dword [edx + 0xc]
mov esi, eax
lea ecx, [ebp - 0x2c0]
mov edx, 0x573760
mov eax, dword [ebp - 4]
mov edi, dword [eax]
call dword [edi + 0xc]
lea eax, [ebp - 0x2c0]
lea ecx, [ebp - 0x2b0]
mov edx, 0x57377c
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
mov eax, dword [ebp - 0x2b0]
call sub.rtl70.bpl__Sysutils_StrToInt_qqrx17System_AnsiString
sub esi, eax
dec esi
test esi, esi
jl 0x571f3b
inc esi
mov dword [ebp - 0x50], 0
lea edx, [ebp - 0x2c4]
mov eax, dword [ebp - 8]
mov ecx, dword [eax]
call dword [ecx + 0x14]
mov eax, dword [ebp - 0x2c4]
push eax
lea eax, [ebp - 0x2d4]
mov edx, dword [ebp - 0x50]
mov cl, 0xfc
call sub.rtl70.bpl__Variants__OleVarFromInt_qqrr8TVarDataxixzc
lea edx, [ebp - 0x2d4]
lea ecx, [ebp - 0x28]
pop eax
mov edi, dword [eax]
call dword [edi + 0x10]
lea eax, [ebp - 0x34]
mov edx, 0x57377c
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
lea ecx, [ebp - 0x2e8]
mov edx, 0x573784
mov eax, dword [ebp - 0x28]
mov edi, dword [eax]
call dword [edi + 0xc]
lea eax, [ebp - 0x2e8]
lea ecx, [ebp - 0x2d8]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
mov eax, dword [ebp - 0x2d8]
mov edx, 0x5737a4
call sub.rtl70.bpl__System__LStrCmp_qqrv
jne 0x571b38
lea eax, [ebp - 0x34]
mov edx, 0x573688
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
lea ecx, [ebp - 0x2fc]
mov edx, 0x573784
mov eax, dword [ebp - 0x28]
mov edi, dword [eax]
call dword [edi + 0xc]
lea eax, [ebp - 0x2fc]
lea ecx, [ebp - 0x2ec]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
mov eax, dword [ebp - 0x2ec]
mov edx, 0x5737b0
call sub.rtl70.bpl__System__LStrCmp_qqrv
jne 0x571b7d
lea eax, [ebp - 0x34]
mov edx, 0x57363c
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
push dword [ebp - 0x40]
push 0x5737bc
push 0x5737dc
lea ecx, [ebp - 0x310]
mov edx, 0x573784
mov eax, dword [ebp - 0x28]
mov edi, dword [eax]
call dword [edi + 0xc]
lea eax, [ebp - 0x310]
lea ecx, [ebp - 0x300]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
push dword [ebp - 0x300]
push 0x5737f4
push 0x573808
lea ecx, [ebp - 0x324]
mov edx, 0x57381c
mov eax, dword [ebp - 0x28]
mov edi, dword [eax]
call dword [edi + 0xc]
lea eax, [ebp - 0x324]
lea ecx, [ebp - 0x314]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
push dword [ebp - 0x314]
push 0x57383c
push 0x573850
lea ecx, [ebp - 0x338]
mov edx, 0x573864
mov eax, dword [ebp - 0x28]
mov edi, dword [eax]
call dword [edi + 0xc]
lea eax, [ebp - 0x338]
lea ecx, [ebp - 0x328]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
push dword [ebp - 0x328]
push 0x573888
push 0x57389c
lea ecx, [ebp - 0x34c]
mov edx, 0x5738b0
mov eax, dword [ebp - 0x28]
mov edi, dword [eax]
call dword [edi + 0xc]
lea eax, [ebp - 0x34c]
lea ecx, [ebp - 0x33c]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
push dword [ebp - 0x33c]
push 0x5738cc
push 0x5738e0
push 0x573900
lea ecx, [ebp - 0x360]
mov edx, 0x573914
mov eax, dword [ebp - 0x28]
mov edi, dword [eax]
call dword [edi + 0xc]
lea eax, [ebp - 0x360]
lea ecx, [ebp - 0x350]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
push dword [ebp - 0x350]
push 0x573928
push 0x57393c
lea ecx, [ebp - 0x374]
mov edx, 0x573950
mov eax, dword [ebp - 0x28]
mov edi, dword [eax]
call dword [edi + 0xc]
lea eax, [ebp - 0x374]
lea ecx, [ebp - 0x364]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
push dword [ebp - 0x364]
push 0x573970
push 0x573988
push 0
push 0
push 0
lea ecx, [ebp - 0x38c]
mov edx, 0x57366c
mov eax, dword [ebp - 0x28]
mov edi, dword [eax]
call dword [edi + 0xc]
lea eax, [ebp - 0x38c]
lea ecx, [ebp - 0x37c]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
mov eax, dword [ebp - 0x37c]
call sub.rtl70.bpl__Sysutils_StrToFloatDef_qqrx17System_AnsiStringxg
fstp xword [ebp - 0x398]
wait
push 0
push 0
push 0
lea ecx, [ebp - 0x3ac]
mov edx, 0x57399c
mov eax, dword [ebp - 0x28]
mov edi, dword [eax]
call dword [edi + 0xc]
lea eax, [ebp - 0x3ac]
lea ecx, [ebp - 0x39c]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
mov eax, dword [ebp - 0x39c]
call sub.rtl70.bpl__Sysutils_StrToFloatDef_qqrx17System_AnsiStringxg
fld xword [ebp - 0x398]
faddp st(1)
add esp, 0xfffffff4
fstp xword [esp]
wait
lea ecx, [ebp - 0x378]
mov dl, 1
mov eax, 2
call sub.PCommonUtil.bpl__Ncutil_roundString_qqrxgio
push dword [ebp - 0x378]
push 0x5739b8
push 0x5739cc
push 0
push 0
push 0
lea ecx, [ebp - 0x3c4]
mov edx, 0x5739dc
mov eax, dword [ebp - 0x28]
mov edi, dword [eax]
call dword [edi + 0xc]
lea eax, [ebp - 0x3c4]
lea ecx, [ebp - 0x3b4]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
mov eax, dword [ebp - 0x3b4]
call sub.rtl70.bpl__Sysutils_StrToFloatDef_qqrx17System_AnsiStringxg
fdiv dword [0x5739ec]
add esp, 0xfffffff4
fstp xword [esp]
wait
lea ecx, [ebp - 0x3b0]
mov dl, 1
mov eax, 2
call sub.PCommonUtil.bpl__Ncutil_roundString_qqrxgio
push dword [ebp - 0x3b0]
push 0x5739f8
push 0x573a08
lea eax, [ebp - 0x3c8]
push eax
lea ecx, [ebp - 0x3e0]
mov edx, 0x573a1c
mov eax, dword [ebp - 0x28]
mov edi, dword [eax]
call dword [edi + 0xc]
lea eax, [ebp - 0x3e0]
lea ecx, [ebp - 0x3d0]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
mov eax, dword [ebp - 0x3d0]
lea edx, [ebp - 0x3cc]
call sub.rtl70.bpl__Sysutils_Trim_qqrx17System_AnsiString
lea eax, [ebp - 0x3cc]
mov edx, 0x573a30
call sub.rtl70.bpl__System__LStrCat_qqrv
mov eax, dword [ebp - 0x3cc]
mov ecx, 0x13
mov edx, 1
call sub.rtl70.bpl__System__LStrCopy_qqrv
push dword [ebp - 0x3c8]
push 0x573a4c
push 0x573a64
push 0x573a88
lea ecx, [ebp - 0x3f4]
mov edx, 0x573a9c
mov eax, dword [ebp - 0x28]
mov edi, dword [eax]
call dword [edi + 0xc]
lea eax, [ebp - 0x3f4]
lea ecx, [ebp - 0x3e4]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
push dword [ebp - 0x3e4]
push 0x573ab0
push 0x573acc
lea ecx, [ebp - 0x408]
mov edx, 0x573ae0
mov eax, dword [ebp - 0x28]
mov edi, dword [eax]
call dword [edi + 0xc]
lea eax, [ebp - 0x408]
lea ecx, [ebp - 0x3f8]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
push dword [ebp - 0x3f8]
push 0x573af8
push 0x573b10
lea ecx, [ebp - 0x41c]
mov edx, 0x573b24
mov eax, dword [ebp - 0x28]
mov edi, dword [eax]
call dword [edi + 0xc]
lea eax, [ebp - 0x41c]
lea ecx, [ebp - 0x40c]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
push dword [ebp - 0x40c]
push 0x573b38
push 0x573b54
push 0x573b74
push dword [ebp - 0x34]
push 0x573b8c
push 0x573ba4
push 0x573bc0
push 0x573bdc
push 0x573bf8
push 0x573c14
push 0x573c30
lea eax, [ebp - 0x40]
mov edx, 0x32
call sub.rtl70.bpl__System__LStrCatN_qqrv
inc dword [ebp - 0x50]
dec esi
jne 0x571ab2
lea eax, [ebp - 0x24]
push eax
or ecx, 0xffffffff
mov edx, 0x573c48
mov eax, dword [ebp - 0x20]
mov esi, dword [eax]
call dword [esi + 0x6c]
push 0x573c60
push dword [ebp - 0x1c]
push 0x573cc8
push 0x573ce0
push dword [ebx + 0x64]
push 0x573cf8
push 0x573d10
push dword [ebx + 0x5c]
push 0x573d28
push 0x573d3c
push dword [ebx + 0x60]
push 0x573d50
push 0x573d64
push 0x573d84
push 0x573da0
push 0x573dc0
push 0x573de4
lea ecx, [ebp - 0x44c]
mov edx, 0x573784
mov eax, dword [ebp - 0x28]
mov esi, dword [eax]
call dword [esi + 0xc]
lea eax, [ebp - 0x44c]
lea ecx, [ebp - 0x43c]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
push dword [ebp - 0x43c]
push 0x573df8
push 0x573e0c
push dword [ebx + 0x5c]
push 0x573e28
push 0x573e44
push dword [ebx + 0x60]
push 0x573e58
push 0x573e70
push dword [ebx + 0x58]
push 0x573e88
push 0x573e9c
push 0x573ec0
push 0x573ee8
lea ecx, [ebp - 0x460]
mov edx, 0x573efc
mov eax, dword [ebp - 4]
mov esi, dword [eax]
call dword [esi + 0xc]
lea eax, [ebp - 0x460]
lea ecx, [ebp - 0x450]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
push dword [ebp - 0x450]
push 0x573f24
push 0x573f3c
lea ecx, [ebp - 0x474]
mov edx, 0x573f4c
mov eax, dword [ebp - 4]
mov esi, dword [eax]
call dword [esi + 0xc]
lea eax, [ebp - 0x474]
lea ecx, [ebp - 0x464]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
push dword [ebp - 0x464]
push 0x573f70
push 0x573f84
lea ecx, [ebp - 0x488]
mov edx, 0x573f9c
mov eax, dword [ebp - 4]
mov esi, dword [eax]
call dword [esi + 0xc]
lea eax, [ebp - 0x488]
lea ecx, [ebp - 0x478]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
push dword [ebp - 0x478]
push 0x573fc4
push 0x573fe0
push 0x574004
lea ecx, [ebp - 0x49c]
mov edx, 0x574018
mov eax, dword [ebp - 4]
mov esi, dword [eax]
call dword [esi + 0xc]
lea eax, [ebp - 0x49c]
lea ecx, [ebp - 0x48c]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
push dword [ebp - 0x48c]
push 0x574040
push 0x574054
push 0x574070
push dword [ebp - 0x48]
push 0x574088
push 0x57409c
lea ecx, [ebp - 0x4b0]
mov edx, 0x5740b0
mov eax, dword [ebp - 4]
mov esi, dword [eax]
call dword [esi + 0xc]
lea eax, [ebp - 0x4b0]
lea ecx, [ebp - 0x4a0]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
push dword [ebp - 0x4a0]
push 0x5740c4
push 0x5740dc
push 0x574100
lea ecx, [ebp - 0x4c4]
mov edx, 0x574114
mov eax, dword [ebp - 4]
mov esi, dword [eax]
call dword [esi + 0xc]
lea eax, [ebp - 0x4c4]
lea ecx, [ebp - 0x4b4]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
push dword [ebp - 0x4b4]
push 0x57413c
push 0x574154
push 0x574170
push 0x57418c
lea ecx, [ebp - 0x4d8]
mov edx, 0x57419c
mov eax, dword [ebp - 4]
mov esi, dword [eax]
call dword [esi + 0xc]
lea eax, [ebp - 0x4d8]
lea ecx, [ebp - 0x4c8]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
push dword [ebp - 0x4c8]
push 0x5741ac
push 0x5741c0
lea ecx, [ebp - 0x4ec]
mov edx, 0x5741d0
mov eax, dword [ebp - 4]
mov esi, dword [eax]
call dword [esi + 0xc]
lea eax, [ebp - 0x4ec]
lea ecx, [ebp - 0x4dc]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
push dword [ebp - 0x4dc]
push 0x5741e0
push 0x5741f0
lea ecx, [ebp - 0x500]
mov edx, 0x574200
mov eax, dword [ebp - 4]
mov esi, dword [eax]
call dword [esi + 0xc]
lea eax, [ebp - 0x500]
lea ecx, [ebp - 0x4f0]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
push dword [ebp - 0x4f0]
push 0x574210
push 0x574224
push 0x57423c
push dword [ebp - 0x2c]
push 0x574250
push 0x574264
push dword [ebp - 0x30]
push 0x57427c
push 0x574294
push dword [ebp - 0x38]
push 0x5742ac
push 0x5742c4
push dword [ebp - 0x3c]
push 0x5742d8
push 0x5742ec
push 0x57430c
push 0x574330
push dword [ebp - 0x54]
push 0x574344
push 0x574360
push 0x574384
lea ecx, [ebp - 0x514]
mov edx, 0x574398
mov eax, dword [ebp - 4]
mov esi, dword [eax]
call dword [esi + 0xc]
lea eax, [ebp - 0x514]
lea ecx, [ebp - 0x504]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
push dword [ebp - 0x504]
push 0x5743b8
push 0x5743cc
push 0x5743f0
push 0x574410
push dword [ebp - 0x4c]
push 0x574424
push 0x574438
push 0x574450
push 0x574468
push 0x574480
push 0x574498
push 0x5744b4
push 0x5744d4
lea edx, [ebp - 0x51c]
mov eax, dword [ebp - 8]
mov ecx, dword [eax]
call dword [ecx + 0x14]
mov eax, dword [ebp - 0x51c]
mov edx, dword [eax]
call dword [edx + 0xc]
push eax
lea ecx, [ebp - 0x530]
mov edx, 0x573760
mov eax, dword [ebp - 4]
mov esi, dword [eax]
call dword [esi + 0xc]
lea eax, [ebp - 0x530]
lea ecx, [ebp - 0x520]
mov edx, 0x57377c
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
mov eax, dword [ebp - 0x520]
call sub.rtl70.bpl__Sysutils_StrToInt_qqrx17System_AnsiString
pop edx
xchg edx, eax
sub eax, edx
lea edx, [ebp - 0x518]
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x518]
push 0x574508
push dword [ebp - 0x40]
push 0x574518
push 0x574538
push 0x574568
push dword [ebp - 0x1c]
push 0x57457c
push 0x574590
push 0x5745a8
push 0x5745c0
push 0x5745dc
push 0x57461c
push 0x57464c
push 0x57467c
lea eax, [ebp - 0x438]
mov edx, 0x72
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov eax, dword [ebp - 0x438]
lea edx, [ebp - 0x434]
call sub.rtl70.bpl__System_AnsiToUtf8_qqrx17System_AnsiString
mov edx, dword [ebp - 0x434]
lea ecx, [ebp - 0x430]
mov eax, dword [ebp - 0x10]
call sub.PCommonUtil.bpl__Base64_TBase64_Base64EncodeStr_qqrx17System_AnsiString
mov edx, dword [ebp - 0x430]
lea eax, [ebp - 0x42c]
call sub.rtl70.bpl__Variants__OleVarFromLStr_qqrr8TVarDatax17System_AnsiString
lea edx, [ebp - 0x42c]
mov eax, dword [ebp - 0x24]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov dl, 1
mov eax, dword [ebp - 0x18]
mov ecx, dword [eax]
call dword [ecx + 0x4c]
mov edx, 0x573268
mov eax, dword [ebp - 0x18]
mov ecx, dword [eax]
call dword [ecx + 0x58]
lea ecx, [ebp - 0x24]
mov edx, 0x574694
mov eax, dword [ebp - 0x18]
mov esi, dword [eax]
call dword [esi + 0x78]
lea eax, [ebp - 0x540]
mov edx, 0x5746c0
call sub.rtl70.bpl__Variants__OleVarFromLStr_qqrr8TVarDatax17System_AnsiString
lea ecx, [ebp - 0x540]
mov edx, 0x5746f0
mov eax, dword [ebp - 0x24]
mov esi, dword [eax]
call dword [esi + 0x58]
lea eax, [ebp - 0x550]
mov edx, 0x574714
call sub.rtl70.bpl__Variants__OleVarFromLStr_qqrr8TVarDatax17System_AnsiString
lea ecx, [ebp - 0x550]
mov edx, 0x574734
mov eax, dword [ebp - 0x24]
mov esi, dword [eax]
call dword [esi + 0x58]
lea eax, [ebp - 0x554]
push eax
or ecx, 0xffffffff
mov edx, 0x574750
mov eax, dword [ebp - 0x24]
mov esi, dword [eax]
call dword [esi + 0x6c]
lea eax, [ebp - 0x558]
push eax
or ecx, 0xffffffff
mov edx, 0x574774
mov eax, dword [ebp - 0x24]
mov esi, dword [eax]
call dword [esi + 0x6c]
mov edx, dword [ebp - 0x558]
lea eax, [ebp - 0x24]
call sub.rtl70.bpl__System__IntfCopy_qqrr45System__DelphiInterface_t17System_IInterface_x45System__DelphiInterface_t17System_IInter
lea eax, [ebp - 0x55c]
push eax
or ecx, 0xffffffff
mov edx, 0x574794
mov eax, dword [ebp - 0x24]
mov esi, dword [eax]
call dword [esi + 0x6c]
mov edx, dword [ebp - 0x55c]
lea eax, [ebp - 0x24]
call sub.rtl70.bpl__System__IntfCopy_qqrr45System__DelphiInterface_t17System_IInterface_x45System__DelphiInterface_t17System_IInter
lea eax, [ebp - 0x560]
push eax
or ecx, 0xffffffff
mov edx, 0x5747bc
mov eax, dword [ebp - 0x24]
mov esi, dword [eax]
call dword [esi + 0x6c]
mov eax, dword [ebp - 0x560]
push eax
mov eax, dword [ebp - 0x14]
mov edx, dword [eax]
call dword [edx + 0x48]
lea edx, [ebp - 0x574]
mov ecx, dword [eax]
call dword [ecx + 0x1c]
mov edx, dword [ebp - 0x574]
lea eax, [ebp - 0x570]
call sub.rtl70.bpl__Variants__OleVarFromLStr_qqrr8TVarDatax17System_AnsiString
lea edx, [ebp - 0x570]
pop eax
mov ecx, dword [eax]
call dword [ecx + 0x60]
push 0x2dc6c0
push 0xf4240
push 0xf4240
push 0xf4240
push 0x5747e4
lea eax, [ebp - 0x68]
push eax
push 0
call sub.rtl70.bpl__Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x1c
push 0
lea eax, [ebx + 0x70]
push eax
push 0x574800
push 0x574808
lea eax, [ebp - 0x68]
push eax
push 0
call sub.rtl70.bpl__Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x18
push 0x57481c
push 0x57483c
push 0x57484c
lea eax, [ebp - 0x68]
push eax
push 0
call sub.rtl70.bpl__Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x14
push 0x57486c
push 0x574878
push 0x57484c
lea eax, [ebp - 0x68]
push eax
push 0
call sub.rtl70.bpl__Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x14
mov edx, 0x574888
mov eax, dword [ebp - 0x18]
mov ecx, dword [eax]
call dword [ecx + 0xb0]
lea edx, [ebp - 0x580]
mov eax, dword [ebp - 0x18]
mov ecx, dword [eax]
call dword [ecx + 0x18]
mov eax, dword [ebp - 0x580]
lea edx, [ebp - 0x57c]
mov ecx, dword [eax]
call dword [ecx + 0x54]
mov ecx, dword [ebp - 0x57c]
lea eax, [ebp - 0x578]
mov edx, 0x5748a4
call sub.rtl70.bpl__System__WStrCat3_qqrr17System_WideStringx17System_WideStringt2
mov eax, dword [ebp - 0x578]
push eax
push 0x5748f8
lea eax, [ebp - 0x68]
push eax
push 0
call sub.rtl70.bpl__Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x10
mov eax, dword [ebp - 0x18]
mov edx, dword [eax]
call dword [edx + 0x48]
push eax
push 0x574904
lea eax, [ebp - 0x68]
push eax
lea eax, [ebp - 0x594]
push eax
call sub.rtl70.bpl__Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0xc
lea edx, [ebp - 0x594]
lea eax, [ebp - 0x584]
call sub.rtl70.bpl__Variants__VarToLStr_qqrr17System_AnsiStringrx8TVarData
mov edx, dword [ebp - 0x584]
pop eax
mov ecx, dword [eax]
call dword [ecx + 0x2c]
mov dl, 1
mov eax, dword [ebp - 0x18]
mov ecx, dword [eax]
call dword [ecx + 0x4c]
mov edx, 0x574918
mov eax, dword [ebp - 0x18]
mov ecx, dword [eax]
call dword [ecx + 0xb0]
lea edx, [ebp - 0x24]
mov eax, dword [ebp - 0x18]
mov ecx, dword [eax]
call dword [ecx + 0x18]
lea eax, [ebp - 0x598]
push eax
lea edx, [ebp - 0x59c]
mov eax, dword [ebp - 0x24]
mov ecx, dword [eax]
call dword [ecx + 0x14]
mov eax, dword [ebp - 0x59c]
xor ecx, ecx
mov edx, 0x574934
mov esi, dword [eax]
call dword [esi + 0x3c]
mov edx, dword [ebp - 0x598]
lea eax, [ebp - 0x24]
call sub.rtl70.bpl__System__IntfCopy_qqrr45System__DelphiInterface_t17System_IInterface_x45System__DelphiInterface_t17System_IInter
lea eax, [ebp - 0x5a0]
push eax
lea edx, [ebp - 0x5a4]
mov eax, dword [ebp - 0x24]
mov ecx, dword [eax]
call dword [ecx + 0x14]
mov eax, dword [ebp - 0x5a4]
xor ecx, ecx
mov edx, 0x57494c
mov esi, dword [eax]
call dword [esi + 0x3c]
mov edx, dword [ebp - 0x5a0]
lea eax, [ebp - 0x24]
call sub.rtl70.bpl__System__IntfCopy_qqrr45System__DelphiInterface_t17System_IInterface_x45System__DelphiInterface_t17System_IInter
lea eax, [ebp - 0x5a8]
push eax
lea edx, [ebp - 0x5ac]
mov eax, dword [ebp - 0x24]
mov ecx, dword [eax]
call dword [ecx + 0x14]
mov eax, dword [ebp - 0x5ac]
xor ecx, ecx
mov edx, 0x574980
mov esi, dword [eax]
call dword [esi + 0x3c]
mov edx, dword [ebp - 0x5a8]
lea eax, [ebp - 0x24]
call sub.rtl70.bpl__System__IntfCopy_qqrr45System__DelphiInterface_t17System_IInterface_x45System__DelphiInterface_t17System_IInter
lea edx, [ebp - 0x5c0]
mov eax, dword [ebp - 0x24]
mov ecx, dword [eax]
call dword [ecx + 0x3c]
lea edx, [ebp - 0x5c0]
lea eax, [ebp - 0x5b0]
call sub.rtl70.bpl__Variants__VarToLStr_qqrr17System_AnsiStringrx8TVarData
mov eax, dword [ebp - 0x5b0]
push eax
mov eax, dword [ebp - 0x18]
mov edx, dword [eax]
call dword [edx + 0x48]
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x2c]
mov dl, 1
mov eax, dword [ebp - 0x18]
mov ecx, dword [eax]
call dword [ecx + 0x4c]
lea edx, [ebp - 0x24]
mov eax, dword [ebp - 0x18]
mov ecx, dword [eax]
call dword [ecx + 0x18]
lea edx, [ebp - 0x5c8]
mov eax, dword [ebp - 0x24]
mov ecx, dword [eax]
call dword [ecx + 0x14]
mov eax, dword [ebp - 0x5c8]
lea ecx, [ebp - 0x5c4]
mov edx, 0x57354c
mov esi, dword [eax]
call dword [esi + 0x38]
mov edx, dword [ebp - 0x5c4]
lea eax, [ebp - 0x24]
call sub.rtl70.bpl__System__IntfCopy_qqrr45System__DelphiInterface_t17System_IInterface_x45System__DelphiInterface_t17System_IInter
lea edx, [ebp - 0x5e0]
mov eax, dword [ebp - 0x24]
mov ecx, dword [eax]
call dword [ecx + 0x14]
mov eax, dword [ebp - 0x5e0]
lea ecx, [ebp - 0x5dc]
mov edx, 0x573570
mov esi, dword [eax]
call dword [esi + 0x38]
mov eax, dword [ebp - 0x5dc]
lea edx, [ebp - 0x5d8]
mov ecx, dword [eax]
call dword [ecx + 0x3c]
lea eax, [ebp - 0x5d8]
push eax
lea eax, [ebp - 0x5f0]
mov edx, 0x573590
call sub.rtl70.bpl__Variants__OleVarFromLStr_qqrr8TVarDatax17System_AnsiString
lea edx, [ebp - 0x5f0]
pop eax
call sub.rtl70.bpl__Variants__VarCmpEQ_qqrrx8TVarDatat1
jne 0x572961
xor esi, esi
push 0x7d0
call sub.kernel32.dll_Sleep_1
jmp 0x5727c7
push 0x7d0
call sub.kernel32.dll_Sleep_1
inc esi
cmp esi, 0x3c
jg 0x5727e6
mov eax, dword [sym.imp.vcl70.bpl__Forms_Application]
mov eax, dword [eax]
call sub.vcl70.bpl__Forms_TApplication_ProcessMessages_qqrv
push 0
mov eax, dword [ebp + 0xc]
push eax
mov eax, dword [ebp + 8]
push eax
lea eax, [ebp - 0x44]
push eax
mov ecx, dword [ebp - 0x1c]
mov edx, dword [ebp - 0x1c]
mov eax, ebx
call sym.P_Interface.bpl__Skhtkpserver_SKHT20_KPSERVER_CheckKPZT_qqr17System_AnsiStringt1ir17System_AnsiStringt4t4
test al, al
je 0x5727ab
cmp esi, 0x3c
jle 0x57293e
lea eax, [ebp - 0x5f4]
mov ecx, dword [ebp - 0x44]
mov edx, 0x574998
call sub.rtl70.bpl__System__LStrCat3_qqrv
mov edx, dword [ebp - 0x5f4]
xor ecx, ecx
mov eax, 0x5749b0
call sym.P_Interface.bpl__Publicutil_MessageBox_qqr17System_AnsiStringt1o
mov eax, dword [ebp - 0x58]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x58]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x44]
push 0x5749c0
lea edx, [ebp - 0x610]
mov eax, dword [ebx + 4]
mov eax, dword [eax + 0x50]
call sym.P_Interface.bpl__Publicutil_GetFplbTableCode_qqr17System_AnsiString
push dword [ebp - 0x610]
push 0x5749d0
lea eax, [ebp - 0x60c]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x60c]
lea eax, [ebp - 0x608]
call sub.rtl70.bpl__Variants__OleVarFromLStr_qqrr8TVarDatax17System_AnsiString
lea eax, [ebp - 0x608]
push eax
lea ecx, [ebp - 0x620]
mov edx, 0x573740
mov eax, dword [ebp - 4]
mov esi, dword [eax]
call dword [esi + 0xc]
lea edx, [ebp - 0x620]
pop eax
call sub.rtl70.bpl__Variants__VarAdd_qqrr8TVarDatarx8TVarData
lea eax, [ebp - 0x608]
push eax
lea eax, [ebp - 0x630]
mov edx, 0x5749fc
call sub.rtl70.bpl__Variants__OleVarFromLStr_qqrr8TVarDatax17System_AnsiString
lea edx, [ebp - 0x630]
pop eax
call sub.rtl70.bpl__Variants__VarAdd_qqrr8TVarDatarx8TVarData
lea eax, [ebp - 0x608]
push eax
lea eax, [ebp - 0x640]
mov edx, dword [ebx + 4]
mov edx, dword [edx + 0x54]
call sub.rtl70.bpl__Variants__OleVarFromLStr_qqrr8TVarDatax17System_AnsiString
lea edx, [ebp - 0x640]
pop eax
call sub.rtl70.bpl__Variants__VarAdd_qqrr8TVarDatarx8TVarData
lea eax, [ebp - 0x608]
push eax
mov al, 0x27
mov byte [ebp - 0xc3], al
mov byte [ebp - 0xc4], 1
lea eax, [ebp - 0x650]
lea edx, [ebp - 0xc4]
call sub.rtl70.bpl__Variants__OleVarFromPStr_qqrr8TVarDatarx28System__SmallString_iuc_255_
lea edx, [ebp - 0x650]
pop eax
call sub.rtl70.bpl__Variants__VarAdd_qqrr8TVarDatarx8TVarData
lea edx, [ebp - 0x608]
lea eax, [ebp - 0x5f8]
call sub.rtl70.bpl__Variants__VarToLStr_qqrr17System_AnsiStringrx8TVarData
mov eax, dword [ebp - 0x5f8]
push eax
mov eax, dword [ebp - 0x58]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 0x58]
call sub.adortl70.bpl__Adodb_TADOQuery_ExecSQL_qqrv
jmp 0x572a9e
push 1
mov eax, dword [ebp + 0xc]
push eax
mov eax, dword [ebp + 8]
push eax
lea eax, [ebp - 0x44]
push eax
mov ecx, dword [ebp - 0x1c]
mov edx, dword [ebp - 0x1c]
mov eax, ebx
call sym.P_Interface.bpl__Skhtkpserver_SKHT20_KPSERVER_CheckKPZT_qqr17System_AnsiStringt1ir17System_AnsiStringt4t4
mov byte [ebp - 9], al
jmp 0x572a9e
lea eax, [ebp - 0x664]
mov edx, 0x574a14
call sub.rtl70.bpl__Variants__OleVarFromLStr_qqrr8TVarDatax17System_AnsiString
lea eax, [ebp - 0x664]
push eax
lea edx, [ebp - 0x67c]
mov eax, dword [ebp - 0x24]
mov ecx, dword [eax]
call dword [ecx + 0x14]
mov eax, dword [ebp - 0x67c]
lea ecx, [ebp - 0x678]
mov edx, 0x573570
mov ebx, dword [eax]
call dword [ebx + 0x38]
mov eax, dword [ebp - 0x678]
lea edx, [ebp - 0x674]
mov ecx, dword [eax]
call dword [ecx + 0x3c]
lea edx, [ebp - 0x674]
pop eax
call sub.rtl70.bpl__Variants__VarAdd_qqrr8TVarDatarx8TVarData
lea eax, [ebp - 0x664]
push eax
mov al, 0x3a
mov byte [ebp - 0xc3], al
mov byte [ebp - 0xc4], 1
lea eax, [ebp - 0x68c]
lea edx, [ebp - 0xc4]
call sub.rtl70.bpl__Variants__OleVarFromPStr_qqrr8TVarDatarx28System__SmallString_iuc_255_
lea edx, [ebp - 0x68c]
pop eax
call sub.rtl70.bpl__Variants__VarAdd_qqrr8TVarDatarx8TVarData
lea eax, [ebp - 0x664]
push eax
lea edx, [ebp - 0x6c0]
mov eax, dword [ebp - 0x24]
mov ecx, dword [eax]
call dword [ecx + 0x14]
mov eax, dword [ebp - 0x6c0]
lea ecx, [ebp - 0x6bc]
mov edx, 0x57359c
mov ebx, dword [eax]
call dword [ebx + 0x38]
mov eax, dword [ebp - 0x6bc]
lea edx, [ebp - 0x6b8]
mov ecx, dword [eax]
call dword [ecx + 0x3c]
lea edx, [ebp - 0x6b8]
lea eax, [ebp - 0x6a8]
call sub.rtl70.bpl__Variants__VarToLStr_qqrr17System_AnsiStringrx8TVarData
mov edx, dword [ebp - 0x6a8]
lea ecx, [ebp - 0x6a4]
mov eax, dword [ebp - 0x10]
call sub.PCommonUtil.bpl__Base64_TBase64_Base64DecodeStr_qqrx17System_AnsiString
mov eax, dword [ebp - 0x6a4]
lea edx, [ebp - 0x6a0]
call sub.rtl70.bpl__System_Utf8ToAnsi_qqrx17System_AnsiString
mov edx, dword [ebp - 0x6a0]
lea eax, [ebp - 0x69c]
call sub.rtl70.bpl__Variants__OleVarFromLStr_qqrr8TVarDatax17System_AnsiString
lea edx, [ebp - 0x69c]
pop eax
call sub.rtl70.bpl__Variants__VarAdd_qqrr8TVarDatarx8TVarData
lea edx, [ebp - 0x664]
lea eax, [ebp - 0x654]
call sub.rtl70.bpl__Variants__VarToLStr_qqrr17System_AnsiStringrx8TVarData
mov edx, dword [ebp - 0x654]
xor ecx, ecx
mov eax, 0x5749b0
call sym.P_Interface.bpl__Publicutil_MessageBox_qqr17System_AnsiStringt1o
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x572adb
mov eax, dword [ebp - 0x10]
call sub.rtl70.bpl__System_TObject_Free_qqrv
lea eax, [ebp - 0x14]
call sub.rtl70.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea eax, [ebp - 0x18]
call sub.rtl70.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
mov eax, dword [ebp - 0x58]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x58]
call sub.rtl70.bpl__System_TObject_Free_qqrv
ret