Function at 0x41b78a4
Capabilities:
Reference sql statements

Disassembly:
push ebp
mov ebp, esp
mov ecx, 0x1d
push 0
push 0
dec ecx
jne 0x41b78ac
push ecx
push ebx
push esi
push edi
mov ebx, eax
xor eax, eax
push ebp
push 0x41b7c18
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebx + 0x500]
call sub.dbrtl60.bpl__Db_TDataSet_GetActive_qqrv
test al, al
je 0x41b7baf
xor edx, edx
mov eax, dword [ebx + 0x500]
mov ecx, dword [eax]
call dword [ecx + 0x190]
mov eax, dword [ebx + 0x500]
call sub.dbrtl60.bpl__Db_TDataSet_First_qqrv
mov eax, dword [ebx + 0x3c8]
call sub.dbrtl60.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebx + 0x3c8]
call sub.dbrtl60.bpl__Db_TDataSet_Open_qqrv
jmp 0x41b7b9c
lea eax, [ebp - 0xc]
push eax
lea edx, [ebp - 0x10]
mov eax, dword [ebx + 0x504]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov eax, dword [ebp - 0x10]
or ecx, 0xffffffff
mov dl, 0x27
call sub.vegalib60.bpl__Strtools_QS_qqr17System_AnsiStringci
mov eax, dword [ebp - 0xc]
mov dword [ebp - 8], eax
mov byte [ebp - 4], 0xb
lea eax, [ebp - 8]
push eax
push 0
call sub.VEDatasets.bpl__Vedataset_Connection_qqrv
mov edx, eax
mov ecx, 0x41b7c30
mov eax, dword [0x4199340]
call fcn.0419a298
mov esi, eax
mov al, byte [0x41b7d14]
push eax
lea ecx, [ebp - 0x50]
mov edx, 0x41b7d20
mov eax, esi
call sub.dbrtl60.bpl__Db_TDataSet_GetFieldValue_qqrx17System_AnsiString
push esi
lea esi, [ebp - 0x50]
lea edi, [ebp - 0x40]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
pop esi
lea edx, [ebp - 0x64]
mov eax, dword [ebx + 0x504]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov edx, dword [ebp - 0x64]
lea eax, [ebp - 0x60]
call sub.rtl60.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
push esi
lea esi, [ebp - 0x60]
lea edi, [ebp - 0x30]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
pop esi
lea eax, [ebp - 0x40]
lea ecx, [ebp - 0x20]
mov edx, 1
call sub.rtl60.bpl__Variants_VarArrayOf_qqrpx14System_Variantxi
lea ecx, [ebp - 0x20]
mov edx, 0x41b7d30
mov eax, dword [ebx + 0x3c8]
mov edi, dword [eax]
call dword [edi + 0x240]
test al, al
je 0x41b79d7
mov eax, dword [ebx + 0x3c8]
call sub.dbrtl60.bpl__Db_TDataSet_Edit_qqrv
jmp 0x41b7b36
mov eax, dword [ebx + 0x3c8]
call sub.dbrtl60.bpl__Db_TDataSet_Append_qqrv
lea ecx, [ebp - 0x78]
mov edx, 0x41b7d20
mov eax, esi
call sub.dbrtl60.bpl__Db_TDataSet_GetFieldValue_qqrx17System_AnsiString
lea edx, [ebp - 0x78]
lea eax, [ebp - 0x68]
call sub.rtl60.bpl__System__VarToLStr_qqrr17System_AnsiStringrx14System_Variant
mov eax, dword [ebp - 0x68]
push eax
mov edx, 0x41b7d20
mov eax, dword [ebx + 0x3c8]
call sub.dbrtl60.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
pop edx
mov ecx, dword [eax]
call dword [ecx + 0xb0]
lea edx, [ebp - 0x7c]
mov eax, dword [ebx + 0x504]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov eax, dword [ebp - 0x7c]
push eax
mov edx, 0x41b7d50
mov eax, dword [ebx + 0x3c8]
call sub.dbrtl60.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
pop edx
mov ecx, dword [eax]
call dword [ecx + 0xb0]
lea ecx, [ebp - 0x8c]
mov edx, 0x41b7d68
mov eax, esi
call sub.dbrtl60.bpl__Db_TDataSet_GetFieldValue_qqrx17System_AnsiString
lea eax, [ebp - 0x8c]
push eax
lea eax, [ebp - 0x9c]
push eax
lea ecx, [ebp - 0xac]
mov edx, 0x41b7d7c
mov eax, esi
call sub.dbrtl60.bpl__Db_TDataSet_GetFieldValue_qqrx17System_AnsiString
lea eax, [ebp - 0xac]
push eax
mov eax, dword [ebx + 0x4c0]
mov edx, dword [eax]
call dword [edx + 0x44]
push eax
lea eax, [ebp - 0xbc]
xor edx, edx
mov cl, 1
call sub.rtl60.bpl__System__VarFromInt_qqrr14System_Variantxixi
lea ecx, [ebp - 0xbc]
pop eax
pop edx
call sub.JVCL200_R60.bpl__Jvutils_iif_qqrxorx14System_Variantt2
lea edx, [ebp - 0x9c]
pop eax
call sub.rtl60.bpl__System__VarAdd_qqrr14System_Variantrx14System_Variant
lea eax, [ebp - 0x8c]
push eax
lea eax, [ebp - 0xcc]
push eax
lea ecx, [ebp - 0xdc]
mov edx, 0x41b7d98
mov eax, esi
call sub.dbrtl60.bpl__Db_TDataSet_GetFieldValue_qqrx17System_AnsiString
lea eax, [ebp - 0xdc]
push eax
mov eax, dword [ebx + 0x4c4]
mov edx, dword [eax]
call dword [edx + 0x44]
push eax
lea eax, [ebp - 0xec]
xor edx, edx
mov cl, 1
call sub.rtl60.bpl__System__VarFromInt_qqrr14System_Variantxixi
lea ecx, [ebp - 0xec]
pop eax
pop edx
call sub.JVCL200_R60.bpl__Jvutils_iif_qqrxorx14System_Variantt2
lea edx, [ebp - 0xcc]
pop eax
call sub.rtl60.bpl__System__VarAdd_qqrr14System_Variantrx14System_Variant
lea eax, [ebp - 0x8c]
call sub.rtl60.bpl__System__VarToReal_qqrrx14System_Variant
add esp, 0xfffffff8
fstp qword [esp]
wait
mov edx, 0x41b7db4
mov eax, dword [ebx + 0x3c8]
call sub.dbrtl60.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0xa4]
mov edx, 0x41b7dd0
mov eax, dword [ebx + 0x3c8]
call sub.dbrtl60.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0x54]
fstp qword [ebp - 8]
wait
mov eax, dword [ebx + 0x514]
mov edx, dword [eax]
call dword [edx + 0x54]
fadd qword [ebp - 8]
add esp, 0xfffffff8
fstp qword [esp]
wait
mov edx, 0x41b7dd0
mov eax, dword [ebx + 0x3c8]
call sub.dbrtl60.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0xa4]
mov eax, esi
call sub.rtl60.bpl__System_TObject_Free_qqrv
mov eax, dword [ebx + 0x3c8]
mov edx, dword [eax]
call dword [edx + 0x248]
mov eax, dword [ebx + 0x500]
call sub.dbrtl60.bpl__Db_TDataSet_Next_qqrv
mov eax, dword [ebx + 0x500]
cmp byte [eax + 0xa1], 0
je 0x41b7910
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x41b7c1f
lea eax, [ebp - 0xec]
mov edx, dword [sym.imp.rtl60.bpl___xp_14System_Variant]
mov ecx, 7
call sub.rtl60.bpl__System__FinalizeArray_qqrpvt1ui
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]
mov edx, 2
call sub.rtl60.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x60]
mov edx, dword [sym.imp.rtl60.bpl___xp_14System_Variant]
mov ecx, 2
call sub.rtl60.bpl__System__FinalizeArray_qqrpvt1ui
lea eax, [ebp - 0x20]
call sub.rtl60.bpl__System__VarClr_qqrr14System_Variant
lea eax, [ebp - 0x10]
mov edx, 2
call sub.rtl60.bpl__System__LStrArrayClr_qqrpvi
ret