Function at 0x41bf41c
Capabilities:
Reference sql statements

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffee8
push ebx
push esi
xor edx, edx
mov dword [ebp - 0x118], edx
mov dword [ebp - 4], edx
mov dword [ebp - 0x10], edx
mov dword [ebp - 0x14], edx
mov ebx, eax
xor eax, eax
push ebp
push 0x41bf5c4
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebx + 0x39c]
call sub.tb2k_d6.bpl__Tb2item_TTBCustomItem_Clear_qqrv
mov eax, dword [ebx + 0x3a0]
call sub.dbrtl60.bpl__Db_TDataSet_Close_qqrv
lea eax, [ebp - 4]
push eax
lea eax, [ebp - 0x10]
push eax
lea edx, [ebp - 0x114]
mov eax, dword [ebx + 0x50c]
mov eax, dword [eax]
call sub.rtl60.bpl__System_TObject_ClassName_qqrp17System_TMetaClass
lea edx, [ebp - 0x114]
lea eax, [ebp - 0x14]
call sub.rtl60.bpl__System__LStrFromString_qqrr17System_AnsiStringrx28System__SmallString_iuc_255_
mov eax, dword [ebp - 0x14]
or ecx, 0xffffffff
mov dl, 0x27
call sub.vegalib60.bpl__Strtools_QS_qqr17System_AnsiStringci
mov eax, dword [ebp - 0x10]
mov dword [ebp - 0xc], eax
mov byte [ebp - 8], 0xb
lea edx, [ebp - 0xc]
xor ecx, ecx
mov eax, 0x41bf5dc
call sub.rtl60.bpl__Sysutils_Format_qqrx17System_AnsiStringpx14System_TVarRecxi
mov eax, dword [ebp - 4]
push eax
mov eax, dword [ebx + 0x3a0]
call sub.adortl60.bpl__Adodb_TADOQuery_GetSQL_qqrv
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x2c]
mov eax, dword [ebx + 0x3a0]
call sub.dbrtl60.bpl__Db_TDataSet_Open_qqrv
mov eax, dword [ebx + 0x3a0]
call sub.dbrtl60.bpl__Db_TDataSet_First_qqrv
jmp 0x41bf53c
mov ecx, dword [ebx + 0x39c]
mov dl, 1
mov eax, dword [sym.imp.tb2k_d6.bpl__Tb2item_TTBItem_]
call sub.tb2k_d6.bpl__Tb2item_TTBCustomItem__bctr_qqrp18Classes_TComponent
mov esi, eax
lea edx, [ebp - 0x118]
mov eax, dword [ebx + 0x3a4]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov edx, dword [ebp - 0x118]
mov eax, esi
call sub.tb2k_d6.bpl__Tb2item_TTBCustomItem_SetCaption_qqr17System_AnsiString
mov eax, dword [ebx + 0x3a8]
mov edx, dword [eax]
call dword [edx + 0x58]
mov dword [esi + 0xc], eax
mov dword [esi + 0x74], ebx
mov dword [esi + 0x70], fcn.041bf628
mov edx, esi
mov eax, dword [ebx + 0x39c]
call sub.tb2k_d6.bpl__Tb2item_TTBCustomItem_Add_qqrp21Tb2item_TTBCustomItem
mov eax, dword [ebx + 0x3a0]
call sub.dbrtl60.bpl__Db_TDataSet_Next_qqrv
mov eax, dword [ebx + 0x3a0]
cmp byte [eax + 0xa1], 0
je 0x41bf4da
mov ecx, dword [ebx + 0x39c]
mov dl, 1
mov eax, dword [sym.imp.tb2k_d6.bpl__Tb2item_TTBItem_]
call sub.tb2k_d6.bpl__Tb2item_TTBCustomItem__bctr_qqrp18Classes_TComponent
mov esi, eax
mov edx, 0x41bf61c
mov eax, esi
call sub.tb2k_d6.bpl__Tb2item_TTBCustomItem_SetCaption_qqr17System_AnsiString
mov dword [esi + 0xc], 0xffffffff
mov dword [esi + 0x74], ebx
mov dword [esi + 0x70], fcn.041bf628
mov edx, esi
mov eax, dword [ebx + 0x39c]
call sub.tb2k_d6.bpl__Tb2item_TTBCustomItem_Add_qqrp21Tb2item_TTBCustomItem
mov dl, 1
mov eax, dword [ebx + 0x39c]
call sub.tb2k_d6.bpl__Tb2item_TTBCustomItem_SetVisible_qqro
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x41bf5cb
lea eax, [ebp - 0x118]
call sub.rtl60.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x14]
mov edx, 2
call sub.rtl60.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 4]
call sub.rtl60.bpl__System__LStrClr_qqrpv
ret