Function at 0x61a57c
Capabilities:
Reference sql statements

Disassembly:
push ebp
mov ebp, esp
mov ecx, 4
push 0
push 0
dec ecx
jne 0x61a584
push ecx
push ebx
push esi
mov ebx, eax
xor eax, eax
push ebp
push 0x61a732
push dword fs:[eax]
mov dword fs:[eax], esp
xor ecx, ecx
mov dl, 1
mov eax, dword [sym.imp.adortl70.bpl__Adodb_TADOQuery_]
call sub.adortl70.bpl__Adodb_TADOQuery__bctr_qqrp18Classes_TComponent
mov dword [ebp - 0x14], eax
xor eax, eax
push ebp
push 0x61a6f3
push dword fs:[eax]
mov dword fs:[eax], esp
mov edx, dword [ebx + 0x8c]
mov eax, dword [ebp - 0x14]
mov ecx, dword [eax]
call dword [ecx + 0x26c]
mov eax, dword [ebp - 0x14]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
push eax
push 0x61a74c
push dword [ebp - 8]
push 0x61a778
lea eax, [ebp - 0x18]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x18]
pop eax
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 0x14]
call sub.dbrtl70.bpl__Db_TDataSet_Open_qqrv
lea eax, [ebp - 8]
mov edx, dword [ebx + 0x54]
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
mov edx, 0x61a784
mov eax, dword [ebp - 0x14]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0xc]
mov ecx, dword [eax]
call dword [ecx + 0x60]
lea eax, [ebp - 0x10]
mov edx, dword [ebx + 0x58]
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
lea eax, [ebp - 0xc]
push eax
lea ecx, [ebp - 0x10]
lea edx, [ebp - 8]
mov eax, dword [ebx + 0x38]
mov esi, dword [eax]
call dword [esi + 0x38]
mov byte [ebp - 1], al
push 0x61a794
push dword [ebp - 8]
push dword [ebp - 0xc]
lea eax, [ebp - 0x20]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x20]
lea eax, [ebp - 0x1c]
call sub.rtl70.bpl__System__WStrFromLStr_qqrr17System_WideStringx17System_AnsiString
mov edx, dword [ebp - 0x1c]
mov cl, 1
mov eax, ebx
call sym.P_Interface.bpl__Fpinterface_TFPINTERFACE_of_output_debug_info_qqr17System_WideStringo
cmp dword [ebp - 8], 0
jne 0x61a67e
call sub.rtl70.bpl__System__TryFinallyExit_qqrv
jmp 0x61a6fa
cmp dword [ebp - 0xc], 0
je 0x61a6d5
mov eax, dword [ebp - 0x14]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x14]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x44]
mov eax, dword [ebp - 0x14]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
push eax
push 0x61a7a8
push dword [ebp - 0xc]
push 0x61a7cc
push dword [ebp - 8]
push 0x61a778
lea eax, [ebp - 0x24]
mov edx, 5
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x24]
pop eax
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 0x14]
call sub.adortl70.bpl__Adodb_TADOQuery_ExecSQL_qqrv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x61a6fa
mov eax, dword [ebp - 0x14]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x14]
call sub.rtl70.bpl__System_TObject_Free_qqrv
ret
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x61a739
lea eax, [ebp - 0x24]
mov edx, 2
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x1c]
call sub.rtl70.bpl__System__WStrClr_qqrpv
lea eax, [ebp - 0x18]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x10]
mov edx, 3
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
ret