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

Disassembly:
push ebp
mov ebp, esp
push ecx
mov ecx, 0x3a
push 0
push 0
dec ecx
jne 0x524ac1
push ecx
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 0x5258c4
push dword fs:[eax]
mov dword fs:[eax], esp
mov byte [ebp - 9], 0
xor eax, eax
push ebp
push 0x52582f
push dword fs:[eax]
mov dword fs:[eax], esp
push 0x5258e0
push dword [ebp + 0xc]
push 0x525990
push dword [ebp - 4]
push 0x5259a8
push dword [ebp - 8]
push 0x5259bc
lea eax, [ebp - 0x5c]
mov edx, 7
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov eax, dword [ebp - 0x5c]
lea edx, [ebp - 0x58]
call sub.rtl70.bpl__System_AnsiToUtf8_qqrx17System_AnsiString
mov edx, dword [ebp - 0x58]
mov eax, dword [ebx + 0x24]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteDatabase_GetTable_qqrx17System_AnsiString
mov dword [ebp - 0x10], eax
push 0x5259d8
push dword [ebp + 0xc]
push 0x525990
push dword [ebp - 4]
push 0x5259a8
push dword [ebp - 8]
push 0x5259bc
lea eax, [ebp - 0x64]
mov edx, 7
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov eax, dword [ebp - 0x64]
lea edx, [ebp - 0x60]
call sub.rtl70.bpl__System_AnsiToUtf8_qqrx17System_AnsiString
mov edx, dword [ebp - 0x60]
mov eax, dword [ebx + 0x24]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteDatabase_GetTable_qqrx17System_AnsiString
mov dword [ebp - 0x14], eax
xor eax, eax
push ebp
push 0x52581e
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 0x10]
cmp dword [eax + 8], 0
ja 0x524bbc
mov eax, dword [ebp - 0x14]
cmp dword [eax + 8], 0
jbe 0x5257fc
mov eax, dword [ebp - 0x14]
cmp dword [eax + 8], 0
jbe 0x5251d6
mov eax, dword [ebp - 0x14]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_MoveFirst_qqrv
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 8]
push eax
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 - 0x14]
mov eax, dword [eax + 8]
dec eax
test eax, eax
jl 0x5257fc
inc eax
mov dword [ebp - 0x54], eax
xor ebx, ebx
lea ecx, [ebp - 0x68]
mov edx, 0x525a8c
mov eax, dword [ebp - 0x14]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_GetFieldByName_qqr17System_AnsiString
mov eax, dword [ebp - 0x68]
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 - 0x6c]
push eax
lea ecx, [ebp - 0x7c]
mov edx, 0x525a9c
mov eax, dword [ebp - 0x14]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_GetFieldByName_qqr17System_AnsiString
mov eax, dword [ebp - 0x7c]
lea edx, [ebp - 0x78]
call sub.rtl70.bpl__System_Utf8ToAnsi_qqrx17System_AnsiString
mov eax, dword [ebp - 0x78]
call sub.rtl70.bpl__Sysutils_StrToInt_qqrx17System_AnsiString
mov dword [ebp - 0x74], eax
mov byte [ebp - 0x70], 0
lea edx, [ebp - 0x74]
xor ecx, ecx
mov eax, 0x525aac
call sub.rtl70.bpl__Sysutils_Format_qqrx17System_AnsiStringpx14System_TVarRecxi
mov edx, dword [ebp - 0x6c]
mov eax, dword [esi]
lea eax, [eax + edi*8 + 4]
call sub.rtl70.bpl__System__LStrAsg_qqrpvpxv
push 1
lea eax, [ebp - 0x80]
push eax
lea ecx, [ebp - 0x88]
mov edx, 0x525abc
mov eax, dword [ebp - 0x14]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_GetFieldByName_qqr17System_AnsiString
mov eax, dword [ebp - 0x88]
lea edx, [ebp - 0x84]
call sub.rtl70.bpl__System_Utf8ToAnsi_qqrx17System_AnsiString
mov eax, dword [ebp - 0x84]
xor ecx, ecx
mov edx, 0x525acc
call fcn.0052270c
mov edx, dword [ebp - 0x80]
mov eax, dword [esi]
lea eax, [eax + edi*8 + 8]
call sub.rtl70.bpl__System__LStrAsg_qqrpvpxv
push 1
lea eax, [ebp - 0x8c]
push eax
lea ecx, [ebp - 0x94]
mov edx, 0x525ad8
mov eax, dword [ebp - 0x14]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_GetFieldByName_qqr17System_AnsiString
mov eax, dword [ebp - 0x94]
lea edx, [ebp - 0x90]
call sub.rtl70.bpl__System_Utf8ToAnsi_qqrx17System_AnsiString
mov eax, dword [ebp - 0x90]
xor ecx, ecx
mov edx, 0x525acc
call fcn.0052270c
mov edx, dword [ebp - 0x8c]
mov eax, dword [esi]
lea eax, [eax + edi*8 + 0xc]
call sub.rtl70.bpl__System__LStrAsg_qqrpvpxv
push 1
lea eax, [ebp - 0x98]
push eax
lea ecx, [ebp - 0xa0]
mov edx, 0x525ae8
mov eax, dword [ebp - 0x14]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_GetFieldByName_qqr17System_AnsiString
mov eax, dword [ebp - 0xa0]
lea edx, [ebp - 0x9c]
call sub.rtl70.bpl__System_Utf8ToAnsi_qqrx17System_AnsiString
mov eax, dword [ebp - 0x9c]
xor ecx, ecx
mov edx, 0x525acc
call fcn.0052270c
mov edx, dword [ebp - 0x98]
mov eax, dword [esi]
lea eax, [eax + edi*8 + 0x10]
call sub.rtl70.bpl__System__LStrAsg_qqrpvpxv
push 1
lea eax, [ebp - 0xa4]
push eax
lea ecx, [ebp - 0xac]
mov edx, 0x525af8
mov eax, dword [ebp - 0x14]
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]
xor ecx, ecx
mov edx, 0x525acc
call fcn.0052270c
mov edx, dword [ebp - 0xa4]
mov eax, dword [esi]
lea eax, [eax + edi*8 + 0x14]
call sub.rtl70.bpl__System__LStrAsg_qqrpvpxv
push 1
lea eax, [ebp - 0xb0]
push eax
lea ecx, [ebp - 0xb8]
mov edx, 0x525b08
mov eax, dword [ebp - 0x14]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_GetFieldByName_qqr17System_AnsiString
mov eax, dword [ebp - 0xb8]
lea edx, [ebp - 0xb4]
call sub.rtl70.bpl__System_Utf8ToAnsi_qqrx17System_AnsiString
mov eax, dword [ebp - 0xb4]
xor ecx, ecx
mov edx, 0x525acc
call fcn.0052270c
mov edx, dword [ebp - 0xb0]
mov eax, dword [esi]
lea eax, [eax + edi*8 + 0x84]
call sub.rtl70.bpl__System__LStrAsg_qqrpvpxv
push 0
push 0
push 0
push 1
lea eax, [ebp - 0xbc]
push eax
lea ecx, [ebp - 0xc4]
mov edx, 0x525b14
mov eax, dword [ebp - 0x14]
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]
xor ecx, ecx
mov edx, 0x525acc
call fcn.0052270c
mov eax, dword [ebp - 0xbc]
call sub.rtl70.bpl__Sysutils_StrToFloatDef_qqrx17System_AnsiStringxg
mov eax, dword [esi]
fstp xword [eax + edi*8 + 0x68]
wait
push 1
lea eax, [ebp - 0xc8]
push eax
lea ecx, [ebp - 0xd0]
mov edx, 0x525b20
mov eax, dword [ebp - 0x14]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_GetFieldByName_qqr17System_AnsiString
mov eax, dword [ebp - 0xd0]
lea edx, [ebp - 0xcc]
call sub.rtl70.bpl__System_Utf8ToAnsi_qqrx17System_AnsiString
mov eax, dword [ebp - 0xcc]
xor ecx, ecx
mov edx, 0x525acc
call fcn.0052270c
mov edx, dword [ebp - 0xc8]
mov eax, dword [esi]
lea eax, [eax + edi*8 + 0x74]
call sub.rtl70.bpl__System__LStrAsg_qqrpvpxv
push 1
lea eax, [ebp - 0xd4]
push eax
lea ecx, [ebp - 0xdc]
mov edx, 0x525b30
mov eax, dword [ebp - 0x14]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_GetFieldByName_qqr17System_AnsiString
mov eax, dword [ebp - 0xdc]
lea edx, [ebp - 0xd8]
call sub.rtl70.bpl__System_Utf8ToAnsi_qqrx17System_AnsiString
mov eax, dword [ebp - 0xd8]
xor ecx, ecx
mov edx, 0x525acc
call fcn.0052270c
mov edx, dword [ebp - 0xd4]
mov eax, dword [esi]
lea eax, [eax + edi*8 + 0x78]
call sub.rtl70.bpl__System__LStrAsg_qqrpvpxv
push 1
lea eax, [ebp - 0xe0]
push eax
lea ecx, [ebp - 0xe8]
mov edx, 0x525b40
mov eax, dword [ebp - 0x14]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_GetFieldByName_qqr17System_AnsiString
mov eax, dword [ebp - 0xe8]
lea edx, [ebp - 0xe4]
call sub.rtl70.bpl__System_Utf8ToAnsi_qqrx17System_AnsiString
mov eax, dword [ebp - 0xe4]
xor ecx, ecx
mov edx, 0x525acc
call fcn.0052270c
mov edx, dword [ebp - 0xe0]
mov eax, dword [esi]
lea eax, [eax + edi*8 + 0x7c]
call sub.rtl70.bpl__System__LStrAsg_qqrpvpxv
push 1
lea eax, [ebp - 0xec]
push eax
lea ecx, [ebp - 0xf4]
mov edx, 0x525b50
mov eax, dword [ebp - 0x14]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_GetFieldByName_qqr17System_AnsiString
mov eax, dword [ebp - 0xf4]
lea edx, [ebp - 0xf0]
call sub.rtl70.bpl__System_Utf8ToAnsi_qqrx17System_AnsiString
mov eax, dword [ebp - 0xf0]
xor ecx, ecx
mov edx, 0x525acc
call fcn.0052270c
mov edx, dword [ebp - 0xec]
mov eax, dword [esi]
lea eax, [eax + edi*8 + 0x80]
call sub.rtl70.bpl__System__LStrAsg_qqrpvpxv
push 0
push 0
push 0
lea ecx, [ebp - 0xfc]
mov edx, 0x525b60
mov eax, dword [ebp - 0x14]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_GetFieldByName_qqr17System_AnsiString
mov eax, dword [ebp - 0xfc]
lea edx, [ebp - 0xf8]
call sub.rtl70.bpl__System_Utf8ToAnsi_qqrx17System_AnsiString
mov eax, dword [ebp - 0xf8]
call sub.rtl70.bpl__Sysutils_StrToFloatDef_qqrx17System_AnsiStringxg
fstp xword [ebp - 0x20]
wait
push 0
push 0
push 0
lea ecx, [ebp - 0x104]
mov edx, 0x525b6c
mov eax, dword [ebp - 0x14]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_GetFieldByName_qqr17System_AnsiString
mov eax, dword [ebp - 0x104]
lea edx, [ebp - 0x100]
call sub.rtl70.bpl__System_Utf8ToAnsi_qqrx17System_AnsiString
mov eax, dword [ebp - 0x100]
call sub.rtl70.bpl__Sysutils_StrToFloatDef_qqrx17System_AnsiStringxg
fstp xword [ebp - 0x30]
wait
lea ecx, [ebp - 0x10c]
mov edx, 0x525b78
mov eax, dword [ebp - 0x14]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_GetFieldByName_qqr17System_AnsiString
mov eax, dword [ebp - 0x10c]
lea edx, [ebp - 0x108]
call sub.rtl70.bpl__System_Utf8ToAnsi_qqrx17System_AnsiString
mov eax, dword [ebp - 0x108]
call sub.rtl70.bpl__Sysutils_StrToFloat_qqrx17System_AnsiString
fstp xword [ebp - 0x40]
wait
push 0
push 0
push 0
lea ecx, [ebp - 0x114]
mov edx, 0x525b84
mov eax, dword [ebp - 0x14]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_GetFieldByName_qqr17System_AnsiString
mov eax, dword [ebp - 0x114]
lea edx, [ebp - 0x110]
call sub.rtl70.bpl__System_Utf8ToAnsi_qqrx17System_AnsiString
mov eax, dword [ebp - 0x110]
call sub.rtl70.bpl__Sysutils_StrToFloatDef_qqrx17System_AnsiStringxg
fstp xword [ebp - 0x50]
wait
lea ecx, [ebp - 0x120]
mov edx, 0x525b90
mov eax, dword [ebp - 0x14]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_GetFieldByName_qqr17System_AnsiString
mov eax, dword [ebp - 0x120]
lea edx, [ebp - 0x11c]
call sub.rtl70.bpl__System_Utf8ToAnsi_qqrx17System_AnsiString
mov eax, dword [ebp - 0x11c]
lea edx, [ebp - 0x118]
call sub.rtl70.bpl__Sysutils_LowerCase_qqrx17System_AnsiString
mov eax, dword [ebp - 0x118]
mov edx, 0x525ba0
call sub.rtl70.bpl__System__LStrCmp_qqrv
jne 0x525117
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
fld xword [ebp - 0x20]
fcomp dword [0x525ba4]
fnstsw ax
sahf
je 0x5250fc
fld xword [ebp - 0x40]
fld xword [ebp - 0x20]
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 - 0x30]
mov dword [eax + edi*8 + 0x38], edx
mov edx, dword [ebp - 0x2c]
mov dword [eax + edi*8 + 0x3c], edx
mov dx, word [ebp - 0x28]
mov word [eax + edi*8 + 0x40], dx
jmp 0x525174
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
fld xword [ebp - 0x20]
fcomp dword [0x525ba4]
fnstsw ax
sahf
je 0x52515b
fld xword [ebp - 0x40]
fld xword [ebp - 0x50]
faddp st(1)
fld xword [ebp - 0x20]
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 - 0x30]
mov dword [eax + edi*8 + 0x28], edx
mov edx, dword [ebp - 0x2c]
mov dword [eax + edi*8 + 0x2c], edx
mov dx, word [ebp - 0x28]
mov word [eax + edi*8 + 0x30], dx
mov eax, dword [esi]
mov edx, dword [ebp - 0x20]
mov dword [eax + edi*8 + 0x18], edx
mov edx, dword [ebp - 0x1c]
mov dword [eax + edi*8 + 0x1c], edx
mov dx, word [ebp - 0x18]
mov word [eax + edi*8 + 0x20], dx
mov eax, dword [esi]
mov edx, dword [ebp - 0x40]
mov dword [eax + edi*8 + 0x48], edx
mov edx, dword [ebp - 0x3c]
mov dword [eax + edi*8 + 0x4c], edx
mov dx, word [ebp - 0x38]
mov word [eax + edi*8 + 0x50], dx
mov eax, dword [esi]
mov edx, dword [ebp - 0x50]
mov dword [eax + edi*8 + 0x58], edx
mov edx, dword [ebp - 0x4c]
mov dword [eax + edi*8 + 0x5c], edx
mov dx, word [ebp - 0x48]
mov word [eax + edi*8 + 0x60], dx
mov eax, dword [ebp - 0x14]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_Next_qqrv
inc ebx
dec dword [ebp - 0x54]
jne 0x524c02
jmp 0x5257fc
mov eax, dword [ebp - 0x10]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_MoveFirst_qqrv
mov eax, dword [ebp - 0x10]
mov eax, dword [eax + 8]
push eax
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 - 0x10]
mov eax, dword [eax + 8]
dec eax
test eax, eax
jl 0x5257fc
inc eax
mov dword [ebp - 0x54], eax
xor ebx, ebx
lea ecx, [ebp - 0x124]
mov edx, 0x525a8c
mov eax, dword [ebp - 0x10]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_GetFieldByName_qqr17System_AnsiString
mov eax, dword [ebp - 0x124]
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 - 0x128]
push eax
lea ecx, [ebp - 0x130]
mov edx, 0x525a9c
mov eax, dword [ebp - 0x10]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_GetFieldByName_qqr17System_AnsiString
mov eax, dword [ebp - 0x130]
lea edx, [ebp - 0x12c]
call sub.rtl70.bpl__System_Utf8ToAnsi_qqrx17System_AnsiString
mov eax, dword [ebp - 0x12c]
call sub.rtl70.bpl__Sysutils_StrToInt_qqrx17System_AnsiString
mov dword [ebp - 0x74], eax
mov byte [ebp - 0x70], 0
lea edx, [ebp - 0x74]
xor ecx, ecx
mov eax, 0x525aac
call sub.rtl70.bpl__Sysutils_Format_qqrx17System_AnsiStringpx14System_TVarRecxi
mov edx, dword [ebp - 0x128]
mov eax, dword [esi]
lea eax, [eax + edi*8 + 4]
call sub.rtl70.bpl__System__LStrAsg_qqrpvpxv
push 1
lea eax, [ebp - 0x134]
push eax
lea ecx, [ebp - 0x13c]
mov edx, 0x525abc
mov eax, dword [ebp - 0x10]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_GetFieldByName_qqr17System_AnsiString
mov eax, dword [ebp - 0x13c]
lea edx, [ebp - 0x138]
call sub.rtl70.bpl__System_Utf8ToAnsi_qqrx17System_AnsiString
mov eax, dword [ebp - 0x138]
xor ecx, ecx
mov edx, 0x525acc
call fcn.0052270c
mov edx, dword [ebp - 0x134]
mov eax, dword [esi]
lea eax, [eax + edi*8 + 8]
call sub.rtl70.bpl__System__LStrAsg_qqrpvpxv
push 1
lea eax, [ebp - 0x140]
push eax
lea ecx, [ebp - 0x148]
mov edx, 0x525ad8
mov eax, dword [ebp - 0x10]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_GetFieldByName_qqr17System_AnsiString
mov eax, dword [ebp - 0x148]
lea edx, [ebp - 0x144]
call sub.rtl70.bpl__System_Utf8ToAnsi_qqrx17System_AnsiString
mov eax, dword [ebp - 0x144]
xor ecx, ecx
mov edx, 0x525acc
call fcn.0052270c
mov edx, dword [ebp - 0x140]
mov eax, dword [esi]
lea eax, [eax + edi*8 + 0xc]
call sub.rtl70.bpl__System__LStrAsg_qqrpvpxv
push 1
lea eax, [ebp - 0x14c]
push eax
lea ecx, [ebp - 0x154]
mov edx, 0x525ae8
mov eax, dword [ebp - 0x10]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_GetFieldByName_qqr17System_AnsiString
mov eax, dword [ebp - 0x154]
lea edx, [ebp - 0x150]
call sub.rtl70.bpl__System_Utf8ToAnsi_qqrx17System_AnsiString
mov eax, dword [ebp - 0x150]
xor ecx, ecx
mov edx, 0x525acc
call fcn.0052270c
mov edx, dword [ebp - 0x14c]
mov eax, dword [esi]
lea eax, [eax + edi*8 + 0x10]
call sub.rtl70.bpl__System__LStrAsg_qqrpvpxv
push 1
lea eax, [ebp - 0x158]
push eax
lea ecx, [ebp - 0x160]
mov edx, 0x525af8
mov eax, dword [ebp - 0x10]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_GetFieldByName_qqr17System_AnsiString
mov eax, dword [ebp - 0x160]
lea edx, [ebp - 0x15c]
call sub.rtl70.bpl__System_Utf8ToAnsi_qqrx17System_AnsiString
mov eax, dword [ebp - 0x15c]
xor ecx, ecx
mov edx, 0x525acc
call fcn.0052270c
mov edx, dword [ebp - 0x158]
mov eax, dword [esi]
lea eax, [eax + edi*8 + 0x14]
call sub.rtl70.bpl__System__LStrAsg_qqrpvpxv
push 1
lea eax, [ebp - 0x164]
push eax
lea ecx, [ebp - 0x16c]
mov edx, 0x525b08
mov eax, dword [ebp - 0x10]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_GetFieldByName_qqr17System_AnsiString
mov eax, dword [ebp - 0x16c]
lea edx, [ebp - 0x168]
call sub.rtl70.bpl__System_Utf8ToAnsi_qqrx17System_AnsiString
mov eax, dword [ebp - 0x168]
xor ecx, ecx
mov edx, 0x525acc
call fcn.0052270c
mov edx, dword [ebp - 0x164]
mov eax, dword [esi]
lea eax, [eax + edi*8 + 0x84]
call sub.rtl70.bpl__System__LStrAsg_qqrpvpxv
push 0
push 0
push 0
push 1
lea eax, [ebp - 0x170]
push eax
lea ecx, [ebp - 0x178]
mov edx, 0x525b14
mov eax, dword [ebp - 0x10]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_GetFieldByName_qqr17System_AnsiString
mov eax, dword [ebp - 0x178]
lea edx, [ebp - 0x174]
call sub.rtl70.bpl__System_Utf8ToAnsi_qqrx17System_AnsiString
mov eax, dword [ebp - 0x174]
xor ecx, ecx
mov edx, 0x525acc
call fcn.0052270c
mov eax, dword [ebp - 0x170]
call sub.rtl70.bpl__Sysutils_StrToFloatDef_qqrx17System_AnsiStringxg
mov eax, dword [esi]
fstp xword [eax + edi*8 + 0x68]
wait
push 1
lea eax, [ebp - 0x17c]
push eax
lea ecx, [ebp - 0x184]
mov edx, 0x525b20
mov eax, dword [ebp - 0x10]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_GetFieldByName_qqr17System_AnsiString
mov eax, dword [ebp - 0x184]
lea edx, [ebp - 0x180]
call sub.rtl70.bpl__System_Utf8ToAnsi_qqrx17System_AnsiString
mov eax, dword [ebp - 0x180]
xor ecx, ecx
mov edx, 0x525acc
call fcn.0052270c
mov edx, dword [ebp - 0x17c]
mov eax, dword [esi]
lea eax, [eax + edi*8 + 0x74]
call sub.rtl70.bpl__System__LStrAsg_qqrpvpxv
push 1
lea eax, [ebp - 0x188]
push eax
lea ecx, [ebp - 0x190]
mov edx, 0x525b30
mov eax, dword [ebp - 0x10]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_GetFieldByName_qqr17System_AnsiString
mov eax, dword [ebp - 0x190]
lea edx, [ebp - 0x18c]
call sub.rtl70.bpl__System_Utf8ToAnsi_qqrx17System_AnsiString
mov eax, dword [ebp - 0x18c]
xor ecx, ecx
mov edx, 0x525acc
call fcn.0052270c
mov edx, dword [ebp - 0x188]
mov eax, dword [esi]
lea eax, [eax + edi*8 + 0x78]
call sub.rtl70.bpl__System__LStrAsg_qqrpvpxv
push 1
lea eax, [ebp - 0x194]
push eax
lea ecx, [ebp - 0x19c]
mov edx, 0x525b40
mov eax, dword [ebp - 0x10]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_GetFieldByName_qqr17System_AnsiString
mov eax, dword [ebp - 0x19c]
lea edx, [ebp - 0x198]
call sub.rtl70.bpl__System_Utf8ToAnsi_qqrx17System_AnsiString
mov eax, dword [ebp - 0x198]
xor ecx, ecx
mov edx, 0x525acc
call fcn.0052270c
mov edx, dword [ebp - 0x194]
mov eax, dword [esi]
lea eax, [eax + edi*8 + 0x7c]
call sub.rtl70.bpl__System__LStrAsg_qqrpvpxv
push 1
lea eax, [ebp - 0x1a0]
push eax
lea ecx, [ebp - 0x1a8]
mov edx, 0x525b50
mov eax, dword [ebp - 0x10]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_GetFieldByName_qqr17System_AnsiString
mov eax, dword [ebp - 0x1a8]
lea edx, [ebp - 0x1a4]
call sub.rtl70.bpl__System_Utf8ToAnsi_qqrx17System_AnsiString
mov eax, dword [ebp - 0x1a4]
xor ecx, ecx
mov edx, 0x525acc
call fcn.0052270c
mov edx, dword [ebp - 0x1a0]
mov eax, dword [esi]
lea eax, [eax + edi*8 + 0x80]
call sub.rtl70.bpl__System__LStrAsg_qqrpvpxv
push 0
push 0
push 0
lea ecx, [ebp - 0x1b0]
mov edx, 0x525b60
mov eax, dword [ebp - 0x10]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_GetFieldByName_qqr17System_AnsiString
mov eax, dword [ebp - 0x1b0]
lea edx, [ebp - 0x1ac]
call sub.rtl70.bpl__System_Utf8ToAnsi_qqrx17System_AnsiString
mov eax, dword [ebp - 0x1ac]
call sub.rtl70.bpl__Sysutils_StrToFloatDef_qqrx17System_AnsiStringxg
fstp xword [ebp - 0x20]
wait
push 0
push 0
push 0
lea ecx, [ebp - 0x1b8]
mov edx, 0x525b6c
mov eax, dword [ebp - 0x10]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_GetFieldByName_qqr17System_AnsiString
mov eax, dword [ebp - 0x1b8]
lea edx, [ebp - 0x1b4]
call sub.rtl70.bpl__System_Utf8ToAnsi_qqrx17System_AnsiString
mov eax, dword [ebp - 0x1b4]
call sub.rtl70.bpl__Sysutils_StrToFloatDef_qqrx17System_AnsiStringxg
fstp xword [ebp - 0x30]
wait
lea ecx, [ebp - 0x1c0]
mov edx, 0x525b78
mov eax, dword [ebp - 0x10]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_GetFieldByName_qqr17System_AnsiString
mov eax, dword [ebp - 0x1c0]
lea edx, [ebp - 0x1bc]
call sub.rtl70.bpl__System_Utf8ToAnsi_qqrx17System_AnsiString
mov eax, dword [ebp - 0x1bc]
call sub.rtl70.bpl__Sysutils_StrToFloat_qqrx17System_AnsiString
fstp xword [ebp - 0x40]
wait
push 0
push 0
push 0
lea ecx, [ebp - 0x1c8]
mov edx, 0x525b84
mov eax, dword [ebp - 0x10]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_GetFieldByName_qqr17System_AnsiString
mov eax, dword [ebp - 0x1c8]
lea edx, [ebp - 0x1c4]
call sub.rtl70.bpl__System_Utf8ToAnsi_qqrx17System_AnsiString
mov eax, dword [ebp - 0x1c4]
call sub.rtl70.bpl__Sysutils_StrToFloatDef_qqrx17System_AnsiStringxg
fstp xword [ebp - 0x50]
wait
lea ecx, [ebp - 0x1d4]
mov edx, 0x525b90
mov eax, dword [ebp - 0x10]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_GetFieldByName_qqr17System_AnsiString
mov eax, dword [ebp - 0x1d4]
lea edx, [ebp - 0x1d0]
call sub.rtl70.bpl__System_Utf8ToAnsi_qqrx17System_AnsiString
mov eax, dword [ebp - 0x1d0]
lea edx, [ebp - 0x1cc]
call sub.rtl70.bpl__Sysutils_LowerCase_qqrx17System_AnsiString
mov eax, dword [ebp - 0x1cc]
mov edx, 0x525ba0
call sub.rtl70.bpl__System__LStrCmp_qqrv
jne 0x525742
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
fld xword [ebp - 0x20]
fcomp dword [0x525ba4]
fnstsw ax
sahf
je 0x525727
fld xword [ebp - 0x40]
fld xword [ebp - 0x20]
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 - 0x30]
mov dword [eax + edi*8 + 0x38], edx
mov edx, dword [ebp - 0x2c]
mov dword [eax + edi*8 + 0x3c], edx
mov dx, word [ebp - 0x28]
mov word [eax + edi*8 + 0x40], dx
jmp 0x52579f
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
fld xword [ebp - 0x20]
fcomp dword [0x525ba4]
fnstsw ax
sahf
je 0x525786
fld xword [ebp - 0x40]
fld xword [ebp - 0x50]
faddp st(1)
fld xword [ebp - 0x20]
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 - 0x30]
mov dword [eax + edi*8 + 0x28], edx
mov edx, dword [ebp - 0x2c]
mov dword [eax + edi*8 + 0x2c], edx
mov dx, word [ebp - 0x28]
mov word [eax + edi*8 + 0x30], dx
mov eax, dword [esi]
mov edx, dword [ebp - 0x20]
mov dword [eax + edi*8 + 0x18], edx
mov edx, dword [ebp - 0x1c]
mov dword [eax + edi*8 + 0x1c], edx
mov dx, word [ebp - 0x18]
mov word [eax + edi*8 + 0x20], dx
mov eax, dword [esi]
mov edx, dword [ebp - 0x40]
mov dword [eax + edi*8 + 0x48], edx
mov edx, dword [ebp - 0x3c]
mov dword [eax + edi*8 + 0x4c], edx
mov dx, word [ebp - 0x38]
mov word [eax + edi*8 + 0x50], dx
mov eax, dword [esi]
mov edx, dword [ebp - 0x50]
mov dword [eax + edi*8 + 0x58], edx
mov edx, dword [ebp - 0x4c]
mov dword [eax + edi*8 + 0x5c], edx
mov dx, word [ebp - 0x48]
mov word [eax + edi*8 + 0x60], dx
mov eax, dword [ebp - 0x10]
call sym.P_Interface.bpl__Sqlitetable3_TSQLiteTable_Next_qqrv
inc ebx
dec dword [ebp - 0x54]
jne 0x52520f
mov byte [ebp - 9], 1
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x525825
mov eax, dword [ebp - 0x10]
call sub.rtl70.bpl__System_TObject_Free_qqrv
mov eax, dword [ebp - 0x14]
call sub.rtl70.bpl__System_TObject_Free_qqrv
ret