Function at 0x43a8f4
Capabilities:
Reference sql statements

Disassembly:
push ebp
mov ebp, esp
mov ecx, 0x38
push 0
push 0
dec ecx
jne 0x43a8fc
push ebx
push esi
mov ebx, eax
xor eax, eax
push ebp
push 0x43b45a
push dword fs:[eax]
mov dword fs:[eax], esp
push 0x43b474
lea edx, [ebp - 0x18]
mov eax, dword [ebx + 0x340]
mov eax, dword [eax + 0x2a8]
mov ecx, dword [eax]
call dword [ecx + 0x1c]
push dword [ebp - 0x18]
push 0x43b49c
lea eax, [ebp - 0xc]
mov edx, 3
call sub.rtl60.bpl__System__LStrCatN_qqrv
mov eax, dword [ebx + 0x340]
mov eax, dword [eax + 0x2a8]
mov edx, 0x43b4ac
mov ecx, dword [eax]
call dword [ecx + 0x2c]
mov eax, dword [sym.imp.VEDatasets.bpl__Vedataset_defFirmaNo]
mov eax, dword [eax]
mov dword [ebp - 0x30], eax
mov byte [ebp - 0x2c], 0
lea eax, [ebp - 0x30]
push eax
push 0
lea eax, [ebp - 0x28]
push eax
mov ecx, 0x43b590
mov edx, dword [ebx + 0x338]
mov eax, dword [0x421610]
call fcn.0042175c
lea eax, [ebp - 0x28]
call sub.rtl60.bpl__System__VarToInt_qqrrx14System_Variant
mov dword [ebp - 4], eax
cmp dword [ebp - 4], 1
jge 0x43a9ab
mov edx, 0x40
mov eax, 0x43b5d8
call sub.vegalib60.bpl__Strtools_Mess_qqr17System_AnsiStringi
call sub.rtl60.bpl__Sysutils_Abort_qqrv
mov eax, dword [ebp - 4]
cmp eax, 6
ja case.0x43a9b3.0
jmp dword [eax*4 + 0x43a9ba]
lea eax, [ebp - 8]
mov edx, 0x43b5fc
call sub.rtl60.bpl__System__LStrLAsg_qqrpvpxv
jmp case.0x43a9b3.0
lea eax, [ebp - 8]
mov edx, 0x43b614
call sub.rtl60.bpl__System__LStrLAsg_qqrpvpxv
jmp case.0x43a9b3.0
lea eax, [ebp - 8]
mov edx, 0x43b62c
call sub.rtl60.bpl__System__LStrLAsg_qqrpvpxv
jmp case.0x43a9b3.0
lea eax, [ebp - 8]
mov edx, 0x43b64c
call sub.rtl60.bpl__System__LStrLAsg_qqrpvpxv
jmp case.0x43a9b3.0
lea eax, [ebp - 8]
mov edx, 0x43b670
call sub.rtl60.bpl__System__LStrLAsg_qqrpvpxv
jmp case.0x43a9b3.0
lea eax, [ebp - 8]
mov edx, 0x43b69c
call sub.rtl60.bpl__System__LStrLAsg_qqrpvpxv
lea edx, [ebp - 0x38]
mov esi, dword [ebx + 0x324]
mov eax, esi
call sub.vcl60.bpl__Controls_TControl_GetText_qqrv
mov ecx, dword [ebp - 0x38]
lea eax, [ebp - 0x34]
mov edx, dword [ebp - 8]
call sub.rtl60.bpl__System__LStrCat3_qqrv
mov edx, dword [ebp - 0x34]
mov eax, esi
call sub.vcl60.bpl__Controls_TControl_SetText_qqrx17System_AnsiString
mov eax, dword [ebx + 0x75c]
call sub.dbrtl60.bpl__Db_TDataSet_GetActive_qqrv
test al, al
je 0x43aa70
mov eax, dword [ebx + 0x75c]
call sub.dbrtl60.bpl__Db_TDataSet_Close_qqrv
cmp dword [0x43f1b0], 0
jne 0x43ab64
lea edx, [ebp - 0x14]
mov eax, dword [ebx + 0x790]
mov eax, dword [eax + 0x2b4]
mov ecx, dword [eax]
call dword [ecx + 0x1c]
lea eax, [ebp - 0x3c]
push eax
lea edx, [ebp - 0x40]
mov eax, dword [ebx + 0x790]
mov esi, dword [eax + 0x2b4]
mov eax, esi
mov ecx, dword [eax]
call dword [ecx + 0x1c]
mov eax, dword [ebp - 0x40]
mov ecx, dword [ebp - 0xc]
mov edx, 0x43b6b8
call sub.JVCL200_R60.bpl__Jvstrutils_ReplaceStr_qqrx17System_AnsiStringt1t1
mov edx, dword [ebp - 0x3c]
mov eax, esi
mov ecx, dword [eax]
call dword [ecx + 0x2c]
push 0
push 0
xor ecx, ecx
xor edx, edx
mov eax, dword [ebx + 0x790]
call sub.VEDatasets.bpl__Vedataset_TVEDataset_ParseSqlString_qqroiii
mov eax, dword [sym.imp.VEDatasets.bpl__Vedataset_defFirmaNo]
mov eax, dword [eax]
push eax
mov eax, dword [sym.imp.VEDatasets.bpl__Vedataset_defDonemNo]
mov eax, dword [eax]
push eax
lea edx, [ebp - 0x44]
mov eax, dword [ebx + 0x790]
mov eax, dword [eax + 0x2a8]
mov ecx, dword [eax]
call dword [ecx + 0x1c]
mov edx, dword [ebp - 0x44]
mov ecx, 0x43b6d4
mov eax, dword [ebx + 0x338]
call fcn.00438b74
mov eax, dword [ebx + 0x790]
mov eax, dword [eax + 0x2b4]
mov edx, dword [ebp - 0x14]
mov ecx, dword [eax]
call dword [ecx + 0x2c]
mov eax, dword [sym.imp.VEDatasets.bpl__Vedataset_defDonemNo]
mov eax, dword [eax]
push eax
lea eax, [ebp - 0x4c]
push eax
mov ecx, dword [sym.imp.VEDatasets.bpl__Vedataset_defFirmaNo]
mov ecx, dword [ecx]
mov edx, 0x43b6f4
mov eax, dword [0x421610]
call fcn.00421b08
mov edx, dword [ebp - 0x4c]
lea eax, [ebp - 0x48]
call sub.rtl60.bpl__System__WStrFromLStr_qqrr17System_WideStringx17System_AnsiString
mov edx, dword [ebp - 0x48]
mov eax, dword [ebx + 0x75c]
call sub.adortl60.bpl__Adodb_TCustomADODataSet_SetCommandText_qqrx17System_WideString
jmp 0x43ac46
lea edx, [ebp - 0x14]
mov eax, dword [ebx + 0x760]
mov eax, dword [eax + 0x2b4]
mov ecx, dword [eax]
call dword [ecx + 0x1c]
lea eax, [ebp - 0x50]
push eax
lea edx, [ebp - 0x54]
mov eax, dword [ebx + 0x760]
mov esi, dword [eax + 0x2b4]
mov eax, esi
mov ecx, dword [eax]
call dword [ecx + 0x1c]
mov eax, dword [ebp - 0x54]
mov ecx, dword [ebp - 0xc]
mov edx, 0x43b6b8
call sub.JVCL200_R60.bpl__Jvstrutils_ReplaceStr_qqrx17System_AnsiStringt1t1
mov edx, dword [ebp - 0x50]
mov eax, esi
mov ecx, dword [eax]
call dword [ecx + 0x2c]
push 0
push 0
xor ecx, ecx
xor edx, edx
mov eax, dword [ebx + 0x760]
call sub.VEDatasets.bpl__Vedataset_TVEDataset_ParseSqlString_qqroiii
mov eax, dword [sym.imp.VEDatasets.bpl__Vedataset_defFirmaNo]
mov eax, dword [eax]
push eax
mov eax, dword [sym.imp.VEDatasets.bpl__Vedataset_defDonemNo]
mov eax, dword [eax]
push eax
lea edx, [ebp - 0x58]
mov eax, dword [ebx + 0x760]
mov eax, dword [eax + 0x2a8]
mov ecx, dword [eax]
call dword [ecx + 0x1c]
mov edx, dword [ebp - 0x58]
mov ecx, 0x43b718
mov eax, dword [ebx + 0x338]
call fcn.00438b74
mov eax, dword [ebx + 0x760]
mov eax, dword [eax + 0x2b4]
mov edx, dword [ebp - 0x14]
mov ecx, dword [eax]
call dword [ecx + 0x2c]
mov eax, dword [sym.imp.VEDatasets.bpl__Vedataset_defDonemNo]
mov eax, dword [eax]
push eax
lea eax, [ebp - 0x60]
push eax
mov ecx, dword [sym.imp.VEDatasets.bpl__Vedataset_defFirmaNo]
mov ecx, dword [ecx]
mov edx, 0x43b73c
mov eax, dword [0x421610]
call fcn.00421b08
mov edx, dword [ebp - 0x60]
lea eax, [ebp - 0x5c]
call sub.rtl60.bpl__System__WStrFromLStr_qqrr17System_WideStringx17System_AnsiString
mov edx, dword [ebp - 0x5c]
mov eax, dword [ebx + 0x75c]
call sub.adortl60.bpl__Adodb_TCustomADODataSet_SetCommandText_qqrx17System_WideString
mov eax, dword [ebx + 0x75c]
call sub.adortl60.bpl__Adodb_TCustomADODataSet_GetParameters_qqrv
call sub.rtl60.bpl__Classes_TCollection_GetCount_qqrv
mov esi, eax
dec esi
cmp esi, 0
jl 0x43ac7d
mov eax, dword [ebx + 0x75c]
call sub.adortl60.bpl__Adodb_TCustomADODataSet_GetParameters_qqrv
mov edx, esi
call sub.adortl60.bpl__Adodb_TParameters_GetItem_qqri
mov dl, 1
mov ecx, dword [eax]
call dword [ecx - 4]
dec esi
cmp esi, 0xffffffff
jne 0x43ac5e
mov eax, dword [ebx + 0x75c]
call sub.adortl60.bpl__Adodb_TCustomADODataSet_GetParameters_qqrv
call sub.adortl60.bpl__Adodb_TParameters_AddParameter_qqrv
mov eax, dword [ebx + 0x75c]
call sub.adortl60.bpl__Adodb_TCustomADODataSet_GetParameters_qqrv
xor edx, edx
call sub.adortl60.bpl__Adodb_TParameters_GetItem_qqri
mov edx, 0x43b760
call sub.adortl60.bpl__Adodb_TParameter_SetName_qqrx17System_WideString
mov eax, dword [ebx + 0x75c]
call sub.adortl60.bpl__Adodb_TCustomADODataSet_GetParameters_qqrv
xor edx, edx
call sub.adortl60.bpl__Adodb_TParameters_GetItem_qqri
mov dl, 3
call sub.adortl60.bpl__Adodb_TParameter_SetDataType_qqrx13Db_TFieldType
mov eax, dword [ebx + 0x75c]
call sub.adortl60.bpl__Adodb_TCustomADODataSet_GetParameters_qqrv
xor edx, edx
call sub.adortl60.bpl__Adodb_TParameters_GetItem_qqri
mov dl, 1
call sub.adortl60.bpl__Adodb_TParameter_SetParameterDirection_qqrx25Adodb_TParameterDirection
mov eax, dword [ebx + 0x75c]
call sub.adortl60.bpl__Adodb_TCustomADODataSet_GetParameters_qqrv
call sub.adortl60.bpl__Adodb_TParameters_AddParameter_qqrv
mov eax, dword [ebx + 0x75c]
call sub.adortl60.bpl__Adodb_TCustomADODataSet_GetParameters_qqrv
mov edx, 1
call sub.adortl60.bpl__Adodb_TParameters_GetItem_qqri
mov edx, 0x43b778
call sub.adortl60.bpl__Adodb_TParameter_SetName_qqrx17System_WideString
mov eax, dword [ebx + 0x75c]
call sub.adortl60.bpl__Adodb_TCustomADODataSet_GetParameters_qqrv
mov edx, 1
call sub.adortl60.bpl__Adodb_TParameters_GetItem_qqri
mov dl, 3
call sub.adortl60.bpl__Adodb_TParameter_SetDataType_qqrx13Db_TFieldType
mov eax, dword [ebx + 0x75c]
call sub.adortl60.bpl__Adodb_TCustomADODataSet_GetParameters_qqrv
mov edx, 1
call sub.adortl60.bpl__Adodb_TParameters_GetItem_qqri
mov dl, 1
call sub.adortl60.bpl__Adodb_TParameter_SetParameterDirection_qqrx25Adodb_TParameterDirection
mov eax, dword [ebx + 0x75c]
call sub.adortl60.bpl__Adodb_TCustomADODataSet_GetParameters_qqrv
call sub.adortl60.bpl__Adodb_TParameters_AddParameter_qqrv
mov eax, dword [ebx + 0x75c]
call sub.adortl60.bpl__Adodb_TCustomADODataSet_GetParameters_qqrv
mov edx, 2
call sub.adortl60.bpl__Adodb_TParameters_GetItem_qqri
mov edx, 0x43b78c
call sub.adortl60.bpl__Adodb_TParameter_SetName_qqrx17System_WideString
mov eax, dword [ebx + 0x75c]
call sub.adortl60.bpl__Adodb_TCustomADODataSet_GetParameters_qqrv
mov edx, 2
call sub.adortl60.bpl__Adodb_TParameters_GetItem_qqri
mov dl, 3
call sub.adortl60.bpl__Adodb_TParameter_SetDataType_qqrx13Db_TFieldType
mov eax, dword [ebx + 0x75c]
call sub.adortl60.bpl__Adodb_TCustomADODataSet_GetParameters_qqrv
mov edx, 2
call sub.adortl60.bpl__Adodb_TParameters_GetItem_qqri
mov dl, 1
call sub.adortl60.bpl__Adodb_TParameter_SetParameterDirection_qqrx25Adodb_TParameterDirection
mov eax, dword [ebx + 0x75c]
call sub.adortl60.bpl__Adodb_TCustomADODataSet_GetParameters_qqrv
call sub.adortl60.bpl__Adodb_TParameters_AddParameter_qqrv
mov eax, dword [ebx + 0x75c]
call sub.adortl60.bpl__Adodb_TCustomADODataSet_GetParameters_qqrv
mov edx, 3
call sub.adortl60.bpl__Adodb_TParameters_GetItem_qqri
mov edx, 0x43b7a0
call sub.adortl60.bpl__Adodb_TParameter_SetName_qqrx17System_WideString
mov eax, dword [ebx + 0x75c]
call sub.adortl60.bpl__Adodb_TCustomADODataSet_GetParameters_qqrv
mov edx, 3
call sub.adortl60.bpl__Adodb_TParameters_GetItem_qqri
mov dl, 3
call sub.adortl60.bpl__Adodb_TParameter_SetDataType_qqrx13Db_TFieldType
mov eax, dword [ebx + 0x75c]
call sub.adortl60.bpl__Adodb_TCustomADODataSet_GetParameters_qqrv
mov edx, 3
call sub.adortl60.bpl__Adodb_TParameters_GetItem_qqri
mov dl, 1
call sub.adortl60.bpl__Adodb_TParameter_SetParameterDirection_qqrx25Adodb_TParameterDirection
mov eax, dword [ebx + 0x75c]
call sub.adortl60.bpl__Adodb_TCustomADODataSet_GetParameters_qqrv
call sub.adortl60.bpl__Adodb_TParameters_AddParameter_qqrv
mov eax, dword [ebx + 0x75c]
call sub.adortl60.bpl__Adodb_TCustomADODataSet_GetParameters_qqrv
mov edx, 4
call sub.adortl60.bpl__Adodb_TParameters_GetItem_qqri
mov edx, 0x43b7bc
call sub.adortl60.bpl__Adodb_TParameter_SetName_qqrx17System_WideString
mov eax, dword [ebx + 0x75c]
call sub.adortl60.bpl__Adodb_TCustomADODataSet_GetParameters_qqrv
mov edx, 4
call sub.adortl60.bpl__Adodb_TParameters_GetItem_qqri
mov dl, 0xb
call sub.adortl60.bpl__Adodb_TParameter_SetDataType_qqrx13Db_TFieldType
mov eax, dword [ebx + 0x75c]
call sub.adortl60.bpl__Adodb_TCustomADODataSet_GetParameters_qqrv
mov edx, 4
call sub.adortl60.bpl__Adodb_TParameters_GetItem_qqri
mov dl, 1
call sub.adortl60.bpl__Adodb_TParameter_SetParameterDirection_qqrx25Adodb_TParameterDirection
mov eax, dword [ebx + 0x75c]
call sub.adortl60.bpl__Adodb_TCustomADODataSet_GetParameters_qqrv
call sub.adortl60.bpl__Adodb_TParameters_AddParameter_qqrv
mov eax, dword [ebx + 0x75c]
call sub.adortl60.bpl__Adodb_TCustomADODataSet_GetParameters_qqrv
mov edx, 5
call sub.adortl60.bpl__Adodb_TParameters_GetItem_qqri
mov edx, 0x43b7d4
call sub.adortl60.bpl__Adodb_TParameter_SetName_qqrx17System_WideString
mov eax, dword [ebx + 0x75c]
call sub.adortl60.bpl__Adodb_TCustomADODataSet_GetParameters_qqrv
mov edx, 5
call sub.adortl60.bpl__Adodb_TParameters_GetItem_qqri
mov dl, 0xb
call sub.adortl60.bpl__Adodb_TParameter_SetDataType_qqrx13Db_TFieldType
mov eax, dword [ebx + 0x75c]
call sub.adortl60.bpl__Adodb_TCustomADODataSet_GetParameters_qqrv
mov edx, 5
call sub.adortl60.bpl__Adodb_TParameters_GetItem_qqri
mov dl, 1
call sub.adortl60.bpl__Adodb_TParameter_SetParameterDirection_qqrx25Adodb_TParameterDirection
mov eax, dword [ebx + 0x75c]
call sub.adortl60.bpl__Adodb_TCustomADODataSet_GetParameters_qqrv
call sub.adortl60.bpl__Adodb_TParameters_AddParameter_qqrv
mov eax, dword [ebx + 0x75c]
call sub.adortl60.bpl__Adodb_TCustomADODataSet_GetParameters_qqrv
mov edx, 6
call sub.adortl60.bpl__Adodb_TParameters_GetItem_qqri
mov edx, 0x43b7ec
call sub.adortl60.bpl__Adodb_TParameter_SetName_qqrx17System_WideString
mov eax, dword [ebx + 0x75c]
call sub.adortl60.bpl__Adodb_TCustomADODataSet_GetParameters_qqrv
mov edx, 6
call sub.adortl60.bpl__Adodb_TParameters_GetItem_qqri
mov dl, 1
call sub.adortl60.bpl__Adodb_TParameter_SetDataType_qqrx13Db_TFieldType
mov eax, dword [ebx + 0x75c]
call sub.adortl60.bpl__Adodb_TCustomADODataSet_GetParameters_qqrv
mov edx, 6
call sub.adortl60.bpl__Adodb_TParameters_GetItem_qqri
mov dl, 1
call sub.adortl60.bpl__Adodb_TParameter_SetParameterDirection_qqrx25Adodb_TParameterDirection
lea edx, [ebp - 0x70]
mov eax, dword [ebx + 0x6f8]
call fcn.004078d8
lea eax, [ebp - 0x70]
push eax
lea eax, [ebp - 0x80]
xor edx, edx
call sub.rtl60.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
lea edx, [ebp - 0x80]
pop eax
call sub.rtl60.bpl__System__VarCmpNE_qqrrx14System_Variantt1
je 0x43b070
lea edx, [ebp - 0xa4]
mov eax, dword [ebx + 0x6f8]
mov ecx, dword [eax]
call dword [ecx + 0x30]
mov eax, dword [ebp - 0xa4]
push eax
lea edx, [ebp - 0xb8]
mov eax, dword [ebx + 0x6f8]
call fcn.004078d8
lea edx, [ebp - 0xb8]
lea eax, [ebp - 0xa8]
call sub.rtl60.bpl__System__VarToLStr_qqrr17System_AnsiStringrx14System_Variant
mov edx, dword [ebp - 0xa8]
lea ecx, [ebp - 0xa0]
pop eax
call fcn.00438f1c
fld qword [ebp - 0xa0]
lea eax, [ebp - 0x90]
call sub.rtl60.bpl__System__VarFromTDateTime_qqrv
lea eax, [ebp - 0x90]
push eax
mov eax, dword [ebx + 0x75c]
call sub.adortl60.bpl__Adodb_TCustomADODataSet_GetParameters_qqrv
mov edx, 0x43b7bc
call sub.adortl60.bpl__Adodb_TParameters_ParamByName_qqrx17System_WideString
pop edx
call sub.adortl60.bpl__Adodb_TParameter_SetValue_qqrrx14System_Variant
lea edx, [ebp - 0xcc]
mov eax, dword [ebx + 0x6f8]
mov ecx, dword [eax]
call dword [ecx + 0x30]
mov eax, dword [ebp - 0xcc]
push eax
lea edx, [ebp - 0xe0]
mov eax, dword [ebx + 0x6f8]
call fcn.004078d8
lea edx, [ebp - 0xe0]
lea eax, [ebp - 0xd0]
call sub.rtl60.bpl__System__VarToLStr_qqrr17System_AnsiStringrx14System_Variant
mov edx, dword [ebp - 0xd0]
lea ecx, [ebp - 0xa0]
pop eax
call fcn.00438f1c
fld qword [ebp - 0x98]
lea eax, [ebp - 0xc8]
call sub.rtl60.bpl__System__VarFromTDateTime_qqrv
lea eax, [ebp - 0xc8]
push eax
mov eax, dword [ebx + 0x75c]
call sub.adortl60.bpl__Adodb_TCustomADODataSet_GetParameters_qqrv
mov edx, 0x43b7d4
call sub.adortl60.bpl__Adodb_TParameters_ParamByName_qqrx17System_WideString
pop edx
call sub.adortl60.bpl__Adodb_TParameter_SetValue_qqrrx14System_Variant
jmp 0x43b0ca
mov eax, dword [ebx + 0x75c]
call sub.adortl60.bpl__Adodb_TCustomADODataSet_GetParameters_qqrv
mov edx, 0x43b7bc
call sub.adortl60.bpl__Adodb_TParameters_ParamByName_qqrx17System_WideString
push eax
lea eax, [ebp - 0xf0]
call sub.rtl60.bpl__Variants_Null_qqrv
lea edx, [ebp - 0xf0]
pop eax
call sub.adortl60.bpl__Adodb_TParameter_SetValue_qqrrx14System_Variant
mov eax, dword [ebx + 0x75c]
call sub.adortl60.bpl__Adodb_TCustomADODataSet_GetParameters_qqrv
mov edx, 0x43b7d4
call sub.adortl60.bpl__Adodb_TParameters_ParamByName_qqrx17System_WideString
push eax
lea eax, [ebp - 0x100]
call sub.rtl60.bpl__Variants_Null_qqrv
lea edx, [ebp - 0x100]
pop eax
call sub.adortl60.bpl__Adodb_TParameter_SetValue_qqrrx14System_Variant
lea edx, [ebp - 0x104]
mov eax, dword [ebx + 0x6fc]
mov ecx, dword [eax]
call dword [ecx + 0x30]
cmp dword [ebp - 0x104], 0
je 0x43b142
lea edx, [ebp - 0x114]
mov eax, dword [ebx + 0x6fc]
call fcn.004078d8
lea eax, [ebp - 0x114]
push eax
lea eax, [ebp - 0x124]
xor edx, edx
call sub.rtl60.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
lea edx, [ebp - 0x124]
pop eax
call sub.rtl60.bpl__System__VarCmpNE_qqrrx14System_Variantt1
je 0x43b138
lea edx, [ebp - 0x134]
mov eax, dword [ebx + 0x6fc]
call fcn.004078d8
lea edx, [ebp - 0x134]
lea eax, [ebp - 0x10]
call sub.rtl60.bpl__System__VarToLStr_qqrr17System_AnsiStringrx14System_Variant
jmp 0x43b14a
lea eax, [ebp - 0x10]
call fcn.0041af9c
jmp 0x43b14a
lea eax, [ebp - 0x10]
call fcn.0041af9c
lea eax, [ebp - 0x148]
push eax
lea edx, [ebp - 0x15c]
mov eax, dword [ebx + 0x7c4]
call fcn.004078d8
lea edx, [ebp - 0x15c]
lea eax, [ebp - 0x14c]
call sub.rtl60.bpl__System__VarToLStr_qqrr17System_AnsiStringrx14System_Variant
mov eax, dword [ebp - 0x14c]
mov ecx, 1
mov edx, 1
call sub.rtl60.bpl__System__LStrCopy_qqrv
mov eax, dword [ebp - 0x148]
call sub.rtl60.bpl__Sysutils_StrToInt_qqrx17System_AnsiString
mov edx, eax
lea eax, [ebp - 0x144]
mov cl, 0xfc
call sub.rtl60.bpl__System__VarFromInt_qqrr14System_Variantxixi
lea eax, [ebp - 0x144]
push eax
mov eax, dword [ebx + 0x75c]
call sub.adortl60.bpl__Adodb_TCustomADODataSet_GetParameters_qqrv
mov edx, 0x43b78c
call sub.adortl60.bpl__Adodb_TParameters_ParamByName_qqrx17System_WideString
pop edx
call sub.adortl60.bpl__Adodb_TParameter_SetValue_qqrrx14System_Variant
mov eax, dword [ebx + 0x75c]
call sub.adortl60.bpl__Adodb_TCustomADODataSet_GetParameters_qqrv
mov edx, 0x43b760
call sub.adortl60.bpl__Adodb_TParameters_ParamByName_qqrx17System_WideString
push eax
lea eax, [ebp - 0x16c]
mov edx, dword [ebp - 4]
mov cl, 0xfc
call sub.rtl60.bpl__System__VarFromInt_qqrr14System_Variantxixi
lea edx, [ebp - 0x16c]
pop eax
call sub.adortl60.bpl__Adodb_TParameter_SetValue_qqrrx14System_Variant
mov eax, dword [ebx + 0x75c]
call sub.adortl60.bpl__Adodb_TCustomADODataSet_GetParameters_qqrv
mov edx, 0x43b7ec
call sub.adortl60.bpl__Adodb_TParameters_ParamByName_qqrx17System_WideString
push eax
lea eax, [ebp - 0x17c]
mov edx, dword [ebp - 0x10]
call sub.rtl60.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
lea edx, [ebp - 0x17c]
pop eax
call sub.adortl60.bpl__Adodb_TParameter_SetValue_qqrrx14System_Variant
lea edx, [ebp - 0x180]
mov eax, dword [ebx + 0x730]
mov ecx, dword [eax]
call dword [ecx + 0x30]
cmp dword [ebp - 0x180], 0
je 0x43b275
lea edx, [ebp - 0x190]
mov eax, dword [ebx + 0x730]
call fcn.004078d8
lea eax, [ebp - 0x190]
push eax
mov eax, dword [ebx + 0x75c]
call sub.adortl60.bpl__Adodb_TCustomADODataSet_GetParameters_qqrv
mov edx, 0x43b7a0
call sub.adortl60.bpl__Adodb_TParameters_ParamByName_qqrx17System_WideString
pop edx
call sub.adortl60.bpl__Adodb_TParameter_SetValue_qqrrx14System_Variant
jmp 0x43b2a2
mov eax, dword [ebx + 0x75c]
call sub.adortl60.bpl__Adodb_TCustomADODataSet_GetParameters_qqrv
mov edx, 0x43b7a0
call sub.adortl60.bpl__Adodb_TParameters_ParamByName_qqrx17System_WideString
push eax
lea eax, [ebp - 0x1a0]
call sub.rtl60.bpl__Variants_Null_qqrv
lea edx, [ebp - 0x1a0]
pop eax
call sub.adortl60.bpl__Adodb_TParameter_SetValue_qqrrx14System_Variant
cmp dword [ebx + 0x7f4], 0
jle 0x43b2e2
mov eax, dword [ebx + 0x75c]
call sub.adortl60.bpl__Adodb_TCustomADODataSet_GetParameters_qqrv
mov edx, 0x43b778
call sub.adortl60.bpl__Adodb_TParameters_ParamByName_qqrx17System_WideString
push eax
lea eax, [ebp - 0x1b0]
mov edx, dword [ebx + 0x7f4]
mov cl, 0xfc
call sub.rtl60.bpl__System__VarFromInt_qqrr14System_Variantxixi
lea edx, [ebp - 0x1b0]
pop eax
call sub.adortl60.bpl__Adodb_TParameter_SetValue_qqrrx14System_Variant
jmp 0x43b30f
mov eax, dword [ebx + 0x75c]
call sub.adortl60.bpl__Adodb_TCustomADODataSet_GetParameters_qqrv
mov edx, 0x43b778
call sub.adortl60.bpl__Adodb_TParameters_ParamByName_qqrx17System_WideString
push eax
lea eax, [ebp - 0x1c0]
call sub.rtl60.bpl__Variants_Null_qqrv
lea edx, [ebp - 0x1c0]
pop eax
call sub.adortl60.bpl__Adodb_TParameter_SetValue_qqrrx14System_Variant
mov eax, dword [ebx + 0x75c]
call sub.dbrtl60.bpl__Db_TDataSet_Open_qqrv
mov edx, dword [ebx + 0x75c]
mov eax, dword [ebx + 0x33c]
call sub.dbrtl60.bpl__Db_TDataSource_SetDataSet_qqrp11Db_TDataSet
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x43b464
lea eax, [ebp - 0x1c0]
mov edx, dword [sym.imp.rtl60.bpl___xp_14System_Variant]
mov ecx, 4
call sub.rtl60.bpl__System__FinalizeArray_qqrpvt1ui
lea eax, [ebp - 0x180]
call sub.rtl60.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x17c]
mov edx, dword [sym.imp.rtl60.bpl___xp_14System_Variant]
mov ecx, 3
call sub.rtl60.bpl__System__FinalizeArray_qqrpvt1ui
lea eax, [ebp - 0x14c]
mov edx, 2
call sub.rtl60.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x144]
mov edx, dword [sym.imp.rtl60.bpl___xp_14System_Variant]
mov ecx, 4
call sub.rtl60.bpl__System__FinalizeArray_qqrpvt1ui
lea eax, [ebp - 0x104]
call sub.rtl60.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x100]
mov edx, dword [sym.imp.rtl60.bpl___xp_14System_Variant]
mov ecx, 3
call sub.rtl60.bpl__System__FinalizeArray_qqrpvt1ui
lea eax, [ebp - 0xd0]
mov edx, 2
call sub.rtl60.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0xc8]
mov edx, dword [sym.imp.rtl60.bpl___xp_14System_Variant]
mov ecx, 2
call sub.rtl60.bpl__System__FinalizeArray_qqrpvt1ui
lea eax, [ebp - 0xa8]
mov edx, 2
call sub.rtl60.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x90]
mov edx, dword [sym.imp.rtl60.bpl___xp_14System_Variant]
mov ecx, 3
call sub.rtl60.bpl__System__FinalizeArray_qqrpvt1ui
lea eax, [ebp - 0x60]
call sub.rtl60.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x5c]
call sub.rtl60.bpl__System__WStrClr_qqrpv
lea eax, [ebp - 0x58]
mov edx, 4
call sub.rtl60.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x48]
call sub.rtl60.bpl__System__WStrClr_qqrpv
lea eax, [ebp - 0x44]
mov edx, 3
call sub.rtl60.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x38]
call sub.rtl60.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x34]
call sub.rtl60.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x28]
call sub.rtl60.bpl__System__VarClr_qqrr14System_Variant
lea eax, [ebp - 0x18]
mov edx, 5
call sub.rtl60.bpl__System__LStrArrayClr_qqrpvi
ret