Function at 0x41a57b8
Capabilities:
Reference sql statements

Disassembly:
push ebp
mov ebp, esp
mov ecx, 0x11
push 0
push 0
dec ecx
jne 0x41a57c0
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 0x41a5b9d
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 0x41a5822
mov eax, dword [ebp - 0xc]
mov edx, 0x41a5bb8
call sub.rtl60.bpl__System__LStrCmp_qqrv
je 0x41a5b0d
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 0x41a5bc4
push dword [ebp - 0xc]
push 0x41a5c38
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 [0x4199d68]
call fcn.0419ab18
mov ecx, dword [ebp - 0x28]
mov edx, dword [0x41fa150]
mov eax, dword [0x4199d68]
call fcn.0419a670
lea eax, [ebp - 0x24]
call sub.rtl60.bpl__System__VarToInt_qqrrx14System_Variant
mov dword [ebp - 8], eax
cmp dword [ebp - 8], 0
jne 0x41a5a12
mov eax, dword [ebp - 0xc]
call sub.rtl60.bpl__System__LStrLen_qqrx17System_AnsiString
cmp eax, 7
jl 0x41a5a12
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 0x41a5a12
cmp al, 0x39
ja 0x41a5a12
mov eax, dword [ebp - 0x10]
cmp byte [eax + 1], 0x30
jb 0x41a5a12
mov eax, dword [ebp - 0x10]
cmp byte [eax + 1], 0x39
ja 0x41a5a12
lea eax, [ebp - 0x3c]
push eax
push 0x41a5c44
push dword [ebp - 0x10]
push 0x41a5c38
lea eax, [ebp - 0x40]
mov edx, 3
call sub.rtl60.bpl__System__LStrCatN_qqrv
mov ecx, dword [ebp - 0x40]
mov edx, dword [0x41fa150]
mov eax, dword [0x4199d68]
call fcn.0419a670
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 0x41a5a12
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 0x41a5c7c
push dword [ebp - 0x10]
push 0x41a5c38
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 [0x4199d68]
call fcn.0419ab18
mov ecx, dword [ebp - 0x64]
mov edx, dword [0x41fa150]
mov eax, dword [0x4199d68]
call fcn.0419a670
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, 0x41a5bb8
call sub.rtl60.bpl__System__LStrCmp_qqrv
jne 0x41a59e5
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 0x41a59ed
lea eax, [ebp - 0x10]
call sub.rtl60.bpl__System__LStrClr_qqrpv
cmp dword [ebp - 8], 0
jne 0x41a5a12
mov eax, dword [ebp - 0x10]
call sub.rtl60.bpl__System__LStrLen_qqrx17System_AnsiString
test eax, eax
je 0x41a5a12
mov eax, dword [ebp - 0x10]
mov edx, 0x41a5bb8
call sub.rtl60.bpl__System__LStrCmp_qqrv
jne 0x41a5945
cmp dword [ebp - 8], 0
jne 0x41a5aa1
xor eax, eax
push ebp
push 0x41a5a97
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 0x41a5cd0
push dword [ebp - 0xc]
push 0x41a5c38
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 [0x4199d68]
call fcn.0419ab18
mov ecx, dword [ebp - 0x80]
mov edx, dword [0x41fa150]
mov eax, dword [0x4199d68]
call fcn.0419a670
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 0x41a5aa1
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, 0x41a5bb8
call sub.rtl60.bpl__System__LStrCmp_qqrv
jne 0x41a5b0d
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 0x41a5b0d
mov eax, dword [ebp - 0xc]
call sub.rtl60.bpl__System__LStrLen_qqrx17System_AnsiString
test eax, eax
je 0x41a5b0d
mov eax, dword [ebp - 0xc]
mov edx, 0x41a5bb8
call sub.rtl60.bpl__System__LStrCmp_qqrv
jne 0x41a5822
cmp dword [ebp - 8], 0
jne 0x41a5b1a
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 0x41a5ba4
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