Function at 0x41a939c
Capabilities:
Reference sql statements

Disassembly:
push ebp
mov ebp, esp
mov ecx, 0x11
push 0
push 0
dec ecx
jne 0x41a93a4
push ebx
push esi
push edi
mov dword [ebp - 4], eax
mov eax, dword [ebp - 4]
call sub.rtl60.bpl__System__LStrAddRef_qqrpv
xor eax, eax
push ebp
push 0x41a9789
push dword fs:[eax]
mov dword fs:[eax], esp
xor eax, eax
mov dword [ebp - 8], eax
lea edx, [ebp - 0x14]
mov eax, dword [ebp - 4]
call sub.rtl60.bpl__Sysutils_Trim_qqrx17System_AnsiString
mov edx, dword [ebp - 0x14]
lea eax, [ebp - 4]
call sub.rtl60.bpl__System__LStrLAsg_qqrpvpxv
lea eax, [ebp - 0xc]
mov edx, dword [ebp - 4]
call sub.rtl60.bpl__System__LStrLAsg_qqrpvpxv
cmp dword [ebp - 0xc], 0
jne 0x41a9406
mov eax, dword [ebp - 0xc]
mov edx, 0x41a97a4
call sub.rtl60.bpl__System__LStrCmp_qqrv
je 0x41a96f9
lea eax, [ebp - 0x24]
push eax
mov eax, dword [sym.imp.VEDatasets.bpl__Vedataset_defDonemNo]
mov eax, dword [eax]
push eax
lea eax, [ebp - 0x28]
push eax
push 0x41a97b0
push dword [ebp - 0xc]
push 0x41a97ec
lea eax, [ebp - 0x2c]
mov edx, 3
call sub.rtl60.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x2c]
mov ecx, dword [sym.imp.VEDatasets.bpl__Vedataset_defFirmaNo]
mov ecx, dword [ecx]
mov eax, dword [0x419a734]
call fcn.0419b668
mov ecx, dword [ebp - 0x28]
mov edx, dword [0x4204158]
mov eax, dword [0x419a734]
call fcn.0419b038
lea eax, [ebp - 0x24]
call sub.rtl60.bpl__System__VarToInt_qqrrx14System_Variant
mov dword [ebp - 8], eax
cmp dword [ebp - 8], 0
jne 0x41a95f6
mov eax, dword [ebp - 0xc]
call sub.rtl60.bpl__System__LStrLen_qqrx17System_AnsiString
cmp eax, 7
jl 0x41a95f6
lea eax, [ebp - 0x10]
push eax
mov ecx, 2
mov edx, 1
mov eax, dword [ebp - 0xc]
call sub.rtl60.bpl__System__LStrCopy_qqrv
mov eax, dword [ebp - 0x10]
mov al, byte [eax]
cmp al, 0x30
jb 0x41a95f6
cmp al, 0x39
ja 0x41a95f6
mov eax, dword [ebp - 0x10]
cmp byte [eax + 1], 0x30
jb 0x41a95f6
mov eax, dword [ebp - 0x10]
cmp byte [eax + 1], 0x39
ja 0x41a95f6
lea eax, [ebp - 0x3c]
push eax
push 0x41a97f8
push dword [ebp - 0x10]
push 0x41a97ec
lea eax, [ebp - 0x40]
mov edx, 3
call sub.rtl60.bpl__System__LStrCatN_qqrv
mov ecx, dword [ebp - 0x40]
mov edx, dword [0x4204158]
mov eax, dword [0x419a734]
call fcn.0419b038
lea eax, [ebp - 0x3c]
push eax
lea eax, [ebp - 0x50]
xor edx, edx
mov cl, 1
call sub.rtl60.bpl__System__VarFromInt_qqrr14System_Variantxixi
lea edx, [ebp - 0x50]
pop eax
call sub.rtl60.bpl__System__VarCmpNE_qqrrx14System_Variantt1
je 0x41a95f6
lea eax, [ebp - 0x10]
push eax
mov ecx, 5
mov edx, 3
mov eax, dword [ebp - 0xc]
call sub.rtl60.bpl__System__LStrCopy_qqrv
lea eax, [ebp - 0x60]
push eax
mov eax, dword [sym.imp.VEDatasets.bpl__Vedataset_defDonemNo]
mov eax, dword [eax]
push eax
lea eax, [ebp - 0x64]
push eax
push 0x41a9834
push dword [ebp - 0x10]
push 0x41a97ec
lea eax, [ebp - 0x68]
mov edx, 3
call sub.rtl60.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x68]
mov ecx, dword [sym.imp.VEDatasets.bpl__Vedataset_defFirmaNo]
mov ecx, dword [ecx]
mov eax, dword [0x419a734]
call fcn.0419b668
mov ecx, dword [ebp - 0x64]
mov edx, dword [0x4204158]
mov eax, dword [0x419a734]
call fcn.0419b038
lea eax, [ebp - 0x60]
call sub.rtl60.bpl__System__VarToInt_qqrrx14System_Variant
mov dword [ebp - 8], eax
lea eax, [ebp - 0x6c]
push eax
mov ecx, 1
mov edx, 1
mov eax, dword [ebp - 0x10]
call sub.rtl60.bpl__System__LStrCopy_qqrv
mov eax, dword [ebp - 0x6c]
mov edx, 0x41a97a4
call sub.rtl60.bpl__System__LStrCmp_qqrv
jne 0x41a95c9
lea eax, [ebp - 0x10]
push eax
mov eax, dword [ebp - 0x10]
call sub.rtl60.bpl__System__LStrLen_qqrx17System_AnsiString
mov ecx, eax
dec ecx
mov edx, 2
mov eax, dword [ebp - 0x10]
call sub.rtl60.bpl__System__LStrCopy_qqrv
jmp 0x41a95d1
lea eax, [ebp - 0x10]
call sub.rtl60.bpl__System__LStrClr_qqrpv
cmp dword [ebp - 8], 0
jne 0x41a95f6
mov eax, dword [ebp - 0x10]
call sub.rtl60.bpl__System__LStrLen_qqrx17System_AnsiString
test eax, eax
je 0x41a95f6
mov eax, dword [ebp - 0x10]
mov edx, 0x41a97a4
call sub.rtl60.bpl__System__LStrCmp_qqrv
jne 0x41a9529
cmp dword [ebp - 8], 0
jne 0x41a968d
xor eax, eax
push ebp
push 0x41a9683
push dword fs:[eax]
mov dword fs:[eax], esp
lea eax, [ebp - 0x7c]
push eax
mov eax, dword [sym.imp.VEDatasets.bpl__Vedataset_defDonemNo]
mov eax, dword [eax]
push eax
lea eax, [ebp - 0x80]
push eax
push 0x41a9888
push dword [ebp - 0xc]
push 0x41a97ec
lea eax, [ebp - 0x84]
mov edx, 3
call sub.rtl60.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x84]
mov ecx, dword [sym.imp.VEDatasets.bpl__Vedataset_defFirmaNo]
mov ecx, dword [ecx]
mov eax, dword [0x419a734]
call fcn.0419b668
mov ecx, dword [ebp - 0x80]
mov edx, dword [0x4204158]
mov eax, dword [0x419a734]
call fcn.0419b038
lea eax, [ebp - 0x7c]
call sub.rtl60.bpl__System__VarNeg_qqrr14System_Variant
lea eax, [ebp - 0x7c]
call sub.rtl60.bpl__System__VarToInt_qqrrx14System_Variant
mov dword [ebp - 8], eax
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x41a968d
lea eax, [ebp - 0x88]
push eax
mov ecx, 1
mov edx, 1
mov eax, dword [ebp - 0xc]
call sub.rtl60.bpl__System__LStrCopy_qqrv
mov eax, dword [ebp - 0x88]
mov edx, 0x41a97a4
call sub.rtl60.bpl__System__LStrCmp_qqrv
jne 0x41a96f9
lea eax, [ebp - 0xc]
push eax
mov eax, dword [ebp - 0xc]
call sub.rtl60.bpl__System__LStrLen_qqrx17System_AnsiString
mov ecx, eax
dec ecx
mov edx, 2
mov eax, dword [ebp - 0xc]
call sub.rtl60.bpl__System__LStrCopy_qqrv
cmp dword [ebp - 8], 0
jne 0x41a96f9
mov eax, dword [ebp - 0xc]
call sub.rtl60.bpl__System__LStrLen_qqrx17System_AnsiString
test eax, eax
je 0x41a96f9
mov eax, dword [ebp - 0xc]
mov edx, 0x41a97a4
call sub.rtl60.bpl__System__LStrCmp_qqrv
jne 0x41a9406
cmp dword [ebp - 8], 0
jne 0x41a9706
mov dword [ebp - 8], 0xffffff9d
mov ebx, dword [ebp - 8]
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x41a9790
lea eax, [ebp - 0x88]
mov edx, 3
call sub.rtl60.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x7c]
call sub.rtl60.bpl__System__VarClr_qqrr14System_Variant
lea eax, [ebp - 0x6c]
mov edx, 3
call sub.rtl60.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x60]
mov edx, dword [sym.imp.rtl60.bpl___xp_14System_Variant]
mov ecx, 2
call sub.rtl60.bpl__System__FinalizeArray_qqrpvt1ui
lea eax, [ebp - 0x40]
call sub.rtl60.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x3c]
call sub.rtl60.bpl__System__VarClr_qqrr14System_Variant
lea eax, [ebp - 0x2c]
mov edx, 2
call sub.rtl60.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x24]
call sub.rtl60.bpl__System__VarClr_qqrr14System_Variant
lea eax, [ebp - 0x14]
mov edx, 3
call sub.rtl60.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 4]
call sub.rtl60.bpl__System__LStrClr_qqrpv
ret