Function at 0x57f710
Capabilities:
Resolve function by parsing pe exports

Disassembly:
push ebp
mov ebp, esp
push ecx
mov ecx, 0x1a
push 0
push 0
dec ecx
jne 0x57f719
xchg dword [ebp - 4], ecx
push ebx
push esi
push edi
mov dword [ebp - 8], ecx
mov dword [ebp - 4], edx
mov ebx, eax
mov esi, dword [ebp + 8]
mov eax, dword [ebp - 4]
call sub.rtl70.bpl__System__LStrAddRef_qqrpv
mov eax, dword [ebp - 8]
call sub.rtl70.bpl__System__LStrAddRef_qqrpv
mov eax, dword [ebp + 0xc]
call sub.rtl70.bpl__System__LStrAddRef_qqrpv
xor eax, eax
push ebp
push 0x57fce9
push dword fs:[eax]
mov dword fs:[eax], esp
mov byte [ebp - 9], 0
push 0x57fd04
push dword [ebp + 0xc]
push 0x57fda4
push dword [ebp - 4]
push 0x57fdbc
push dword [ebp - 8]
push 0x57fdd0
push 0x57fde4
push dword [ebp + 0xc]
push 0x57fda4
push dword [ebp - 4]
push 0x57fdbc
push dword [ebp - 8]
lea eax, [ebp - 0x68]
mov edx, 0xd
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov eax, dword [ebp - 0x68]
lea edx, [ebp - 0x64]
call sub.rtl70.bpl__System_AnsiToUtf8_qqrx17System_AnsiString
mov edx, dword [ebp - 0x64]
mov eax, dword [ebx + 0x1c]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteDatabase_GetTable_qqrx17System_AnsiString
mov dword [ebp - 0x5c], eax
xor eax, eax
push ebp
push 0x57fc9a
push dword fs:[eax]
mov dword fs:[eax], esp
cmp dword [ebp - 0x5c], 0
jne 0x57f7d4
call sub.rtl70.bpl__System__TryFinallyExit_qqrv
jmp 0x57fca1
mov eax, dword [ebp - 0x5c]
mov ebx, dword [eax + 8]
test ebx, ebx
je 0x57fc7e
push ebx
mov eax, esi
mov ecx, 1
mov edx, dword [sym.P_Interface.bpl___xp_20Skpubdata_TitemArray]
call sub.rtl70.bpl__System__DynArraySetLength_qqrv
add esp, 4
mov eax, dword [ebp - 0x5c]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_MoveFirst_qqrv
mov eax, dword [ebp - 0x5c]
mov eax, dword [eax + 8]
dec eax
test eax, eax
jl 0x57fc7a
inc eax
mov dword [ebp - 0x60], eax
xor ebx, ebx
lea ecx, [ebp - 0x6c]
mov edx, 0x57fe88
mov eax, dword [ebp - 0x5c]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_GetFieldByName_qqr17System_AnsiString
mov eax, dword [ebp - 0x6c]
mov edi, ebx
shl edi, 4
add edi, ebx
mov edx, dword [esi]
lea edx, [edx + edi*8]
call sub.rtl70.bpl__System_Utf8ToAnsi_qqrx17System_AnsiString
lea eax, [ebp - 0x70]
push eax
lea ecx, [ebp - 0x80]
mov edx, 0x57fe98
mov eax, dword [ebp - 0x5c]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_GetFieldByName_qqr17System_AnsiString
mov eax, dword [ebp - 0x80]
lea edx, [ebp - 0x7c]
call sub.rtl70.bpl__System_Utf8ToAnsi_qqrx17System_AnsiString
mov eax, dword [ebp - 0x7c]
call sub.rtl70.bpl__Sysutils_StrToInt_qqrx17System_AnsiString
mov dword [ebp - 0x78], eax
mov byte [ebp - 0x74], 0
lea edx, [ebp - 0x78]
xor ecx, ecx
mov eax, 0x57fea8
call sub.rtl70.bpl__Sysutils_Format_qqrx17System_AnsiStringpx14System_TVarRecxi
mov edx, dword [ebp - 0x70]
mov eax, dword [esi]
lea eax, [eax + edi*8 + 4]
call sub.rtl70.bpl__System__LStrAsg_qqrpvpxv
lea ecx, [ebp - 0x84]
mov edx, 0x57feb8
mov eax, dword [ebp - 0x5c]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_GetFieldByName_qqr17System_AnsiString
mov eax, dword [ebp - 0x84]
mov edx, dword [esi]
lea edx, [edx + edi*8 + 8]
call sub.rtl70.bpl__System_Utf8ToAnsi_qqrx17System_AnsiString
lea ecx, [ebp - 0x88]
mov edx, 0x57fec8
mov eax, dword [ebp - 0x5c]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_GetFieldByName_qqr17System_AnsiString
mov eax, dword [ebp - 0x88]
mov edx, dword [esi]
lea edx, [edx + edi*8 + 0xc]
call sub.rtl70.bpl__System_Utf8ToAnsi_qqrx17System_AnsiString
lea ecx, [ebp - 0x8c]
mov edx, 0x57fed8
mov eax, dword [ebp - 0x5c]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_GetFieldByName_qqr17System_AnsiString
mov eax, dword [ebp - 0x8c]
mov edx, dword [esi]
lea edx, [edx + edi*8 + 0x10]
call sub.rtl70.bpl__System_Utf8ToAnsi_qqrx17System_AnsiString
lea ecx, [ebp - 0x90]
mov edx, 0x57fee8
mov eax, dword [ebp - 0x5c]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_GetFieldByName_qqr17System_AnsiString
mov eax, dword [ebp - 0x90]
mov edx, dword [esi]
lea edx, [edx + edi*8 + 0x14]
call sub.rtl70.bpl__System_Utf8ToAnsi_qqrx17System_AnsiString
lea ecx, [ebp - 0x94]
mov edx, 0x57fef8
mov eax, dword [ebp - 0x5c]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_GetFieldByName_qqr17System_AnsiString
mov eax, dword [ebp - 0x94]
mov edx, dword [esi]
lea edx, [edx + edi*8 + 0x84]
call sub.rtl70.bpl__System_Utf8ToAnsi_qqrx17System_AnsiString
lea ecx, [ebp - 0x98]
mov edx, 0x57ff04
mov eax, dword [ebp - 0x5c]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_GetFieldByName_qqr17System_AnsiString
mov eax, dword [ebp - 0x98]
mov edx, dword [esi]
lea edx, [edx + edi*8 + 0x80]
call sub.rtl70.bpl__System_Utf8ToAnsi_qqrx17System_AnsiString
lea ecx, [ebp - 0x9c]
mov edx, 0x57ff14
mov eax, dword [ebp - 0x5c]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_GetFieldByName_qqr17System_AnsiString
mov eax, dword [ebp - 0x9c]
mov edx, dword [esi]
lea edx, [edx + edi*8 + 0x74]
call sub.rtl70.bpl__System_Utf8ToAnsi_qqrx17System_AnsiString
lea ecx, [ebp - 0xa0]
mov edx, 0x57ff24
mov eax, dword [ebp - 0x5c]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_GetFieldByName_qqr17System_AnsiString
mov eax, dword [ebp - 0xa0]
mov edx, dword [esi]
lea edx, [edx + edi*8 + 0x78]
call sub.rtl70.bpl__System_Utf8ToAnsi_qqrx17System_AnsiString
lea ecx, [ebp - 0xa4]
mov edx, 0x57ff34
mov eax, dword [ebp - 0x5c]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_GetFieldByName_qqr17System_AnsiString
mov eax, dword [ebp - 0xa4]
mov edx, dword [esi]
lea edx, [edx + edi*8 + 0x7c]
call sub.rtl70.bpl__System_Utf8ToAnsi_qqrx17System_AnsiString
push 0
push 0
push 0
lea ecx, [ebp - 0xac]
mov edx, 0x57ff44
mov eax, dword [ebp - 0x5c]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_GetFieldByName_qqr17System_AnsiString
mov eax, dword [ebp - 0xac]
lea edx, [ebp - 0xa8]
call sub.rtl70.bpl__System_Utf8ToAnsi_qqrx17System_AnsiString
mov eax, dword [ebp - 0xa8]
call sub.rtl70.bpl__Sysutils_StrToFloatDef_qqrx17System_AnsiStringxg
fstp xword [ebp - 0x18]
wait
push 0
push 0
push 0
lea ecx, [ebp - 0xb4]
mov edx, 0x57ff50
mov eax, dword [ebp - 0x5c]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_GetFieldByName_qqr17System_AnsiString
mov eax, dword [ebp - 0xb4]
lea edx, [ebp - 0xb0]
call sub.rtl70.bpl__System_Utf8ToAnsi_qqrx17System_AnsiString
mov eax, dword [ebp - 0xb0]
call sub.rtl70.bpl__Sysutils_StrToFloatDef_qqrx17System_AnsiStringxg
fstp xword [ebp - 0x28]
wait
push 0
push 0
push 0
lea ecx, [ebp - 0xbc]
mov edx, 0x57ff5c
mov eax, dword [ebp - 0x5c]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_GetFieldByName_qqr17System_AnsiString
mov eax, dword [ebp - 0xbc]
lea edx, [ebp - 0xb8]
call sub.rtl70.bpl__System_Utf8ToAnsi_qqrx17System_AnsiString
mov eax, dword [ebp - 0xb8]
call sub.rtl70.bpl__Sysutils_StrToFloatDef_qqrx17System_AnsiStringxg
fstp xword [ebp - 0x38]
wait
push 0
push 0
push 0
lea ecx, [ebp - 0xc4]
mov edx, 0x57ff68
mov eax, dword [ebp - 0x5c]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_GetFieldByName_qqr17System_AnsiString
mov eax, dword [ebp - 0xc4]
lea edx, [ebp - 0xc0]
call sub.rtl70.bpl__System_Utf8ToAnsi_qqrx17System_AnsiString
mov eax, dword [ebp - 0xc0]
call sub.rtl70.bpl__Sysutils_StrToFloatDef_qqrx17System_AnsiStringxg
fstp xword [ebp - 0x48]
wait
push 0
push 0
push 0
lea ecx, [ebp - 0xcc]
mov edx, 0x57ff74
mov eax, dword [ebp - 0x5c]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_GetFieldByName_qqr17System_AnsiString
mov eax, dword [ebp - 0xcc]
lea edx, [ebp - 0xc8]
call sub.rtl70.bpl__System_Utf8ToAnsi_qqrx17System_AnsiString
mov eax, dword [ebp - 0xc8]
call sub.rtl70.bpl__Sysutils_StrToFloatDef_qqrx17System_AnsiStringxg
fstp xword [ebp - 0x58]
wait
lea ecx, [ebp - 0xd4]
mov edx, 0x57ff80
mov eax, dword [ebp - 0x5c]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_GetFieldByName_qqr17System_AnsiString
mov eax, dword [ebp - 0xd4]
lea edx, [ebp - 0xd0]
call sub.rtl70.bpl__System_Utf8ToAnsi_qqrx17System_AnsiString
mov eax, dword [ebp - 0xd0]
mov edx, 0x57ff90
call sub.rtl70.bpl__System__LStrCmp_qqrv
jne 0x57fb91
mov eax, dword [esi]
xor edx, edx
mov dword [eax + edi*8 + 0x28], edx
mov dword [eax + edi*8 + 0x2c], edx
mov word [eax + edi*8 + 0x30], dx
mov ax, word [ebp - 0x10]
push eax
push dword [ebp - 0x14]
push dword [ebp - 0x18]
mov eax, 8
call sub.PCommonUtil.bpl__Ncutil_round2_qqrxgi
fabs
fld xword [0x57ff94]
fcompp
fnstsw ax
sahf
jae 0x57fb76
fld xword [ebp - 0x38]
fld xword [ebp - 0x18]
fdivp st(1)
add esp, 0xfffffff4
fstp xword [esp]
wait
mov eax, 8
call sub.PCommonUtil.bpl__Ncutil_round2_qqrxgi
mov eax, dword [esi]
fstp xword [eax + edi*8 + 0x28]
wait
mov eax, dword [esi]
mov edx, dword [ebp - 0x28]
mov dword [eax + edi*8 + 0x38], edx
mov edx, dword [ebp - 0x24]
mov dword [eax + edi*8 + 0x3c], edx
mov dx, word [ebp - 0x20]
mov word [eax + edi*8 + 0x40], dx
jmp 0x57fc04
mov eax, dword [esi]
xor edx, edx
mov dword [eax + edi*8 + 0x38], edx
mov dword [eax + edi*8 + 0x3c], edx
mov word [eax + edi*8 + 0x40], dx
mov ax, word [ebp - 0x10]
push eax
push dword [ebp - 0x14]
push dword [ebp - 0x18]
mov eax, 8
call sub.PCommonUtil.bpl__Ncutil_round2_qqrxgi
fabs
fld xword [0x57ff94]
fcompp
fnstsw ax
sahf
jae 0x57fbeb
fld xword [ebp - 0x38]
fld xword [ebp - 0x48]
faddp st(1)
fld xword [ebp - 0x18]
fdivp st(1)
add esp, 0xfffffff4
fstp xword [esp]
wait
mov eax, 8
call sub.PCommonUtil.bpl__Ncutil_round2_qqrxgi
mov eax, dword [esi]
fstp xword [eax + edi*8 + 0x38]
wait
mov eax, dword [esi]
mov edx, dword [ebp - 0x28]
mov dword [eax + edi*8 + 0x28], edx
mov edx, dword [ebp - 0x24]
mov dword [eax + edi*8 + 0x2c], edx
mov dx, word [ebp - 0x20]
mov word [eax + edi*8 + 0x30], dx
mov eax, dword [esi]
mov edx, dword [ebp - 0x18]
mov dword [eax + edi*8 + 0x18], edx
mov edx, dword [ebp - 0x14]
mov dword [eax + edi*8 + 0x1c], edx
mov dx, word [ebp - 0x10]
mov word [eax + edi*8 + 0x20], dx
mov eax, dword [esi]
mov edx, dword [ebp - 0x38]
mov dword [eax + edi*8 + 0x48], edx
mov edx, dword [ebp - 0x34]
mov dword [eax + edi*8 + 0x4c], edx
mov dx, word [ebp - 0x30]
mov word [eax + edi*8 + 0x50], dx
mov eax, dword [esi]
mov edx, dword [ebp - 0x48]
mov dword [eax + edi*8 + 0x58], edx
mov edx, dword [ebp - 0x44]
mov dword [eax + edi*8 + 0x5c], edx
mov dx, word [ebp - 0x40]
mov word [eax + edi*8 + 0x60], dx
mov eax, dword [esi]
mov edx, dword [ebp - 0x58]
mov dword [eax + edi*8 + 0x68], edx
mov edx, dword [ebp - 0x54]
mov dword [eax + edi*8 + 0x6c], edx
mov dx, word [ebp - 0x50]
mov word [eax + edi*8 + 0x70], dx
mov eax, dword [ebp - 0x5c]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_Next_qqrv
inc ebx
dec dword [ebp - 0x60]
jne 0x57f815
mov byte [ebp - 9], 1
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x57fca1
cmp dword [ebp - 0x5c], 0
je 0x57fc99
mov eax, dword [ebp - 0x5c]
call sub.rtl70.bpl__System_TObject_Free_qqrv
ret
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x57fcf0
lea eax, [ebp - 0xd4]
mov edx, 0x17
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x70]
mov edx, 3
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x64]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 8]
mov edx, 2
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp + 0xc]
call sub.rtl70.bpl__System__LStrClr_qqrpv
ret