Function at 0x41c6d8
Capabilities:
Reference sql statements

Disassembly:
push ebp
mov ebp, esp
mov ecx, 0x4f
push 0
push 0
dec ecx
jne 0x41c6e0
push ebx
push esi
push edi
mov dword [ebp - 8], edx
mov dword [ebp - 4], eax
xor eax, eax
push ebp
push 0x41d0a0
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 4]
add eax, 0xd0
call sub.Vcl50.bpl__System__LStrClr_qqrr17System_AnsiString
mov eax, dword [ebp - 8]
call sub.Vcldb50.bpl__Db_TDataSet_First_qqrv
jmp 0x41cf51
xor eax, eax
push ebp
push 0x41cf24
push dword fs:[eax]
mov dword fs:[eax], esp
xor eax, eax
push ebp
push 0x41c8fa
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x84]
xor edx, edx
mov ecx, dword [eax]
call dword [ecx + 0x178]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x84]
mov eax, dword [eax + 0x238]
mov edx, dword [eax]
call dword [edx + 0x40]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x84]
mov eax, dword [eax + 0x238]
mov edx, 0x41d0bc
mov ecx, dword [eax]
call dword [ecx + 0x34]
push 1
lea eax, [ebp - 0x34]
push eax
lea edx, [ebp - 0x38]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x84]
mov eax, dword [eax + 0x238]
mov ecx, dword [eax]
call dword [ecx + 0x1c]
mov eax, dword [ebp - 0x38]
push eax
push 5
push 1
mov eax, dword [ebp - 4]
add eax, 0xa8
push eax
lea eax, [ebp - 0x4c]
push eax
call sub.Vcl50.bpl__System__VarArrayGet_qr14System_Variantii
add esp, 0x10
lea eax, [ebp - 0x4c]
push eax
lea eax, [ebp - 0x5c]
mov edx, 0x41d110
call sub.Vcl50.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
lea edx, [ebp - 0x5c]
pop eax
call sub.Vcl50.bpl__System__VarAdd_qqrv
lea edx, [ebp - 0x4c]
lea eax, [ebp - 0x3c]
call sub.Vcl50.bpl__System__VarToLStr_qqrr17System_AnsiStringrx14System_Variant
mov ecx, dword [ebp - 0x3c]
mov edx, 0x41d11c
pop eax
call fcn.004035c4
mov edx, dword [ebp - 0x34]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x84]
mov eax, dword [eax + 0x238]
mov ecx, dword [eax]
call dword [ecx + 0x2c]
mov edx, 0x41d128
mov eax, dword [ebp - 8]
call sub.Vcldb50.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x60]
mov ecx, dword [eax]
call dword [ecx + 0x58]
mov eax, dword [ebp - 0x60]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x84]
mov edx, 0x41d138
call sub.Vclbde50.bpl__Dbtables_TQuery_ParamByName_qqrx17System_AnsiString
pop edx
call sub.Vcldb50.bpl__Db_TParam_SetAsString_qqrx17System_AnsiString
mov edx, 0x41d148
mov eax, dword [ebp - 8]
call sub.Vcldb50.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x64]
mov ecx, dword [eax]
call dword [ecx + 0x58]
mov eax, dword [ebp - 0x64]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x84]
mov edx, 0x41d158
call sub.Vclbde50.bpl__Dbtables_TQuery_ParamByName_qqrx17System_AnsiString
pop edx
call sub.Vcldb50.bpl__Db_TParam_SetAsString_qqrx17System_AnsiString
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x84]
mov dl, 1
mov ecx, dword [eax]
call dword [ecx + 0x178]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x84]
call sub.Vcldb50.bpl__Db_TDataSet_First_qqrv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x84]
cmp byte [eax + 0x91], 0
jne 0x41c8ac
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x84]
mov edx, 0x41d168
call sub.Vcldb50.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x10]
mov ecx, dword [eax]
call dword [ecx + 0x58]
jmp 0x41c8dd
mov eax, dword [ebp - 4]
add eax, 0xd0
mov edx, 0x41d178
call sub.Vcl50.bpl__System__LStrAsg_qqrv
mov eax, dword [ebp - 4]
mov byte [eax + 0xec], 1
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x41cf61
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x84]
xor edx, edx
mov ecx, dword [eax]
call dword [ecx + 0x178]
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x41c945
xor eax, eax
push ebp
push 0x41ceec
push dword fs:[eax]
mov dword fs:[eax], esp
lea eax, [ebp - 0x30]
push eax
mov edx, 0x41d1b8
mov eax, dword [ebp - 8]
call sub.Vcldb50.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x128]
mov ecx, dword [eax]
call dword [ecx + 0x58]
mov edx, dword [ebp - 0x128]
lea eax, [ebp - 0x124]
call sub.Vcl50.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
lea esi, [ebp - 0x124]
lea edi, [ebp - 0x114]
mov ecx, 4
rep movsd dword es:[edi], dword [esi]
lea eax, [ebp - 0x138]
mov edx, dword [ebp - 0x10]
call sub.Vcl50.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
lea esi, [ebp - 0x138]
lea edi, [ebp - 0x104]
mov ecx, 4
rep movsd dword es:[edi], dword [esi]
mov al, 0x36
mov byte [ebp - 0x14b], al
mov byte [ebp - 0x14c], 1
lea eax, [ebp - 0x148]
lea edx, [ebp - 0x14c]
call sub.Vcl50.bpl__System__VarFromPStr_qqrr14System_Variantrx28System__SmallString_iuc_255_
lea esi, [ebp - 0x148]
lea edi, [ebp - 0xf4]
mov ecx, 4
rep movsd dword es:[edi], dword [esi]
mov edx, 0x41d1c8
mov eax, dword [ebp - 8]
call sub.Vcldb50.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x160]
mov ecx, dword [eax]
call dword [ecx + 0x58]
mov edx, dword [ebp - 0x160]
lea eax, [ebp - 0x15c]
call sub.Vcl50.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
lea esi, [ebp - 0x15c]
lea edi, [ebp - 0xe4]
mov ecx, 4
rep movsd dword es:[edi], dword [esi]
mov edx, 0x41d1c8
mov eax, dword [ebp - 8]
call sub.Vcldb50.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x174]
mov ecx, dword [eax]
call dword [ecx + 0x58]
mov edx, dword [ebp - 0x174]
lea eax, [ebp - 0x170]
call sub.Vcl50.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
lea esi, [ebp - 0x170]
lea edi, [ebp - 0xd4]
mov ecx, 4
rep movsd dword es:[edi], dword [esi]
lea eax, [ebp - 0x184]
xor edx, edx
call sub.Vcl50.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
lea esi, [ebp - 0x184]
lea edi, [ebp - 0xc4]
mov ecx, 4
rep movsd dword es:[edi], dword [esi]
lea eax, [ebp - 0x194]
xor edx, edx
call sub.Vcl50.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
lea esi, [ebp - 0x194]
lea edi, [ebp - 0xb4]
mov ecx, 4
rep movsd dword es:[edi], dword [esi]
mov edx, 0x41d1d8
mov eax, dword [ebp - 8]
call sub.Vcldb50.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x1a8]
mov ecx, dword [eax]
call dword [ecx + 0x58]
mov edx, dword [ebp - 0x1a8]
lea eax, [ebp - 0x1a4]
call sub.Vcl50.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
lea esi, [ebp - 0x1a4]
lea edi, [ebp - 0xa4]
mov ecx, 4
rep movsd dword es:[edi], dword [esi]
mov al, 0x59
mov byte [ebp - 0x1bb], al
mov byte [ebp - 0x1bc], 1
lea eax, [ebp - 0x1b8]
lea edx, [ebp - 0x1bc]
call sub.Vcl50.bpl__System__VarFromPStr_qqrr14System_Variantrx28System__SmallString_iuc_255_
lea esi, [ebp - 0x1b8]
lea edi, [ebp - 0x94]
mov ecx, 4
rep movsd dword es:[edi], dword [esi]
mov al, 0x4e
mov byte [ebp - 0x1cf], al
mov byte [ebp - 0x1d0], 1
lea eax, [ebp - 0x1cc]
lea edx, [ebp - 0x1d0]
call sub.Vcl50.bpl__System__VarFromPStr_qqrr14System_Variantrx28System__SmallString_iuc_255_
lea esi, [ebp - 0x1cc]
lea edi, [ebp - 0x84]
mov ecx, 4
rep movsd dword es:[edi], dword [esi]
lea eax, [ebp - 0x114]
lea ecx, [ebp - 0x74]
mov edx, 9
call sub.Vcl50.bpl__System_VarArrayOf_qqrpx14System_Variantxi
lea ecx, [ebp - 0x74]
mov edx, 0x41d1e8
mov eax, dword [ebp - 4]
call fcn.004094d8
push 0
push 1
lea eax, [ebp - 0x30]
push eax
lea eax, [ebp - 0x1e0]
push eax
call sub.Vcl50.bpl__System__VarArrayGet_qr14System_Variantii
add esp, 0x10
lea eax, [ebp - 0x1e0]
call sub.Vcl50.bpl__System__VarToReal_qqrv
add esp, 0xfffffff4
fstp xword [esp]
wait
push 0
push 0
push 0
call fcn.00403790
test eax, eax
jle 0x41cbab
lea eax, [ebp - 0x14]
mov edx, 0x41d1fc
call sub.Vcl50.bpl__System__LStrLAsg_qqrv
jmp 0x41cbff
push 0
push 1
lea eax, [ebp - 0x30]
push eax
lea eax, [ebp - 0x1f0]
push eax
call sub.Vcl50.bpl__System__VarArrayGet_qr14System_Variantii
add esp, 0x10
lea eax, [ebp - 0x1f0]
call sub.Vcl50.bpl__System__VarToReal_qqrv
add esp, 0xfffffff4
fstp xword [esp]
wait
push 0
push 0
push 0
call fcn.00403790
test eax, eax
jge 0x41cbf2
lea eax, [ebp - 0x14]
mov edx, 0x41d208
call sub.Vcl50.bpl__System__LStrLAsg_qqrv
jmp 0x41cbff
lea eax, [ebp - 0x14]
mov edx, 0x41d214
call sub.Vcl50.bpl__System__LStrLAsg_qqrv
mov eax, dword [ebp - 8]
call sub.Vcldb50.bpl__Db_TDataSet_Edit_qqrv
mov edx, 0x41d220
mov eax, dword [ebp - 8]
call sub.Vcldb50.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [ebp - 0x14]
mov ecx, dword [eax]
call dword [ecx + 0xa0]
mov edx, 0x41d1d8
mov eax, dword [ebp - 8]
call sub.Vcldb50.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x1f4]
mov ecx, dword [eax]
call dword [ecx + 0x58]
cmp dword [ebp - 0x1f4], 0
je 0x41cc82
push 1
push 1
lea eax, [ebp - 0x30]
push eax
lea eax, [ebp - 0x204]
push eax
call sub.Vcl50.bpl__System__VarArrayGet_qr14System_Variantii
add esp, 0x10
lea eax, [ebp - 0x204]
call sub.Vcl50.bpl__System__VarToReal_qqrv
fabs
add esp, 0xfffffff8
fstp qword [esp]
wait
mov edx, 0x41d22c
mov eax, dword [ebp - 8]
call sub.Vcldb50.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0x98]
jmp 0x41cc9b
push 0
push 0
mov edx, 0x41d22c
mov eax, dword [ebp - 8]
call sub.Vcldb50.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0x98]
push 0
push 1
lea eax, [ebp - 0x30]
push eax
lea eax, [ebp - 0x214]
push eax
call sub.Vcl50.bpl__System__VarArrayGet_qr14System_Variantii
add esp, 0x10
lea eax, [ebp - 0x214]
call sub.Vcl50.bpl__System__VarToReal_qqrv
fabs
add esp, 0xfffffff8
fstp qword [esp]
wait
mov edx, 0x41d23c
mov eax, dword [ebp - 8]
call sub.Vcldb50.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0x98]
push 0
push 1
lea eax, [ebp - 0x30]
push eax
lea eax, [ebp - 0x224]
push eax
call sub.Vcl50.bpl__System__VarArrayGet_qr14System_Variantii
add esp, 0x10
lea eax, [ebp - 0x224]
push eax
mov edx, 0x41d24c
mov eax, dword [ebp - 8]
call sub.Vcldb50.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0x50]
lea eax, [ebp - 0x234]
call sub.Vcl50.bpl__System__VarFromReal_qqrv
lea edx, [ebp - 0x234]
pop eax
call sub.Vcl50.bpl__System__VarAdd_qqrv
lea eax, [ebp - 0x224]
push eax
mov edx, 0x41d25c
mov eax, dword [ebp - 8]
call sub.Vcldb50.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0x50]
lea eax, [ebp - 0x244]
call sub.Vcl50.bpl__System__VarFromReal_qqrv
lea edx, [ebp - 0x244]
pop eax
call sub.Vcl50.bpl__System__VarSub_qqrv
lea eax, [ebp - 0x224]
call sub.Vcl50.bpl__System__VarToReal_qqrv
fstp qword [ebp - 0x20]
wait
fld qword [ebp - 0x20]
add esp, 0xfffffff4
fstp xword [esp]
wait
push 0
push 0
push 0
call fcn.00403790
test eax, eax
jle 0x41cd89
lea eax, [ebp - 0x14]
mov edx, 0x41d1fc
call sub.Vcl50.bpl__System__LStrLAsg_qqrv
jmp 0x41cdbe
fld qword [ebp - 0x20]
add esp, 0xfffffff4
fstp xword [esp]
wait
push 0
push 0
push 0
call fcn.00403790
test eax, eax
jge 0x41cdb1
lea eax, [ebp - 0x14]
mov edx, 0x41d208
call sub.Vcl50.bpl__System__LStrLAsg_qqrv
jmp 0x41cdbe
lea eax, [ebp - 0x14]
mov edx, 0x41d214
call sub.Vcl50.bpl__System__LStrLAsg_qqrv
mov edx, 0x41d26c
mov eax, dword [ebp - 8]
call sub.Vcldb50.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [ebp - 0x14]
mov ecx, dword [eax]
call dword [ecx + 0xa0]
mov edx, 0x41d1d8
mov eax, dword [ebp - 8]
call sub.Vcldb50.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x248]
mov ecx, dword [eax]
call dword [ecx + 0x58]
cmp dword [ebp - 0x248], 0
je 0x41ce9d
push 1
push 1
lea eax, [ebp - 0x30]
push eax
lea eax, [ebp - 0x258]
push eax
call sub.Vcl50.bpl__System__VarArrayGet_qr14System_Variantii
add esp, 0x10
lea eax, [ebp - 0x258]
push eax
mov edx, 0x41d278
mov eax, dword [ebp - 8]
call sub.Vcldb50.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0x50]
lea eax, [ebp - 0x268]
call sub.Vcl50.bpl__System__VarFromReal_qqrv
lea edx, [ebp - 0x268]
pop eax
call sub.Vcl50.bpl__System__VarAdd_qqrv
lea eax, [ebp - 0x258]
push eax
mov edx, 0x41d288
mov eax, dword [ebp - 8]
call sub.Vcldb50.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0x50]
lea eax, [ebp - 0x278]
call sub.Vcl50.bpl__System__VarFromReal_qqrv
lea edx, [ebp - 0x278]
pop eax
call sub.Vcl50.bpl__System__VarSub_qqrv
lea eax, [ebp - 0x258]
call sub.Vcl50.bpl__System__VarToReal_qqrv
fabs
add esp, 0xfffffff8
fstp qword [esp]
wait
mov edx, 0x41d298
mov eax, dword [ebp - 8]
call sub.Vcldb50.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0x98]
jmp 0x41ceb6
push 0
push 0
mov edx, 0x41d298
mov eax, dword [ebp - 8]
call sub.Vcldb50.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0x98]
fld qword [ebp - 0x20]
fabs
add esp, 0xfffffff8
fstp qword [esp]
wait
mov edx, 0x41d2a8
mov eax, dword [ebp - 8]
call sub.Vcldb50.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0x98]
mov eax, dword [ebp - 8]
mov edx, dword [eax]
call dword [edx + 0x240]
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x41cf12
mov eax, dword [ebp - 8]
call sub.Vcldb50.bpl__Db_TDataSet_Next_qqrv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x41cf51
mov eax, dword [ebp - 8]
cmp byte [eax + 0x91], 0
je 0x41c718
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x41d0aa
lea eax, [ebp - 0x278]
mov edx, dword [sym.imp.Vcl50.bpl___xp_14System_Variant]
mov ecx, 3
call sub.Vcl50.bpl__System__FinalizeArray_qqrv
lea eax, [ebp - 0x248]
call sub.Vcl50.bpl__System__LStrClr_qqrr17System_AnsiString
lea eax, [ebp - 0x244]
mov edx, dword [sym.imp.Vcl50.bpl___xp_14System_Variant]
mov ecx, 5
call sub.Vcl50.bpl__System__FinalizeArray_qqrv
lea eax, [ebp - 0x1f4]
call sub.Vcl50.bpl__System__LStrClr_qqrr17System_AnsiString
lea eax, [ebp - 0x1f0]
mov edx, dword [sym.imp.Vcl50.bpl___xp_14System_Variant]
mov ecx, 2
call sub.Vcl50.bpl__System__FinalizeArray_qqrv
lea eax, [ebp - 0x1cc]
call sub.Vcl50.bpl__System__VarClr_qqrv
lea eax, [ebp - 0x1b8]
call sub.Vcl50.bpl__System__VarClr_qqrv
lea eax, [ebp - 0x1a8]
call sub.Vcl50.bpl__System__LStrClr_qqrr17System_AnsiString
lea eax, [ebp - 0x1a4]
mov edx, dword [sym.imp.Vcl50.bpl___xp_14System_Variant]
mov ecx, 3
call sub.Vcl50.bpl__System__FinalizeArray_qqrv
lea eax, [ebp - 0x174]
call sub.Vcl50.bpl__System__LStrClr_qqrr17System_AnsiString
lea eax, [ebp - 0x170]
call sub.Vcl50.bpl__System__VarClr_qqrv
lea eax, [ebp - 0x160]
call sub.Vcl50.bpl__System__LStrClr_qqrr17System_AnsiString
lea eax, [ebp - 0x15c]
call sub.Vcl50.bpl__System__VarClr_qqrv
lea eax, [ebp - 0x148]
mov edx, dword [sym.imp.Vcl50.bpl___xp_14System_Variant]
mov ecx, 2
call sub.Vcl50.bpl__System__FinalizeArray_qqrv
lea eax, [ebp - 0x128]
call sub.Vcl50.bpl__System__LStrClr_qqrr17System_AnsiString
lea eax, [ebp - 0x124]
call sub.Vcl50.bpl__System__VarClr_qqrv
lea eax, [ebp - 0x74]
call sub.Vcl50.bpl__System__VarClr_qqrv
lea eax, [ebp - 0x64]
mov edx, 2
call sub.Vcl50.bpl__System__LStrArrayClr_qqrv
lea eax, [ebp - 0x5c]
mov edx, dword [sym.imp.Vcl50.bpl___xp_14System_Variant]
mov ecx, 2
call sub.Vcl50.bpl__System__FinalizeArray_qqrv
lea eax, [ebp - 0x3c]
mov edx, 3
call sub.Vcl50.bpl__System__LStrArrayClr_qqrv
lea eax, [ebp - 0x30]
call sub.Vcl50.bpl__System__VarClr_qqrv
lea eax, [ebp - 0x14]
mov edx, 2
call sub.Vcl50.bpl__System__LStrArrayClr_qqrv
ret