Function at 0x6df420
Capabilities:
Reference sql statements

Disassembly:
push ebp
mov ebp, esp
add esp, 0xffffffd0
push ebx
push esi
push edi
xor ecx, ecx
mov dword [ebp - 0x2c], ecx
mov dword [ebp - 0x30], ecx
mov dword [ebp - 0x24], ecx
mov dword [ebp - 0x28], ecx
mov dword [ebp - 8], edx
mov dword [ebp - 4], eax
xor eax, eax
push ebp
push 0x6df607
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x7c4]
xor edx, edx
call sub.vcl260.bpl__Vcl_Controls_TControl_SetVisible_qqro
mov eax, dword [ebp - 4]
cmp byte [eax + 0xa04], 1
je 0x6df5ec
mov eax, dword [0x730f34]
mov eax, dword [eax]
mov eax, dword [eax + 0x6c]
mov dword [ebp - 0x1c], eax
mov eax, dword [ebp - 0x1c]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x1c]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x6df624
mov ecx, dword [eax]
call dword [ecx + 0x30]
mov edx, 0x6df6f4
mov eax, dword [ebp - 0x1c]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, dword [ebp - 8]
mov ecx, dword [eax]
call dword [ecx + 0x68]
xor eax, eax
push ebp
push 0x6df5c6
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 0x1c]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Open_qqrv
mov edx, 0x6df708
mov eax, dword [ebp - 0x1c]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
mov edx, dword [eax]
call dword [edx + 0x6c]
fstp qword [ebp - 0x10]
wait
mov edx, 0x6df724
mov eax, dword [ebp - 0x1c]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
mov edx, dword [eax]
call dword [edx + 0x6c]
fstp qword [ebp - 0x18]
wait
fldz
fld qword [ebp - 0x10]
fucompp
wait
fnstsw ax
sahf
jp 0x6df4f8
jbe 0x6df54c
push 0x6df740
fld qword [ebp - 0x10]
add esp, 0xfffffff4
fstp xword [esp]
wait
lea edx, [ebp - 0x28]
mov eax, 0x6df75c
call sub.rtl260.bpl__System_Sysutils_FormatFloat_qqrx20System_UnicodeStringg
push dword [ebp - 0x28]
push 0x6df774
lea eax, [ebp - 0x24]
mov edx, 3
call sub.rtl260.bpl__System__UStrCatN_qqrv
mov edx, dword [ebp - 0x24]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x7c4]
call sub.vcl260.bpl__Vcl_Controls_TControl_SetText_qqrx20System_UnicodeString
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x7c4]
mov dl, 1
call sub.vcl260.bpl__Vcl_Controls_TControl_SetVisible_qqro
jmp 0x6df5ad
fldz
fld qword [ebp - 0x18]
fucompp
wait
fnstsw ax
sahf
jp 0x6df55b
jbe 0x6df5ad
push 0x6df784
fld qword [ebp - 0x18]
add esp, 0xfffffff4
fstp xword [esp]
wait
lea edx, [ebp - 0x30]
mov eax, 0x6df75c
call sub.rtl260.bpl__System_Sysutils_FormatFloat_qqrx20System_UnicodeStringg
push dword [ebp - 0x30]
push 0x6df774
lea eax, [ebp - 0x2c]
mov edx, 3
call sub.rtl260.bpl__System__UStrCatN_qqrv
mov edx, dword [ebp - 0x2c]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x7c4]
call sub.vcl260.bpl__Vcl_Controls_TControl_SetText_qqrx20System_UnicodeString
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x7c4]
mov dl, 1
call sub.vcl260.bpl__Vcl_Controls_TControl_SetVisible_qqro
mov eax, dword [0x730f34]
mov eax, dword [eax]
mov eax, dword [eax + 0x6c]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x6df5ec
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x6df60e
lea eax, [ebp - 0x30]
mov edx, 4
call sub.rtl260.bpl__System__UStrArrayClr_qqrpvi
ret