Function at 0x4633a8
Capabilities:
Reference sql statements

Disassembly:
push ebp
mov ebp, esp
mov ecx, 0x21
push 0
push 0
dec ecx
jne 0x4633b0
push ebx
push esi
mov esi, eax
xor eax, eax
push ebp
push 0x463b9b
push dword fs:[eax]
mov dword fs:[eax], esp
lea edx, [ebp - 0x48]
mov eax, dword [esi + 0x440]
call sub.PublicPkg160.bpl__Jhlookupedit_TJhLookupEdit_GetMyText_qqrv
mov eax, dword [ebp - 0x48]
lea edx, [ebp - 0x44]
call sub.RtlVcl160.bpl__System_Sysutils_Trim_qqrx20System_UnicodeString
cmp dword [ebp - 0x44], 0
je 0x463a7a
lea edx, [ebp - 0x4c]
mov eax, dword [esi + 0x440]
call sub.PublicPkg160.bpl__Jhlookupedit_TJhLookupEdit_GetMyText_qqrv
mov eax, dword [ebp - 0x4c]
lea edx, [ebp - 0xc]
call sub.RtlVcl160.bpl__System_Sysutils_Trim_qqrx20System_UnicodeString
xor eax, eax
call fcn.004132c4
mov ebx, eax
mov eax, ebx
call sub.PublicPkg160.bpl__Data_Db_TDataSet_Close_qqrv
push 0x463bb8
lea eax, [ebp - 0x58]
push eax
lea eax, [ebp - 0x5c]
mov edx, dword [ebp - 0xc]
call sub.RtlVcl160.bpl__System__WStrFromUStr_qqrr17System_WideStringx20System_UnicodeString
mov edx, dword [ebp - 0x5c]
mov eax, 0x463c08
call fcn.0040eca4
mov ecx, eax
dec ecx
mov edx, 1
mov eax, dword [ebp - 0xc]
call sub.RtlVcl160.bpl__System__UStrCopy_qqrx20System_UnicodeStringii
push dword [ebp - 0x58]
push 0x463c18
lea eax, [ebp - 0x60]
push eax
lea eax, [ebp - 0x64]
mov edx, dword [ebp - 0xc]
call sub.RtlVcl160.bpl__System__WStrFromUStr_qqrr17System_WideStringx20System_UnicodeString
mov edx, dword [ebp - 0x64]
mov eax, 0x463c08
call fcn.0040eca4
inc eax
push eax
mov eax, dword [ebp - 0xc]
call sub.RtlVcl160.bpl__System__UStrLen_qqrx20System_UnicodeString
mov ecx, eax
mov eax, dword [ebp - 0xc]
pop edx
call sub.RtlVcl160.bpl__System__UStrCopy_qqrx20System_UnicodeStringii
push dword [ebp - 0x60]
push 0x463c40
lea eax, [ebp - 0x54]
mov edx, 5
call sub.RtlVcl160.bpl__System__UStrCatN_qqrv
mov edx, dword [ebp - 0x54]
lea eax, [ebp - 0x50]
call sub.RtlVcl160.bpl__System__WStrFromUStr_qqrr17System_WideStringx20System_UnicodeString
mov edx, dword [ebp - 0x50]
mov eax, ebx
mov ecx, dword [eax]
call dword [ecx + 0x328]
mov eax, ebx
call sub.PublicPkg160.bpl__Data_Db_TDataSet_Open_qqrv
mov eax, ebx
call sub.PublicPkg160.bpl__Data_Db_TDataSet_IsEmpty_qqrv
test al, al
je 0x4634fe
mov eax, ebx
call sub.PublicPkg160.bpl__Data_Db_TDataSet_Close_qqrv
lea ecx, [ebp - 0x68]
mov edx, 0x463c54
mov eax, dword [esi + 0x394]
call sub.PublicPkg160.bpl__Suputrans_TSpCustomTrans_TMsg_qqrx20System_UnicodeString
lea eax, [ebp - 0x68]
mov edx, dword [ebp - 0xc]
call sub.RtlVcl160.bpl__System__UStrCat_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 0x68]
call fcn.0040f11c
mov eax, dword [esi + 0x440]
mov edx, dword [eax]
call dword [edx + 0xf4]
call sub.RtlVcl160.bpl__System_Sysutils_Abort_qqrv
mov edx, 0x463c70
mov eax, ebx
call sub.PublicPkg160.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x6c]
mov ecx, dword [eax]
call dword [ecx + 0x80]
mov eax, dword [ebp - 0x6c]
mov edx, 0x463c88
call sub.RtlVcl160.bpl__System__UStrEqual_qqrv
je 0x463559
mov eax, ebx
call sub.PublicPkg160.bpl__Data_Db_TDataSet_Close_qqrv
lea ecx, [ebp - 0x70]
mov edx, 0x463c98
mov eax, dword [esi + 0x394]
call sub.PublicPkg160.bpl__Suputrans_TSpCustomTrans_TMsg_qqrx20System_UnicodeString
mov eax, dword [ebp - 0x70]
call fcn.0040f11c
mov eax, dword [esi + 0x440]
mov edx, dword [eax]
call dword [edx + 0xf4]
call sub.RtlVcl160.bpl__System_Sysutils_Abort_qqrv
mov edx, 0x463cb4
mov eax, ebx
call sub.PublicPkg160.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x74]
mov ecx, dword [eax]
call dword [ecx + 0x80]
mov eax, dword [ebp - 0x74]
mov edx, 0x463c88
call sub.RtlVcl160.bpl__System__UStrEqual_qqrv
je 0x4635a5
mov edx, 0x463cb4
mov eax, ebx
call sub.PublicPkg160.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x78]
mov ecx, dword [eax]
call dword [ecx + 0x80]
mov eax, dword [ebp - 0x78]
mov edx, 0x463ccc
call sub.RtlVcl160.bpl__System__UStrEqual_qqrv
jne 0x4635da
mov eax, ebx
call sub.PublicPkg160.bpl__Data_Db_TDataSet_Close_qqrv
lea ecx, [ebp - 0x7c]
mov edx, 0x463cdc
mov eax, dword [esi + 0x394]
call sub.PublicPkg160.bpl__Suputrans_TSpCustomTrans_TMsg_qqrx20System_UnicodeString
mov eax, dword [ebp - 0x7c]
call fcn.0040f11c
mov eax, dword [esi + 0x440]
mov edx, dword [eax]
call dword [edx + 0xf4]
call sub.RtlVcl160.bpl__System_Sysutils_Abort_qqrv
mov edx, 0x463cf8
mov eax, ebx
call sub.PublicPkg160.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x80]
mov ecx, dword [eax]
call dword [ecx + 0x80]
mov eax, dword [ebp - 0x80]
lea edx, [ebp - 4]
call sub.RtlVcl160.bpl__System_Sysutils_Trim_qqrx20System_UnicodeString
mov edx, 0x463d10
mov eax, ebx
call sub.PublicPkg160.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
mov edx, dword [eax]
call dword [edx + 0x68]
fstp qword [ebp - 0x18]
wait
push 0x463d28
lea eax, [ebp - 0x90]
push eax
mov ecx, dword [ebp - 4]
mov edx, 0x463d40
mov eax, 0x463d58
call fcn.00412300
push 0x463d70
lea eax, [ebp - 0xa4]
push eax
mov ecx, dword [ebp - 4]
mov edx, 0x463d40
mov eax, 0x463d58
call fcn.00412300
lea edx, [ebp - 0xa4]
lea eax, [ebp - 0x94]
call sub.RtlVcl160.bpl__System_Variants__VarToUStr_qqrr20System_UnicodeStringrx8TVarData
mov eax, dword [ebp - 0x94]
lea edx, [ebp - 8]
call sub.RtlVcl160.bpl__System_Sysutils_Trim_qqrx20System_UnicodeString
mov eax, ebx
call sub.PublicPkg160.bpl__Data_Db_TDataSet_Close_qqrv
lea eax, [ebp - 0xac]
push eax
push 0x463d88
push dword [ebp - 0xc]
push 0x463c40
lea eax, [ebp - 0xb8]
mov edx, 3
call sub.RtlVcl160.bpl__System__UStrCatN_qqrv
mov eax, dword [ebp - 0xb8]
mov dword [ebp - 0xb4], eax
mov byte [ebp - 0xb0], 0x11
lea edx, [ebp - 0xb4]
xor ecx, ecx
mov eax, 0x463dcc
call sub.RtlVcl160.bpl__System_Sysutils_Format_qqrx20System_UnicodeStringpx14System_TVarRecxi
mov edx, dword [ebp - 0xac]
lea eax, [ebp - 0xa8]
call sub.RtlVcl160.bpl__System__WStrFromUStr_qqrr17System_WideStringx20System_UnicodeString
mov edx, dword [ebp - 0xa8]
mov eax, ebx
mov ecx, dword [eax]
call dword [ecx + 0x328]
mov eax, ebx
call sub.PublicPkg160.bpl__Data_Db_TDataSet_Open_qqrv
mov eax, ebx
call sub.PublicPkg160.bpl__Data_Db_TDataSet_IsEmpty_qqrv
test al, al
jne 0x46372a
mov eax, ebx
call sub.PublicPkg160.bpl__Data_Db_TDataSet_Close_qqrv
lea ecx, [ebp - 0xbc]
mov edx, 0x463e08
mov eax, dword [esi + 0x394]
call sub.PublicPkg160.bpl__Suputrans_TSpCustomTrans_TMsg_qqrx20System_UnicodeString
mov eax, dword [ebp - 0xbc]
call fcn.0040f11c
mov eax, dword [esi + 0x440]
mov edx, dword [eax]
call dword [edx + 0xf4]
call sub.RtlVcl160.bpl__System_Sysutils_Abort_qqrv
mov eax, ebx
call sub.PublicPkg160.bpl__Data_Db_TDataSet_Close_qqrv
push 0x463e24
push dword [ebp - 0xc]
push 0x463c40
lea eax, [ebp - 0xc4]
mov edx, 3
call sub.RtlVcl160.bpl__System__UStrCatN_qqrv
mov edx, dword [ebp - 0xc4]
lea eax, [ebp - 0xc0]
call sub.RtlVcl160.bpl__System__WStrFromUStr_qqrr17System_WideStringx20System_UnicodeString
mov edx, dword [ebp - 0xc0]
mov eax, ebx
mov ecx, dword [eax]
call dword [ecx + 0x328]
mov eax, ebx
call sub.PublicPkg160.bpl__Data_Db_TDataSet_Open_qqrv
mov edx, 0x463eb4
mov eax, ebx
call sub.PublicPkg160.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
mov edx, dword [eax]
call dword [edx + 0x68]
fstp st(0)
mov eax, ebx
call sub.PublicPkg160.bpl__Data_Db_TDataSet_Close_qqrv
push 0x463ecc
lea eax, [ebp - 0xd0]
push eax
lea eax, [ebp - 0xd4]
mov edx, dword [ebp - 0xc]
call sub.RtlVcl160.bpl__System__WStrFromUStr_qqrr17System_WideStringx20System_UnicodeString
mov edx, dword [ebp - 0xd4]
mov eax, 0x463c08
call fcn.0040eca4
mov ecx, eax
dec ecx
mov edx, 1
mov eax, dword [ebp - 0xc]
call sub.RtlVcl160.bpl__System__UStrCopy_qqrx20System_UnicodeStringii
push dword [ebp - 0xd0]
push 0x463f3c
lea eax, [ebp - 0xd8]
push eax
lea eax, [ebp - 0xdc]
mov edx, dword [ebp - 0xc]
call sub.RtlVcl160.bpl__System__WStrFromUStr_qqrr17System_WideStringx20System_UnicodeString
mov edx, dword [ebp - 0xdc]
mov eax, 0x463c08
call fcn.0040eca4
inc eax
push eax
mov eax, dword [ebp - 0xc]
call sub.RtlVcl160.bpl__System__UStrLen_qqrx20System_UnicodeString
mov ecx, eax
mov eax, dword [ebp - 0xc]
pop edx
call sub.RtlVcl160.bpl__System__UStrCopy_qqrx20System_UnicodeStringii
push dword [ebp - 0xd8]
push 0x463f64
lea eax, [ebp - 0xcc]
mov edx, 5
call sub.RtlVcl160.bpl__System__UStrCatN_qqrv
mov edx, dword [ebp - 0xcc]
lea eax, [ebp - 0xc8]
call sub.RtlVcl160.bpl__System__WStrFromUStr_qqrr17System_WideStringx20System_UnicodeString
mov edx, dword [ebp - 0xc8]
mov eax, ebx
mov ecx, dword [eax]
call dword [ecx + 0x328]
mov eax, ebx
call sub.PublicPkg160.bpl__Data_Db_TDataSet_Open_qqrv
mov edx, 0x463f94
mov eax, ebx
call sub.PublicPkg160.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
mov edx, dword [eax]
call dword [edx + 0x68]
fstp qword [ebp - 0x38]
wait
mov edx, 0x463fac
mov eax, ebx
call sub.PublicPkg160.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
mov edx, dword [eax]
call dword [edx + 0x68]
fstp qword [ebp - 0x40]
wait
fld qword [ebp - 0x38]
fcomp dword [0x463fb8]
wait
fnstsw ax
sahf
ja 0x4638c6
mov eax, ebx
call sub.PublicPkg160.bpl__Data_Db_TDataSet_Close_qqrv
lea ecx, [ebp - 0xe0]
mov edx, 0x463fc8
mov eax, dword [esi + 0x394]
call sub.PublicPkg160.bpl__Suputrans_TSpCustomTrans_TMsg_qqrx20System_UnicodeString
mov eax, dword [ebp - 0xe0]
call fcn.0040f11c
mov eax, dword [esi + 0x440]
mov edx, dword [eax]
call dword [edx + 0xf4]
call sub.RtlVcl160.bpl__System_Sysutils_Abort_qqrv
mov eax, ebx
call sub.PublicPkg160.bpl__Data_Db_TDataSet_Close_qqrv
push 0x463fe4
push dword [ebp - 8]
push 0x463c40
lea eax, [ebp - 0xe8]
mov edx, 3
call sub.RtlVcl160.bpl__System__UStrCatN_qqrv
mov edx, dword [ebp - 0xe8]
lea eax, [ebp - 0xe4]
call sub.RtlVcl160.bpl__System__WStrFromUStr_qqrr17System_WideStringx20System_UnicodeString
mov edx, dword [ebp - 0xe4]
mov eax, ebx
mov ecx, dword [eax]
call dword [ecx + 0x328]
mov eax, ebx
call sub.PublicPkg160.bpl__Data_Db_TDataSet_Open_qqrv
fld qword [ebp - 0x18]
add esp, 0xfffffff4
fstp xword [esp]
wait
lea eax, [ebp - 0xec]
call sub.RtlVcl160.bpl__System_Sysutils_FloatToStr_qqrg
mov edx, dword [ebp - 0xec]
mov eax, dword [esi + 0x488]
call sub.PublicPkg160.bpl__Jhlookupedit_TJhLookupEdit_SetMyText_qqr20System_UnicodeString
mov edx, 0x464034
mov eax, ebx
call sub.PublicPkg160.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0xf0]
mov ecx, dword [eax]
call dword [ecx + 0x80]
mov edx, dword [ebp - 0xf0]
mov eax, dword [esi + 0x450]
call sub.PublicPkg160.bpl__Jhlookupedit_TJhLookupEdit_SetMyText_qqr20System_UnicodeString
mov edx, 0x46404c
mov eax, ebx
call sub.PublicPkg160.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0xf4]
mov ecx, dword [eax]
call dword [ecx + 0x80]
mov edx, dword [ebp - 0xf4]
mov eax, dword [esi + 0x458]
call sub.PublicPkg160.bpl__Jhlookupedit_TJhLookupEdit_SetMyText_qqr20System_UnicodeString
mov edx, 0x464064
mov eax, ebx
call sub.PublicPkg160.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0xf8]
mov ecx, dword [eax]
call dword [ecx + 0x80]
mov edx, dword [ebp - 0xf8]
mov eax, dword [esi + 0x460]
call sub.PublicPkg160.bpl__Jhlookupedit_TJhLookupEdit_SetMyText_qqr20System_UnicodeString
push dword [ebp - 0x3c]
push dword [ebp - 0x40]
mov al, 0xfa
call fcn.0040f7a0
add esp, 0xfffffff4
fstp xword [esp]
wait
lea eax, [ebp - 0xfc]
call sub.RtlVcl160.bpl__System_Sysutils_FloatToStr_qqrg
mov edx, dword [ebp - 0xfc]
mov eax, dword [esi + 0x46c]
call sub.PublicPkg160.bpl__Jhlookupedit_TJhLookupEdit_SetMyText_qqr20System_UnicodeString
mov edx, 0x46407c
mov eax, ebx
call sub.PublicPkg160.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
mov edx, dword [eax]
call dword [edx + 0x68]
fstp qword [ebp - 0x28]
wait
fld qword [ebp - 0x28]
fcomp dword [0x463fb8]
wait
fnstsw ax
sahf
jne 0x463a31
push 0
lea edx, [ebp - 0x108]
mov eax, dword [esi + 0x46c]
call sub.PublicPkg160.bpl__Jhlookupedit_TJhLookupEdit_GetMyText_qqrv
mov eax, dword [ebp - 0x108]
call sub.RtlVcl160.bpl__System_Sysutils_StrToFloat_qqrx20System_UnicodeString
fdiv qword [ebp - 0x28]
add esp, 0xfffffff4
fstp xword [esp]
wait
lea eax, [ebp - 0x104]
call sub.RtlVcl160.bpl__System_Sysutils_FloatToStr_qqrg
mov edx, dword [ebp - 0x104]
mov eax, dword [esi + 0x474]
call sub.PublicPkg160.bpl__Jhlookupedit_TJhLookupEdit_SetMyText_qqr20System_UnicodeString