Function at 0x41dc578
Capabilities:
Reference sql statements

Disassembly:
push ebp
mov ebp, esp
mov ecx, 0xf
push 0
push 0
dec ecx
jne 0x41dc580
push ecx
push ebx
push esi
mov esi, eax
xor eax, eax
push ebp
push 0x41dc7ea
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 0x41dc5b4
mov eax, dword [esi + 0x344]
call sub.dbrtl60.bpl__Db_TDataSet_Open_qqrv
mov al, byte [0x41dc7fc]
push eax
lea edx, [ebp - 0x14]
mov eax, dword [esi + 0x3ac]
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, 0x41dc808
mov eax, dword [esi + 0x344]
mov ebx, dword [eax]
call dword [ebx + 0x240]
mov ebx, eax
test bl, bl
jne 0x41dc620
lea edx, [ebp - 0x18]
mov eax, 0x41db9a8
call sub.rtl60.bpl__System_LoadResString_qqrp20System_TResStringRec
mov eax, dword [ebp - 0x18]
push eax
lea edx, [ebp - 0x1c]
mov eax, 0x41db9a0
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 0x41dc6b5
mov eax, dword [esi + 0x348]
mov edx, dword [eax]
call dword [edx + 0x58]
mov edx, eax
mov eax, esi
call fcn.041dc2f8
test bl, bl
je 0x41dc67d
mov al, byte [0x41dc7fc]
push eax
lea edx, [ebp - 0x30]
mov eax, dword [esi + 0x3b0]
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, 0x41dc814
mov eax, dword [esi + 0x36c]
mov ebx, dword [eax]
call dword [ebx + 0x240]
test al, al
jne 0x41dc681
xor eax, eax
jmp 0x41dc683
mov al, 1
mov ebx, eax
test bl, bl
jne 0x41dc6b5
lea edx, [ebp - 0x34]
mov eax, 0x41db9b0
call sub.rtl60.bpl__System_LoadResString_qqrp20System_TResStringRec
mov eax, dword [ebp - 0x34]
push eax
lea edx, [ebp - 0x38]
mov eax, dword [0x41f6344]
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 0x41dc76a
lea eax, [ebp - 0x5c]
push eax
lea edx, [ebp - 0x60]
mov eax, dword [esi + 0x3a4]
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 + 0x3a8]
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, 0x41dc824
mov edx, dword [esi + 0x3dc]
mov eax, dword [0x41993a8]
call fcn.04199918
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 0x41dc76a
xor ebx, ebx
lea edx, [ebp - 0x7c]
mov eax, 0x41db9b8
call sub.rtl60.bpl__System_LoadResString_qqrp20System_TResStringRec
mov edx, dword [ebp - 0x7c]
mov ecx, 0x10
mov eax, 0x41dc898
call sub.vegalib60.bpl__Strtools_Mess_qqr17System_AnsiStringt1i
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x41dc7f1
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