Function at 0x41a28b4
Capabilities:
Reference sql statements

Disassembly:
push ebp
mov ebp, esp
mov ecx, 0x11
push 0
push 0
dec ecx
jne 0x41a28bc
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 0x41a2c99
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 0x41a291e
mov eax, dword [ebp - 0xc]
mov edx, 0x41a2cb4
call sub.rtl60.bpl__System__LStrCmp_qqrv
je 0x41a2c09
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 0x41a2cc0
push dword [ebp - 0xc]
push 0x41a2d34
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 [0x41997b8]
call fcn.0419aa5c
mov ecx, dword [ebp - 0x28]
mov edx, dword [0x41d012c]
mov eax, dword [0x41997b8]
call fcn.0419a2ec
lea eax, [ebp - 0x24]
call sub.rtl60.bpl__System__VarToInt_qqrrx14System_Variant
mov dword [ebp - 8], eax
cmp dword [ebp - 8], 0
jne 0x41a2b0e
mov eax, dword [ebp - 0xc]
call sub.rtl60.bpl__System__LStrLen_qqrx17System_AnsiString
cmp eax, 7
jl 0x41a2b0e
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 0x41a2b0e
cmp al, 0x39
ja 0x41a2b0e
mov eax, dword [ebp - 0x10]
cmp byte [eax + 1], 0x30
jb 0x41a2b0e
mov eax, dword [ebp - 0x10]
cmp byte [eax + 1], 0x39
ja 0x41a2b0e
lea eax, [ebp - 0x3c]
push eax
push 0x41a2d40
push dword [ebp - 0x10]
push 0x41a2d34
lea eax, [ebp - 0x40]
mov edx, 3
call sub.rtl60.bpl__System__LStrCatN_qqrv
mov ecx, dword [ebp - 0x40]
mov edx, dword [0x41d012c]
mov eax, dword [0x41997b8]
call fcn.0419a2ec
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 0x41a2b0e
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 0x41a2d78
push dword [ebp - 0x10]
push 0x41a2d34
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 [0x41997b8]
call fcn.0419aa5c
mov ecx, dword [ebp - 0x64]
mov edx, dword [0x41d012c]
mov eax, dword [0x41997b8]
call fcn.0419a2ec
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, 0x41a2cb4
call sub.rtl60.bpl__System__LStrCmp_qqrv
jne 0x41a2ae1
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 0x41a2ae9
lea eax, [ebp - 0x10]
call sub.rtl60.bpl__System__LStrClr_qqrpv
cmp dword [ebp - 8], 0
jne 0x41a2b0e
mov eax, dword [ebp - 0x10]
call sub.rtl60.bpl__System__LStrLen_qqrx17System_AnsiString
test eax, eax
je 0x41a2b0e
mov eax, dword [ebp - 0x10]
mov edx, 0x41a2cb4
call sub.rtl60.bpl__System__LStrCmp_qqrv
jne 0x41a2a41
cmp dword [ebp - 8], 0
jne 0x41a2b9d
xor eax, eax
push ebp
push 0x41a2b93
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 0x41a2dcc
push dword [ebp - 0xc]
push 0x41a2d34
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 [0x41997b8]
call fcn.0419aa5c
mov ecx, dword [ebp - 0x80]
mov edx, dword [0x41d012c]
mov eax, dword [0x41997b8]
call fcn.0419a2ec
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 0x41a2b9d
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, 0x41a2cb4
call sub.rtl60.bpl__System__LStrCmp_qqrv
jne 0x41a2c09
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 0x41a2c09
mov eax, dword [ebp - 0xc]
call sub.rtl60.bpl__System__LStrLen_qqrx17System_AnsiString
test eax, eax
je 0x41a2c09
mov eax, dword [ebp - 0xc]
mov edx, 0x41a2cb4
call sub.rtl60.bpl__System__LStrCmp_qqrv
jne 0x41a291e
cmp dword [ebp - 8], 0
jne 0x41a2c16
mov dword [ebp - 8], 0x63
mov ebx, dword [ebp - 8]
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x41a2ca0
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