Function at 0x4ffcf4
Capabilities:
Reference sql statements

Disassembly:
push ebp
mov ebp, esp
push ecx
mov ecx, 0x17
push 0
push 0
dec ecx
jne 0x4ffcfd
xchg dword [ebp - 4], ecx
push ebx
push esi
push edi
mov dword [ebp - 0xc], ecx
mov dword [ebp - 8], edx
mov dword [ebp - 4], eax
mov eax, dword [ebp - 8]
call sub.rtl260.bpl__System__UStrAddRef_qqrpv
mov eax, dword [ebp - 0xc]
call sub.rtl260.bpl__System__UStrAddRef_qqrpv
lea eax, [ebp - 0x8c]
mov edx, dword [0x4f1cf8]
call sub.rtl260.bpl__System__InitializeRecord_qqrpvt1
xor eax, eax
push ebp
push 0x50082b
push dword fs:[eax]
mov dword fs:[eax], esp
lea edx, [ebp - 0x20]
mov eax, dword [ebp - 4]
call fcn.0050b248
xor eax, eax
push ebp
push 0x500773
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3f8]
mov dword [ebp - 0x74], eax
mov eax, dword [ebp - 0x74]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x74]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x48]
mov eax, dword [ebp - 0x74]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x500848
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x74]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x500998
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov edx, 0x5009c8
mov eax, dword [ebp - 0x74]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, dword [ebp - 0xc]
mov ecx, dword [eax]
call dword [ecx + 0x48]
call sub.rtl260.bpl__System_Sysutils_Now_qqrv
add esp, 0xfffffff8
fstp qword [esp]
wait
lea edx, [ebp - 0x90]
mov eax, 0x5009e0
call sub.rtl260.bpl__System_Sysutils_FormatDateTime_qqrx20System_UnicodeString16System_TDateTime
mov eax, dword [ebp - 0x90]
push eax
mov edx, 0x500a04
mov eax, dword [ebp - 0x74]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov eax, dword [ebp - 0x74]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Open_qqrv
mov eax, dword [ebp - 0x74]
mov edx, dword [eax]
call dword [edx + 0x194]
test eax, eax
jle 0x500111
mov edx, 0x500a1c
mov eax, dword [ebp - 0x74]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x14]
mov ecx, dword [eax]
call dword [ecx + 0x88]
mov edx, 0x500a30
mov eax, dword [ebp - 0x74]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x5c]
mov ecx, dword [eax]
call dword [ecx + 0x88]
mov edx, 0x500a50
mov eax, dword [ebp - 0x74]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x1c]
mov ecx, dword [eax]
call dword [ecx + 0x88]
mov edx, 0x500a64
mov eax, dword [ebp - 0x74]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x18]
mov ecx, dword [eax]
call dword [ecx + 0x88]
mov edx, 0x500a78
mov eax, dword [ebp - 0x74]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x60]
mov ecx, dword [eax]
call dword [ecx + 0x88]
mov edx, 0x500a90
mov eax, dword [ebp - 0x74]
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 - 0x74]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x74]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x48]
mov eax, dword [ebp - 0x74]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x500aa8
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x14]
mov edx, 0x500b3c
call sub.rtl260.bpl__System__UStrEqual_qqrv
jne 0x4ffee5
mov edx, 0x500b50
mov eax, dword [ebp - 0x74]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, 0x500b6c
mov ecx, dword [eax]
call dword [ecx + 0x48]
jmp 0x4fff4c
mov eax, dword [ebp - 0x14]
mov edx, 0x500b7c
call sub.rtl260.bpl__System__UStrEqual_qqrv
jne 0x4fff0d
mov edx, 0x500b50
mov eax, dword [ebp - 0x74]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, 0x500b90
mov ecx, dword [eax]
call dword [ecx + 0x48]
jmp 0x4fff4c
mov eax, dword [ebp - 0x14]
mov edx, 0x500ba0
call sub.rtl260.bpl__System__UStrEqual_qqrv
jne 0x4fff35
mov edx, 0x500b50
mov eax, dword [ebp - 0x74]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, 0x500bb4
mov ecx, dword [eax]
call dword [ecx + 0x48]
jmp 0x4fff4c
mov edx, 0x500b50
mov eax, dword [ebp - 0x74]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, 0x500bb4
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov edx, 0x500bc4
mov eax, dword [ebp - 0x74]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, dword [ebp - 8]
mov ecx, dword [eax]
call dword [ecx + 0x48]
call sub.rtl260.bpl__System_Sysutils_Now_qqrv
add esp, 0xfffffff8
fstp qword [esp]
wait
lea edx, [ebp - 0x94]
mov eax, 0x5009e0
call sub.rtl260.bpl__System_Sysutils_FormatDateTime_qqrx20System_UnicodeString16System_TDateTime
mov eax, dword [ebp - 0x94]
push eax
mov edx, 0x500bd8
mov eax, dword [ebp - 0x74]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov eax, dword [ebp - 0x74]
call sub.odac260.bpl__Ora_TOraDataSet_ExecSQL_qqrv
mov eax, dword [ebp - 0x60]
mov edx, 0x500bf0
call sub.rtl260.bpl__System__UStrEqual_qqrv
jne 0x50007f
mov eax, dword [ebp - 0x74]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x74]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x48]
mov eax, dword [ebp - 0x74]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x500c00
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov edx, 0x500bc4
mov eax, dword [ebp - 0x74]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, dword [ebp - 8]
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov eax, dword [ebp - 0x74]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Open_qqrv
mov edx, 0x500bc4
mov eax, dword [ebp - 0x74]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x24]
mov ecx, dword [eax]
call dword [ecx + 0x88]
mov edx, 0x500a64
mov eax, dword [ebp - 0x74]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x18]
mov ecx, dword [eax]
call dword [ecx + 0x88]
mov eax, dword [ebp - 0x74]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x74]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x48]
mov eax, dword [ebp - 0x74]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x500c64
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov edx, 0x500a50
mov eax, dword [ebp - 0x74]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, dword [ebp - 0x1c]
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov edx, 0x500a64
mov eax, dword [ebp - 0x74]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, dword [ebp - 0x18]
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov eax, dword [ebp - 0x74]
call sub.odac260.bpl__Ora_TOraDataSet_ExecSQL_qqrv
cmp dword [ebp + 8], 0
jne 0x5000d4
lea ecx, [ebp - 0x48]
mov eax, dword [0x730e20]
mov eax, dword [eax]
mov edx, dword [ebp + 0xc]
mov ebx, dword [eax]
call dword [ebx + 0xc]
mov eax, dword [ebp - 0x14]
mov edx, 0x500b7c
call sub.rtl260.bpl__System__UStrEqual_qqrv
je 0x5000fc
mov eax, dword [ebp - 0x68]
mov edx, 0x500ccc
call sub.rtl260.bpl__System__UStrEqual_qqrv
je 0x5000fc
push 0x500cdc
mov eax, dword [ebp - 0x48]
push eax
mov eax, dword [ebp - 0x18]
push eax
mov ecx, dword [ebp - 0x34]
mov edx, dword [ebp - 0x1c]
mov eax, dword [0x751b74]
call fcn.00511c18
jmp 0x5000fc
lea edx, [ebp - 0x48]
mov eax, dword [ebp + 0xc]
call sub.rtl260.bpl__System_Sysutils_IntToStr_qqri
push 0x500cdc
mov eax, dword [ebp - 0x48]
push eax
mov eax, dword [ebp - 0x18]
push eax
mov ecx, dword [ebp - 0x34]
mov edx, dword [ebp - 0x1c]
mov eax, dword [0x751b74]
call fcn.00511c18
mov eax, dword [ebp - 0x74]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x5007bc
mov eax, dword [ebp - 0x74]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x74]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x48]
mov eax, dword [ebp - 0x74]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x500cf0
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x74]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Open_qqrv
mov edx, 0x500d54
mov eax, dword [ebp - 0x74]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x28]
mov ecx, dword [eax]
call dword [ecx + 0x88]
mov eax, dword [ebp - 0x74]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x74]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x48]
mov eax, dword [ebp - 0x74]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x500d6c
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x74]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x500ef4
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov edx, 0x500bc4
mov eax, dword [ebp - 0x74]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, dword [ebp - 8]
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov eax, dword [ebp - 0x74]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Open_qqrv
mov edx, 0x500bc4
mov eax, dword [ebp - 0x74]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x24]
mov ecx, dword [eax]
call dword [ecx + 0x88]
mov edx, 0x500a64
mov eax, dword [ebp - 0x74]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x18]
mov ecx, dword [eax]
call dword [ecx + 0x88]
mov edx, 0x500f20
mov eax, dword [ebp - 0x74]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x30]
mov ecx, dword [eax]
call dword [ecx + 0x88]
mov eax, dword [ebp - 0x64]
mov edx, 0x500f38
call sub.rtl260.bpl__System__UStrEqual_qqrv
jne 0x500248
mov edx, 0x5009c8
mov eax, dword [ebp - 0x74]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x98]
mov ecx, dword [eax]
call dword [ecx + 0x88]
mov eax, dword [ebp - 0x98]
lea edx, [ebp - 0x34]
call fcn.006ef7f8
lea eax, [ebp - 0x4c]
mov edx, 0x500ccc
call sub.rtl260.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
lea eax, [ebp - 0x28]
mov edx, dword [ebp - 0x1c]
call sub.rtl260.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
jmp 0x50026f
lea eax, [ebp - 0x38]
mov edx, 0x500f48
call sub.rtl260.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
lea eax, [ebp - 0x34]
mov edx, 0x500f6c
call sub.rtl260.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
lea eax, [ebp - 0x4c]
mov edx, 0x500bf0
call sub.rtl260.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov edx, 0x5009c8
mov eax, dword [ebp - 0x74]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x44]
mov ecx, dword [eax]
call dword [ecx + 0x88]
mov edx, 0x500f94
mov eax, dword [ebp - 0x74]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x2c]
mov ecx, dword [eax]
call dword [ecx + 0x88]
mov eax, dword [ebp - 0x2c]
mov edx, 0x500bf0
call sub.rtl260.bpl__System__UStrEqual_qqrv
jne 0x5002bd
lea eax, [ebp - 0x2c]
mov edx, 0x500ccc
call sub.rtl260.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
jmp 0x5002ca
lea eax, [ebp - 0x2c]
mov edx, 0x500fa8
call sub.rtl260.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov edx, 0x500fb8
mov eax, dword [ebp - 0x74]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x58]
mov ecx, dword [eax]
call dword [ecx + 0x88]
mov edx, 0x500fd4
mov eax, dword [ebp - 0x74]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x54]
mov ecx, dword [eax]
call dword [ecx + 0x88]
mov al, byte [0x500fe8]
push eax
lea eax, [ebp - 0x9c]
push eax
xor ecx, ecx
mov edx, 0x500ff8
mov eax, dword [ebp - 0x54]
call sub.rtl260.bpl__System_Sysutils_StringReplace_qqrx20System_UnicodeStringt1t162System__Set_35System_Sysutils_System_Sysutils__8
mov edx, dword [ebp - 0x9c]
lea eax, [ebp - 0x54]
call sub.rtl260.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov edx, 0x501008
mov eax, dword [ebp - 0x74]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x50]
mov ecx, dword [eax]
call dword [ecx + 0x88]
mov al, byte [0x500fe8]
push eax
lea eax, [ebp - 0xa0]
push eax
xor ecx, ecx
mov edx, 0x500ff8
mov eax, dword [ebp - 0x50]
call sub.rtl260.bpl__System_Sysutils_StringReplace_qqrx20System_UnicodeStringt1t162System__Set_35System_Sysutils_System_Sysutils__8
mov edx, dword [ebp - 0xa0]
lea eax, [ebp - 0x50]
call sub.rtl260.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
lea ecx, [ebp - 0x48]
mov eax, dword [0x730e20]
mov eax, dword [eax]
mov edx, dword [ebp + 0xc]
mov ebx, dword [eax]
call dword [ebx + 0xc]
lea ecx, [ebp - 0x40]
mov edx, dword [ebp - 0x48]
mov eax, dword [ebp - 4]
call fcn.005080fc
cmp dword [ebp - 0x40], 0
je 0x50039b
mov eax, dword [ebp - 0x40]
mov edx, 0x501024
call sub.rtl260.bpl__System__UStrEqual_qqrv
jne 0x5003c1
xor ecx, ecx
mov edx, 0x501040
mov eax, 0x501058
call fcn.006ecc58
mov dword [ebp - 0x6c], eax
lea ecx, [ebp - 0x48]
mov eax, dword [0x730e20]
mov eax, dword [eax]
mov edx, dword [ebp - 0x6c]
mov ebx, dword [eax]
call dword [ebx + 0xc]
mov eax, dword [ebp - 0x64]
mov edx, 0x500f38
call sub.rtl260.bpl__System__UStrEqual_qqrv
je 0x500521
mov eax, dword [ebp - 0x74]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x74]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x48]
mov eax, dword [ebp - 0x74]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x501070
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x74]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x5010a8
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x74]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x501128
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x74]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x501144
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov edx, 0x500a50
mov eax, dword [ebp - 0x74]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, dword [ebp - 0x28]
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov edx, 0x500bc4
mov eax, dword [ebp - 0x74]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, dword [ebp - 0x24]
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov edx, 0x500a64
mov eax, dword [ebp - 0x74]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, dword [ebp - 0x18]
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov edx, 0x500a78
mov eax, dword [ebp - 0x74]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, 0x500ccc
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov edx, 0x501208
mov eax, dword [ebp - 0x74]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, 0x500bf0
mov ecx, dword [eax]
call dword [ecx + 0x48]
lea eax, [ebp - 0xa4]
push eax
mov ecx, 0x1e
mov edx, 1
mov eax, dword [ebp - 0x30]
call sub.rtl260.bpl__System__UStrCopy_qqrx20System_UnicodeStringii
mov eax, dword [ebp - 0xa4]
push eax
mov edx, 0x500f20
mov eax, dword [ebp - 0x74]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x48]
lea eax, [ebp - 0xa8]
push eax
mov ecx, 0x20
mov edx, 1
mov eax, dword [ebp - 0x44]
call sub.rtl260.bpl__System__UStrCopy_qqrx20System_UnicodeStringii
mov eax, dword [ebp - 0xa8]
push eax
mov edx, 0x5009c8
mov eax, dword [ebp - 0x74]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov edx, 0x501224
mov eax, dword [ebp - 0x74]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, dword [ebp - 0x48]
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov eax, dword [ebp - 0x74]
call sub.odac260.bpl__Ora_TOraDataSet_ExecSQL_qqrv
lea ecx, [ebp - 0x8c]
mov edx, dword [ebp - 0x48]
mov eax, dword [ebp - 4]
call fcn.0050d280
mov eax, dword [ebp - 0x74]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
push 0x50123c
push dword [ebp - 0x20]
push 0x50127c
push 0x501290
mov eax, dword [0x730d84]
push dword [eax]
push 0x50127c
push 0x5012bc
push dword [ebp - 0x18]
push 0x50127c
push 0x5012ec
push dword [ebp - 0x2c]
push 0x50127c
push 0x501314
push dword [ebp - 0x54]
push 0x50127c
push 0x501338
push dword [ebp - 0x58]
push 0x50127c
push 0x501358
push 0x501388
push dword [ebp - 0x50]
push 0x50127c
push 0x5013a8
push dword [ebp - 0x28]
push 0x50127c
push 0x5013e8
push dword [ebp - 0x8c]
push 0x50127c
push 0x501410
push dword [ebp - 0x88]
push 0x50127c
push 0x501434
mov eax, dword [ebp - 4]
push dword [eax + 0x4ac]
push 0x50127c
push 0x50145c
mov eax, dword [ebp - 4]
push dword [eax + 0x4b0]
push 0x50127c
push 0x501480
push dword [ebp - 0x84]
push 0x50127c
push 0x5014a8
push dword [ebp - 0x80]
push 0x50127c
push 0x5014cc
lea edx, [ebp - 0xac]
mov eax, dword [ebp - 4]
call fcn.0050b8e0
push dword [ebp - 0xac]
push 0x50127c
push 0x5014fc
push dword [ebp - 0x4c]
push 0x50127c
push 0x501534
push dword [ebp - 0x38]
push 0x50127c
push 0x50155c
push dword [ebp - 0x30]
push 0x50157c
lea eax, [ebp - 0x3c]
mov edx, 0x37
call sub.rtl260.bpl__System__UStrCatN_qqrv
lea eax, [ebp - 0x10]
mov edx, dword [ebp - 0x3c]
mov ecx, 0
call sub.rtl260.bpl__System__LStrFromUStr_qqrr27System__AnsiStringT_us_i0__x20System_UnicodeStringus
mov eax, dword [ebp - 0x10]
call sub.rtl260.bpl__System__PCharLen_qqrpc
mov ecx, eax
mov edx, dword [ebp - 0x10]
mov eax, dword [ebp - 4]
call fcn.00501a30
mov edx, eax
lea eax, [ebp - 0x70]
call sub.rtl260.bpl__System__UStrFromPChar_qqrr20System_UnicodeStringpc
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x44c]
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x3f4]
cmp eax, dword [edx + 0x5c]
jge 0x500711
push 0x501590
push dword [ebp - 0x10]
push 0x5015a0
push 0x5015b0
lea eax, [ebp - 0xb8]
mov edx, 4
call sub.rtl260.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0xb8]
lea eax, [ebp - 0xb4]
call sub.rtl260.bpl__System__UStrFromLStr_qqrr20System_UnicodeStringx27System__AnsiStringT_us_i0__
push dword [ebp - 0xb4]
push dword [ebp - 0x70]
push 0x5015c0
lea eax, [ebp - 0xb0]
mov edx, 3
call sub.rtl260.bpl__System__UStrCatN_qqrv
mov edx, dword [ebp - 0xb0]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x400]
mov eax, dword [eax + 0x304]
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x64]
mov edx, 0x500f38
call sub.rtl260.bpl__System__UStrEqual_qqrv
je 0x50073d
mov eax, dword [ebp - 0x24]
push eax
push 0
push 0x5015d0
mov eax, dword [ebp - 0x20]
push eax
mov ecx, dword [ebp - 0x28]
mov edx, dword [ebp - 0x48]
mov eax, dword [ebp - 4]
call fcn.005086c4
mov eax, dword [ebp - 0x4c]
mov edx, 0x500ccc
call sub.rtl260.bpl__System__UStrEqual_qqrv
jne 0x500769
push 0x500cdc
mov eax, dword [ebp - 0x48]
push eax
mov eax, dword [ebp - 0x18]
push eax
mov ecx, dword [ebp - 0x34]
mov edx, dword [ebp - 0x1c]
mov eax, dword [0x751b74]
call fcn.00511c18
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x5007bc
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x500832
lea eax, [ebp - 0xbc]
call sub.rtl260.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0xb8]
call sub.rtl260.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0xb4]
mov edx, 0xa
call sub.rtl260.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0x8c]
mov edx, dword [0x4f1cf8]
call sub.rtl260.bpl__System__FinalizeRecord_qqrpvt1
lea eax, [ebp - 0x70]
call sub.rtl260.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0x68]
mov edx, 0x16
call sub.rtl260.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0x10]
call sub.rtl260.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0xc]
mov edx, 2
call sub.rtl260.bpl__System__UStrArrayClr_qqrpvi
ret