Function at 0x41a6118
Capabilities:
Reference sql statements

Disassembly:
push ebp
mov ebp, esp
mov ecx, 0x11
push 0
push 0
dec ecx
jne 0x41a6120
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 0x41a6505
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 0x41a6182
mov eax, dword [ebp - 0xc]
mov edx, 0x41a6520
call sub.rtl60.bpl__System__LStrCmp_qqrv
je 0x41a6475
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 0x41a652c
push dword [ebp - 0xc]
push 0x41a6568
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 [0x4199678]
call fcn.0419a428
mov ecx, dword [ebp - 0x28]
mov edx, dword [0x41fb154]
mov eax, dword [0x4199678]
call fcn.04199f80
lea eax, [ebp - 0x24]
call sub.rtl60.bpl__System__VarToInt_qqrrx14System_Variant
mov dword [ebp - 8], eax
cmp dword [ebp - 8], 0
jne 0x41a6372
mov eax, dword [ebp - 0xc]
call sub.rtl60.bpl__System__LStrLen_qqrx17System_AnsiString
cmp eax, 7
jl 0x41a6372
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 0x41a6372
cmp al, 0x39
ja 0x41a6372
mov eax, dword [ebp - 0x10]
cmp byte [eax + 1], 0x30
jb 0x41a6372
mov eax, dword [ebp - 0x10]
cmp byte [eax + 1], 0x39
ja 0x41a6372
lea eax, [ebp - 0x3c]
push eax
push 0x41a6574
push dword [ebp - 0x10]
push 0x41a6568
lea eax, [ebp - 0x40]
mov edx, 3
call sub.rtl60.bpl__System__LStrCatN_qqrv
mov ecx, dword [ebp - 0x40]
mov edx, dword [0x41fb154]
mov eax, dword [0x4199678]
call fcn.04199f80
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 0x41a6372
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 0x41a65b0
push dword [ebp - 0x10]
push 0x41a6568
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 [0x4199678]
call fcn.0419a428
mov ecx, dword [ebp - 0x64]
mov edx, dword [0x41fb154]
mov eax, dword [0x4199678]
call fcn.04199f80
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, 0x41a6520
call sub.rtl60.bpl__System__LStrCmp_qqrv
jne 0x41a6345
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 0x41a634d
lea eax, [ebp - 0x10]
call sub.rtl60.bpl__System__LStrClr_qqrpv
cmp dword [ebp - 8], 0
jne 0x41a6372
mov eax, dword [ebp - 0x10]
call sub.rtl60.bpl__System__LStrLen_qqrx17System_AnsiString
test eax, eax
je 0x41a6372
mov eax, dword [ebp - 0x10]
mov edx, 0x41a6520
call sub.rtl60.bpl__System__LStrCmp_qqrv
jne 0x41a62a5
cmp dword [ebp - 8], 0
jne 0x41a6409
xor eax, eax
push ebp
push 0x41a63ff
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 0x41a6604
push dword [ebp - 0xc]
push 0x41a6568
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 [0x4199678]
call fcn.0419a428
mov ecx, dword [ebp - 0x80]
mov edx, dword [0x41fb154]
mov eax, dword [0x4199678]
call fcn.04199f80
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 0x41a6409
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, 0x41a6520
call sub.rtl60.bpl__System__LStrCmp_qqrv
jne 0x41a6475
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 0x41a6475
mov eax, dword [ebp - 0xc]
call sub.rtl60.bpl__System__LStrLen_qqrx17System_AnsiString
test eax, eax
je 0x41a6475
mov eax, dword [ebp - 0xc]
mov edx, 0x41a6520
call sub.rtl60.bpl__System__LStrCmp_qqrv
jne 0x41a6182
cmp dword [ebp - 8], 0
jne 0x41a6482
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 0x41a650c
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