Function at 0x41cca18
Capabilities:
Reference sql statements

Disassembly:
push ebp
mov ebp, esp
mov ecx, 0xf
push 0
push 0
dec ecx
jne 0x41cca20
push ecx
push ebx
push esi
mov esi, eax
xor eax, eax
push ebp
push 0x41ccc8a
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [esi + 0x344]
call sub.dbrtl60.bpl__Db_TDataSet_GetActive_qqrv
test al, al
jne 0x41cca54
mov eax, dword [esi + 0x344]
call sub.dbrtl60.bpl__Db_TDataSet_Open_qqrv
mov al, byte [0x41ccc9c]
push eax
lea edx, [ebp - 0x14]
mov eax, dword [esi + 0x3a8]
call sub.vcl60.bpl__Controls_TControl_GetText_qqrv
mov edx, dword [ebp - 0x14]
lea eax, [ebp - 0x10]
call sub.rtl60.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
lea ecx, [ebp - 0x10]
mov edx, 0x41ccca8
mov eax, dword [esi + 0x344]
mov ebx, dword [eax]
call dword [ebx + 0x240]
mov ebx, eax
test bl, bl
jne 0x41ccac0
lea edx, [ebp - 0x18]
mov eax, 0x41cbf60
call sub.rtl60.bpl__System_LoadResString_qqrp20System_TResStringRec
mov eax, dword [ebp - 0x18]
push eax
lea edx, [ebp - 0x1c]
mov eax, 0x41cbf58
call sub.rtl60.bpl__System_LoadResString_qqrp20System_TResStringRec
mov eax, dword [ebp - 0x1c]
mov ecx, 0x30
pop edx
call sub.vegalib60.bpl__Strtools_Mess_qqr17System_AnsiStringt1i
jmp 0x41ccb55
mov eax, dword [esi + 0x348]
mov edx, dword [eax]
call dword [edx + 0x58]
mov edx, eax
mov eax, esi
call fcn.041cc798
test bl, bl
je 0x41ccb1d
mov al, byte [0x41ccc9c]
push eax
lea edx, [ebp - 0x30]
mov eax, dword [esi + 0x3ac]
call sub.vcl60.bpl__Controls_TControl_GetText_qqrv
mov eax, dword [ebp - 0x30]
or edx, 0xffffffff
call sub.rtl60.bpl__Sysutils_StrToIntDef_qqrx17System_AnsiStringi
mov edx, eax
lea eax, [ebp - 0x2c]
mov cl, 0xfc
call sub.rtl60.bpl__System__VarFromInt_qqrr14System_Variantxixi
lea ecx, [ebp - 0x2c]
mov edx, 0x41cccb4
mov eax, dword [esi + 0x36c]
mov ebx, dword [eax]
call dword [ebx + 0x240]
test al, al
jne 0x41ccb21
xor eax, eax
jmp 0x41ccb23
mov al, 1
mov ebx, eax
test bl, bl
jne 0x41ccb55
lea edx, [ebp - 0x34]
mov eax, 0x41cbf68
call sub.rtl60.bpl__System_LoadResString_qqrp20System_TResStringRec
mov eax, dword [ebp - 0x34]
push eax
lea edx, [ebp - 0x38]
mov eax, dword [0x41cfebc]
call sub.rtl60.bpl__System_LoadResString_qqrp20System_TResStringRec
mov eax, dword [ebp - 0x38]
mov ecx, 0x30
pop edx
call sub.vegalib60.bpl__Strtools_Mess_qqr17System_AnsiStringt1i
test bl, bl
je 0x41ccc0a
lea eax, [ebp - 0x5c]
push eax
lea edx, [ebp - 0x60]
mov eax, dword [esi + 0x3a0]
call sub.vcl60.bpl__Controls_TControl_GetText_qqrv
mov eax, dword [ebp - 0x60]
or ecx, 0xffffffff
mov dl, 0x27
call sub.vegalib60.bpl__Strtools_QS_qqr17System_AnsiStringci
mov eax, dword [ebp - 0x5c]
mov dword [ebp - 0x58], eax
mov byte [ebp - 0x54], 0xb
lea eax, [ebp - 0x64]
push eax
lea edx, [ebp - 0x68]
mov eax, dword [esi + 0x3a4]
call sub.vcl60.bpl__Controls_TControl_GetText_qqrv
mov eax, dword [ebp - 0x68]
or ecx, 0xffffffff
mov dl, 0x27
call sub.vegalib60.bpl__Strtools_QS_qqr17System_AnsiStringci
mov eax, dword [ebp - 0x64]
mov dword [ebp - 0x50], eax
mov byte [ebp - 0x4c], 0xb
lea eax, [ebp - 0x58]
push eax
push 1
lea eax, [ebp - 0x48]
push eax
mov ecx, 0x41cccc4
mov edx, dword [esi + 0x3b0]
mov eax, dword [0x41997b8]
call fcn.0419a254
lea eax, [ebp - 0x48]
push eax
lea eax, [ebp - 0x78]
xor edx, edx
mov cl, 1
call sub.rtl60.bpl__System__VarFromInt_qqrr14System_Variantxixi
lea edx, [ebp - 0x78]
pop eax
call sub.rtl60.bpl__System__VarCmpEQ_qqrrx14System_Variantt1
jne 0x41ccc0a
xor ebx, ebx
lea edx, [ebp - 0x7c]
mov eax, 0x41cbf70
call sub.rtl60.bpl__System_LoadResString_qqrp20System_TResStringRec
mov edx, dword [ebp - 0x7c]
mov ecx, 0x10
mov eax, 0x41ccd38
call sub.vegalib60.bpl__Strtools_Mess_qqr17System_AnsiStringt1i
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x41ccc91
lea eax, [ebp - 0x7c]
call sub.rtl60.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x78]
call sub.rtl60.bpl__System__VarClr_qqrr14System_Variant
lea eax, [ebp - 0x68]
call sub.rtl60.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x64]
call sub.rtl60.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x60]
call sub.rtl60.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x5c]
call sub.rtl60.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x48]
call sub.rtl60.bpl__System__VarClr_qqrr14System_Variant
lea eax, [ebp - 0x38]
mov edx, 2
call sub.rtl60.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x30]
call sub.rtl60.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x2c]
call sub.rtl60.bpl__System__VarClr_qqrr14System_Variant
lea eax, [ebp - 0x1c]
mov edx, 2
call sub.rtl60.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x14]
call sub.rtl60.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x10]
call sub.rtl60.bpl__System__VarClr_qqrr14System_Variant
ret