Function at 0x41e8fec
Capabilities:
Reference sql statements

Disassembly:
push ebp
mov ebp, esp
mov ecx, 0xf
push 0
push 0
dec ecx
jne 0x41e8ff4
push ecx
push ebx
push esi
mov esi, eax
xor eax, eax
push ebp
push 0x41e925e
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 0x41e9028
mov eax, dword [esi + 0x344]
call sub.dbrtl60.bpl__Db_TDataSet_Open_qqrv
mov al, byte [0x41e9270]
push eax
lea edx, [ebp - 0x14]
mov eax, dword [esi + 0x3b0]
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, 0x41e927c
mov eax, dword [esi + 0x344]
mov ebx, dword [eax]
call dword [ebx + 0x240]
mov ebx, eax
test bl, bl
jne 0x41e9094
lea edx, [ebp - 0x18]
mov eax, 0x41e8510
call sub.rtl60.bpl__System_LoadResString_qqrp20System_TResStringRec
mov eax, dword [ebp - 0x18]
push eax
lea edx, [ebp - 0x1c]
mov eax, 0x41e8508
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 0x41e9129
mov eax, dword [esi + 0x348]
mov edx, dword [eax]
call dword [edx + 0x58]
mov edx, eax
mov eax, esi
call fcn.041e8d6c
test bl, bl
je 0x41e90f1
mov al, byte [0x41e9270]
push eax
lea edx, [ebp - 0x30]
mov eax, dword [esi + 0x3b4]
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, 0x41e9288
mov eax, dword [esi + 0x36c]
mov ebx, dword [eax]
call dword [ebx + 0x240]
test al, al
jne 0x41e90f5
xor eax, eax
jmp 0x41e90f7
mov al, 1
mov ebx, eax
test bl, bl
jne 0x41e9129
lea edx, [ebp - 0x34]
mov eax, 0x41e8518
call sub.rtl60.bpl__System_LoadResString_qqrp20System_TResStringRec
mov eax, dword [ebp - 0x34]
push eax
lea edx, [ebp - 0x38]
mov eax, dword [0x4203a94]
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 0x41e91de
lea eax, [ebp - 0x5c]
push eax
lea edx, [ebp - 0x60]
mov eax, dword [esi + 0x3a8]
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 + 0x3ac]
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, 0x41e9298
mov edx, dword [esi + 0x3c0]
mov eax, dword [0x419a734]
call fcn.0419afa0
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 0x41e91de
xor ebx, ebx
lea edx, [ebp - 0x7c]
mov eax, 0x41e8520
call sub.rtl60.bpl__System_LoadResString_qqrp20System_TResStringRec
mov edx, dword [ebp - 0x7c]
mov ecx, 0x10
mov eax, 0x41e930c
call sub.vegalib60.bpl__Strtools_Mess_qqr17System_AnsiStringt1i
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x41e9265
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