Function at 0x71b26c
Capabilities:
Reference sql statements

Disassembly:
push ebp
mov ebp, esp
mov ecx, 0x10
push 0
push 0
dec ecx
jne 0x71b274
push ecx
mov dword [ebp - 4], eax
xor eax, eax
push ebp
push 0x71bb74
push dword fs:[eax]
mov dword fs:[eax], esp
call fcn.006e7910
add esp, 0xfffffff8
fstp qword [esp]
wait
lea edx, [ebp - 0x28]
mov eax, 0x71bb90
call sub.rtl260.bpl__System_Sysutils_FormatDateTime_qqrx20System_UnicodeString16System_TDateTime
mov byte [ebp - 5], 0
lea eax, [ebp - 0x40]
call fcn.006e78f8
mov eax, dword [ebp - 0x40]
mov edx, 0x71bbb4
call sub.rtl260.bpl__System__UStrCmp_qqrv
jae 0x71b2ca
mov byte [ebp - 5], 1
jmp 0x71bb3c
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3fc]
mov edx, 0x71bbd8
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x44]
mov ecx, dword [eax]
call dword [ecx + 0x88]
mov eax, dword [ebp - 0x44]
mov edx, 0x71bbf4
call sub.rtl260.bpl__System__UStrEqual_qqrv
jne 0x71b6f5
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3fc]
mov edx, 0x71bc04
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
mov edx, dword [eax]
call dword [edx + 0x6c]
fldz
fucompp
wait
fnstsw ax
sahf
jae 0x71b6f5
mov eax, dword [0x730f34]
mov eax, dword [eax]
mov eax, dword [eax + 0x6c]
mov dword [ebp - 0x2c], eax
mov eax, dword [ebp - 0x2c]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x2c]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x48]
mov eax, dword [ebp - 0x2c]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x71bc24
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3fc]
mov edx, 0x71bc98
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
mov edx, dword [eax]
call dword [edx + 0x6c]
add esp, 0xfffffff8
fstp qword [esp]
wait
mov edx, 0x71bc98
mov eax, dword [ebp - 0x2c]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, dword [eax]
call dword [edx + 0x78]
mov eax, dword [ebp - 0x2c]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Open_qqrv
mov eax, dword [ebp - 0x2c]
mov eax, dword [eax + 0x40]
xor edx, edx
call sub.dbrtl260.bpl__Data_Db_TFields_GetField_qqri
mov edx, dword [eax]
call dword [edx + 0x74]
test eax, eax
jle 0x71b3ad
mov byte [ebp - 5], 1
jmp 0x71bb3c
mov eax, dword [ebp - 0x2c]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x2c]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x48]
mov eax, dword [ebp - 0x2c]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x71bcb0
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x2c]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x71bd44
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x2c]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x71bde8
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3fc]
mov edx, 0x71bc98
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
mov edx, dword [eax]
call dword [edx + 0x6c]
add esp, 0xfffffff8
fstp qword [esp]
wait
mov edx, 0x71bc98
mov eax, dword [ebp - 0x2c]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, dword [eax]
call dword [edx + 0x78]
mov eax, dword [ebp - 0x2c]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Open_qqrv
mov eax, dword [ebp - 0x2c]
mov edx, dword [eax]
call dword [edx + 0x194]
test eax, eax
jne 0x71b451
mov edx, 0x71be50
mov al, 3
call fcn.006efbe4
jmp 0x71bb3c
mov eax, 0x71be8c
call sub.rtl260.bpl__System_Sysutils_StrToDate_qqrx20System_UnicodeString
fstp qword [ebp - 0x4c]
wait
mov eax, dword [ebp - 0x28]
call sub.rtl260.bpl__System_Sysutils_StrToDate_qqrx20System_UnicodeString
fld qword [ebp - 0x4c]
fucompp
wait
fnstsw ax
sahf
jae 0x71b48c
mov edx, 0x71beb0
mov eax, dword [ebp - 0x2c]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x88]
jmp 0x71b4a4
mov edx, 0x71bec8
mov eax, dword [ebp - 0x2c]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x88]
mov eax, dword [ebp - 0x2c]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x2c]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x48]
mov eax, dword [ebp - 0x2c]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x71bee0
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x2c]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x71bf30
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x2c]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x71bf78
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov edx, 0x71c01c
mov eax, dword [ebp - 0x2c]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x800]
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov eax, dword [ebp - 0x2c]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Open_qqrv
mov eax, dword [ebp - 0x2c]
call sub.dbrtl260.bpl__Data_Db_TDataSet_IsEmpty_qqrv
test al, al
je 0x71b52d
lea eax, [ebp - 0x24]
mov edx, 0x71c03c
call sub.rtl260.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
jmp 0x71b545
mov edx, 0x71c04c
mov eax, dword [ebp - 0x2c]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x24]
mov ecx, dword [eax]
call dword [ecx + 0x88]
mov eax, dword [0x730d80]
cmp dword [eax], 0
jne 0x71b586
mov ecx, dword [ebp - 4]
mov dl, 1
mov eax, dword [0x499234]
call sub.vcl260.bpl__Vcl_Forms_TCustomForm__bctr_qqrp25System_Classes_TComponent
mov edx, dword [0x731004]
mov dword [edx], eax
mov eax, dword [0x731004]
mov eax, dword [eax]
mov edx, dword [eax]
call dword [edx + 0x168]
dec eax
je 0x71b586
mov eax, dword [0x730d80]
cmp dword [eax], 0
je 0x71bb3c
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3fc]
mov edx, 0x71c070
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x18]
mov ecx, dword [eax]
call dword [ecx + 0x88]
lea eax, [ebp - 0x1c]
mov edx, 0x71c03c
call sub.rtl260.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3fc]
mov edx, 0x71c08c
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x50]
mov ecx, dword [eax]
call dword [ecx + 0x88]
mov eax, dword [ebp - 0x50]
push eax
mov eax, dword [0x730f68]
mov eax, dword [eax]
push eax
push 0x71bbf4
push 0x71c0a4
mov eax, dword [ebp - 0x24]
push eax
mov eax, dword [ebp - 0x18]
push eax
mov eax, dword [ebp - 0x1c]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3fc]
mov edx, 0x71bc04
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x54]
mov ecx, dword [eax]
call dword [ecx + 0x88]
mov eax, dword [ebp - 0x54]
push eax
mov eax, dword [ebp - 0x20]
push eax
call fcn.006e7910
add esp, 0xfffffff8
fstp qword [esp]
wait
lea edx, [ebp - 0x58]
mov eax, 0x71c0b4
call sub.rtl260.bpl__System_Sysutils_FormatDateTime_qqrx20System_UnicodeString16System_TDateTime
mov eax, dword [ebp - 0x58]
push eax
push 0
push 0
push 0
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3fc]
mov edx, 0x71c0d4
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x5c]
mov ecx, dword [eax]
call dword [ecx + 0x88]
mov eax, dword [ebp - 0x5c]
push eax
push 0x71c0f0
push 0x71c100
push 0
mov al, byte [0x71c104]
push eax
lea eax, [ebp - 0x60]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3fc]
mov edx, 0x71c114
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x64]
mov ecx, dword [eax]
call dword [ecx + 0x88]
mov eax, dword [ebp - 0x64]
xor ecx, ecx
mov edx, 0x71c12c
call sub.rtl260.bpl__System_Sysutils_StringReplace_qqrx20System_UnicodeStringt1t162System__Set_35System_Sysutils_System_Sysutils__8
mov ecx, dword [ebp - 0x60]
mov edx, 0x71c13c
mov eax, dword [ebp - 4]
call fcn.007195f8
mov dword [ebp - 0xc], eax
cmp dword [ebp - 0xc], 0
jle 0x71b6eb
mov eax, dword [ebp - 0xc]
test eax, eax
jle 0x71b6e1
mov dword [ebp - 0x30], eax
mov dword [ebp - 0x14], 1
xor ecx, ecx
mov edx, dword [ebp - 0x14]
mov eax, dword [ebp - 4]
call fcn.0071a308
mov dword [ebp - 0x10], eax
inc dword [ebp - 0x14]
dec dword [ebp - 0x30]
jne 0x71b6c9
cmp dword [ebp - 0x10], 1
jne 0x71b6eb
mov byte [ebp - 5], 1
call sub.webservice.dll_WS_Close
jmp 0x71bb3c
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3fc]
mov edx, 0x71bbd8
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x68]
mov ecx, dword [eax]
call dword [ecx + 0x88]
mov eax, dword [ebp - 0x68]
mov edx, 0x71c150
call sub.rtl260.bpl__System__UStrEqual_qqrv
jne 0x71bb38
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3fc]
mov edx, 0x71bc04
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
mov edx, dword [eax]
call dword [edx + 0x6c]
fldz
fucompp
wait
fnstsw ax
sahf
jae 0x71bb38
mov eax, dword [0x730d80]
cmp dword [eax], 0
jne 0x71b78d
mov ecx, dword [ebp - 4]
mov dl, 1
mov eax, dword [0x499234]
call sub.vcl260.bpl__Vcl_Forms_TCustomForm__bctr_qqrp25System_Classes_TComponent
mov edx, dword [0x731004]
mov dword [edx], eax
mov eax, dword [0x731004]
mov eax, dword [eax]
mov edx, dword [eax]
call dword [edx + 0x168]
dec eax
je 0x71b78d
mov eax, dword [0x730d80]
cmp dword [eax], 0
je 0x71bb3c
mov eax, dword [ebp - 4]
cmp byte [eax + 0x808], 0
je 0x71bb32
mov eax, dword [0x730f34]
mov eax, dword [eax]
mov eax, dword [eax + 0x6c]
mov dword [ebp - 0x34], eax
mov eax, dword [ebp - 0x34]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x34]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x48]
mov eax, dword [ebp - 0x34]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x71bc24
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3fc]
mov edx, 0x71bc98
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
mov edx, dword [eax]
call dword [edx + 0x6c]
add esp, 0xfffffff8
fstp qword [esp]
wait
mov edx, 0x71bc98
mov eax, dword [ebp - 0x34]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, dword [eax]
call dword [edx + 0x78]
mov eax, dword [ebp - 0x34]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Open_qqrv
mov eax, dword [ebp - 0x34]
mov eax, dword [eax + 0x40]
xor edx, edx
call sub.dbrtl260.bpl__Data_Db_TFields_GetField_qqri
mov edx, dword [eax]
call dword [edx + 0x74]
test eax, eax
jle 0x71b831
mov edx, 0x71c160
mov al, 3
call fcn.006efbe4
jmp 0x71bb3c
mov eax, dword [ebp - 0x34]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x34]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x48]
mov eax, dword [ebp - 0x34]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x71bcb0
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x34]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x71bd44
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x34]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x71bde8
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3fc]
mov edx, 0x71bc98
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
mov edx, dword [eax]
call dword [edx + 0x6c]
add esp, 0xfffffff8
fstp qword [esp]
wait
mov edx, 0x71bc98
mov eax, dword [ebp - 0x34]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, dword [eax]
call dword [edx + 0x78]
mov eax, dword [ebp - 0x34]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Open_qqrv
mov eax, dword [ebp - 0x34]
mov edx, dword [eax]
call dword [edx + 0x194]
test eax, eax
jne 0x71b8d5
mov edx, 0x71be50
mov al, 3
call fcn.006efbe4
jmp 0x71bb3c
mov eax, 0x71be8c
call sub.rtl260.bpl__System_Sysutils_StrToDate_qqrx20System_UnicodeString
fstp qword [ebp - 0x4c]
wait
mov eax, dword [ebp - 0x28]
call sub.rtl260.bpl__System_Sysutils_StrToDate_qqrx20System_UnicodeString
fld qword [ebp - 0x4c]
fucompp
wait
fnstsw ax
sahf
jae 0x71b910
mov edx, 0x71beb0
mov eax, dword [ebp - 0x34]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x88]
jmp 0x71b928
mov edx, 0x71bec8
mov eax, dword [ebp - 0x34]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x88]
mov eax, dword [ebp - 0x34]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x34]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x48]
mov eax, dword [ebp - 0x34]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x71bee0
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x34]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x71bf30
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x34]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x71bf78
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov edx, 0x71c01c
mov eax, dword [ebp - 0x34]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x800]
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov eax, dword [ebp - 0x34]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Open_qqrv
mov eax, dword [ebp - 0x34]
mov edx, dword [eax]
call dword [edx + 0x194]
test eax, eax
jne 0x71b9b4
lea eax, [ebp - 0x24]
mov edx, 0x71c03c
call sub.rtl260.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
jmp 0x71b9cc
mov edx, 0x71c04c
mov eax, dword [ebp - 0x34]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x24]
mov ecx, dword [eax]
call dword [ecx + 0x88]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3fc]
mov edx, 0x71c08c
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x6c]
mov ecx, dword [eax]
call dword [ecx + 0x88]
mov eax, dword [ebp - 0x6c]
push eax
mov eax, dword [0x730f68]
mov eax, dword [eax]
push eax
push 0x71bbf4
push 0x71c0a4
mov eax, dword [ebp - 0x24]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3fc]
mov edx, 0x71c070
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x70]
mov ecx, dword [eax]
call dword [ecx + 0x88]
mov eax, dword [ebp - 0x70]
push eax
push 0x71c03c
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3fc]
mov edx, 0x71bc04
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x74]
mov ecx, dword [eax]
call dword [ecx + 0x88]
mov eax, dword [ebp - 0x74]
push eax
mov eax, dword [ebp - 0x20]
push eax
call fcn.006e7910
add esp, 0xfffffff8
fstp qword [esp]
wait
lea edx, [ebp - 0x78]
mov eax, 0x71c0b4
call sub.rtl260.bpl__System_Sysutils_FormatDateTime_qqrx20System_UnicodeString16System_TDateTime
mov eax, dword [ebp - 0x78]
push eax
push 0
push 0
push 0
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3fc]
mov edx, 0x71c0d4
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x7c]
mov ecx, dword [eax]
call dword [ecx + 0x88]
mov eax, dword [ebp - 0x7c]
push eax
push 0x71c0f0
push 0x71c100
push 0
mov al, byte [0x71c104]
push eax
lea eax, [ebp - 0x80]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3fc]
mov edx, 0x71c114
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x84]
mov ecx, dword [eax]
call dword [ecx + 0x88]
mov eax, dword [ebp - 0x84]
xor ecx, ecx
mov edx, 0x71c12c
call sub.rtl260.bpl__System_Sysutils_StringReplace_qqrx20System_UnicodeStringt1t162System__Set_35System_Sysutils_System_Sysutils__8
mov ecx, dword [ebp - 0x80]
mov edx, 0x71c13c
mov eax, dword [ebp - 4]
call fcn.007195f8
mov dword [ebp - 0xc], eax
cmp dword [ebp - 0xc], 0
jle 0x71bb2b
mov eax, dword [ebp - 0xc]
test eax, eax
jle 0x71bb21
mov dword [ebp - 0x30], eax
mov dword [ebp - 0x14], 1
xor ecx, ecx
mov edx, dword [ebp - 0x14]
mov eax, dword [ebp - 4]
call fcn.0071a308
mov dword [ebp - 0x10], eax
inc dword [ebp - 0x14]
dec dword [ebp - 0x30]
jne 0x71bb09
cmp dword [ebp - 0x10], 1
jne 0x71bb2b
mov byte [ebp - 5], 1
call sub.webservice.dll_WS_Close
jmp 0x71bb3c
mov byte [ebp - 5], 1
jmp 0x71bb3c
mov byte [ebp - 5], 1
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x71bb7b
lea eax, [ebp - 0x84]
mov edx, 0xe
call sub.rtl260.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0x44]
mov edx, 4
call sub.rtl260.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0x28]
mov edx, 5
call sub.rtl260.bpl__System__UStrArrayClr_qqrpvi
ret