Function at 0x5ea2ec
Capabilities:
Reference sql statements

Disassembly:
push ebp
mov ebp, esp
mov ecx, 0x16
push 0
push 0
dec ecx
jne 0x5ea2f4
mov dword [ebp - 4], eax
xor eax, eax
push ebp
push 0x5eae2a
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [0x730aac]
cmp dword [eax], 1
sbb eax, eax
inc eax
cmp al, 1
jne 0x5ea343
mov eax, dword [0x730a90]
mov eax, dword [eax]
mov eax, dword [eax + 0x590]
xor edx, edx
call sub.vcl260.bpl__Vcl_Extctrls_TTimer_SetEnabled_qqro
mov eax, dword [0x730a90]
mov eax, dword [eax]
mov eax, dword [eax + 0x590]
mov dl, 1
call sub.vcl260.bpl__Vcl_Extctrls_TTimer_SetEnabled_qqro
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0xa58]
call sub.tmsdXE12.bpl__Advgrid_TAdvStringGrid_GetRowCountEx_qqrv
dec eax
test eax, eax
jle 0x5ea445
mov dword [ebp - 0x14], eax
mov dword [ebp - 8], 1
push 0
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0xa58]
mov ecx, dword [ebp - 8]
xor edx, edx
call sub.tmsdXE12.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix20System_UnicodeString
push 0
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0xa58]
mov ecx, dword [ebp - 8]
mov edx, 1
call sub.tmsdXE12.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix20System_UnicodeString
push 0
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0xa58]
mov ecx, dword [ebp - 8]
mov edx, 2
call sub.tmsdXE12.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix20System_UnicodeString
push 0
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0xa58]
mov ecx, dword [ebp - 8]
mov edx, 3
call sub.tmsdXE12.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix20System_UnicodeString
push 0
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0xa58]
mov ecx, dword [ebp - 8]
mov edx, 4
call sub.tmsdXE12.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix20System_UnicodeString
push 0
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0xa58]
mov ecx, dword [ebp - 8]
mov edx, 5
call sub.tmsdXE12.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix20System_UnicodeString
push 0
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0xa58]
mov ecx, dword [ebp - 8]
mov edx, 6
call sub.tmsdXE12.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix20System_UnicodeString
push 0
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0xa58]
mov ecx, dword [ebp - 8]
mov edx, 7
call sub.tmsdXE12.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix20System_UnicodeString
push 0
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0xa58]
mov ecx, dword [ebp - 8]
mov edx, 8
call sub.tmsdXE12.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix20System_UnicodeString
inc dword [ebp - 8]
dec dword [ebp - 0x14]
jne 0x5ea364
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0xa2c]
call sub.vcl260.bpl__Vcl_Comctrls_TCommonCalendar_GetDate_qqrv
add esp, 0xfffffff8
fstp qword [esp]
wait
lea edx, [ebp - 0x1c]
mov eax, 0x5eae44
call sub.rtl260.bpl__System_Sysutils_FormatDateTime_qqrx20System_UnicodeString16System_TDateTime
mov eax, dword [ebp - 0x1c]
push eax
call sub.rtl260.bpl__System_Sysutils_Now_qqrv
add esp, 0xfffffff8
fstp qword [esp]
wait
lea edx, [ebp - 0x20]
mov eax, 0x5eae44
call sub.rtl260.bpl__System_Sysutils_FormatDateTime_qqrx20System_UnicodeString16System_TDateTime
mov edx, dword [ebp - 0x20]
pop eax
call sub.rtl260.bpl__System__UStrEqual_qqrv
jne 0x5ea4eb
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0xa34]
call sub.vcl260.bpl__Vcl_Comctrls_TCommonCalendar_GetDate_qqrv
add esp, 0xfffffff8
fstp qword [esp]
wait
lea edx, [ebp - 0x24]
mov eax, 0x5eae44
call sub.rtl260.bpl__System_Sysutils_FormatDateTime_qqrx20System_UnicodeString16System_TDateTime
mov eax, dword [ebp - 0x24]
push eax
call sub.rtl260.bpl__System_Sysutils_Now_qqrv
add esp, 0xfffffff8
fstp qword [esp]
wait
lea edx, [ebp - 0x28]
mov eax, 0x5eae44
call sub.rtl260.bpl__System_Sysutils_FormatDateTime_qqrx20System_UnicodeString16System_TDateTime
mov edx, dword [ebp - 0x28]
pop eax
call sub.rtl260.bpl__System__UStrEqual_qqrv
jne 0x5ea4eb
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0xa60]
mov dl, 1
call sub.vcl260.bpl__Vcl_Controls_TControl_SetVisible_qqro
jmp 0x5ea4fb
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0xa60]
xor edx, edx
call sub.vcl260.bpl__Vcl_Controls_TControl_SetVisible_qqro
mov eax, dword [0x730f34]
mov eax, dword [eax]
mov eax, dword [eax + 0x6c]
mov dword [ebp - 0x18], eax
mov eax, dword [ebp - 0x18]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x18]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x48]
mov eax, dword [ebp - 0x18]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x5eae68
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0xa2c]
call sub.vcl260.bpl__Vcl_Comctrls_TCommonCalendar_GetDate_qqrv
add esp, 0xfffffff8
fstp qword [esp]
wait
lea edx, [ebp - 0x2c]
mov eax, 0x5eae44
call sub.rtl260.bpl__System_Sysutils_FormatDateTime_qqrx20System_UnicodeString16System_TDateTime
mov eax, dword [ebp - 0x2c]
push eax
mov edx, 0x5eaf58
mov eax, dword [ebp - 0x18]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0xa34]
call sub.vcl260.bpl__Vcl_Comctrls_TCommonCalendar_GetDate_qqrv
add esp, 0xfffffff8
fstp qword [esp]
wait
lea edx, [ebp - 0x30]
mov eax, 0x5eae44
call sub.rtl260.bpl__System_Sysutils_FormatDateTime_qqrx20System_UnicodeString16System_TDateTime
mov eax, dword [ebp - 0x30]
push eax
mov edx, 0x5eaf70
mov eax, dword [ebp - 0x18]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov eax, dword [ebp - 0x18]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Open_qqrv
xor eax, eax
mov dword [ebp - 0xc], eax
xor eax, eax
mov dword [ebp - 0x10], eax
jmp 0x5ea610
mov edx, 0x5eaf88
mov eax, dword [ebp - 0x18]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x34]
mov ecx, dword [eax]
call dword [ecx + 0x88]
mov eax, dword [ebp - 0x34]
mov edx, 0x5eafa4
call sub.rtl260.bpl__System__UStrEqual_qqrv
jne 0x5ea5f3
mov edx, 0x5eafb4
mov eax, dword [ebp - 0x18]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
mov edx, dword [eax]
call dword [edx + 0x74]
mov dword [ebp - 0xc], eax
jmp 0x5ea608
mov edx, 0x5eafb4
mov eax, dword [ebp - 0x18]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
mov edx, dword [eax]
call dword [edx + 0x74]
mov dword [ebp - 0x10], eax
mov eax, dword [ebp - 0x18]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Next_qqrv
mov eax, dword [ebp - 0x18]
cmp byte [eax + 0xad], 0
je 0x5ea5b5
push 0x5eafc8
lea edx, [ebp - 0x3c]
mov eax, dword [ebp - 0xc]
add eax, dword [ebp - 0x10]
call sub.rtl260.bpl__System_Sysutils_IntToStr_qqri
push dword [ebp - 0x3c]
push 0x5eafe0
lea edx, [ebp - 0x40]
mov eax, dword [ebp - 0xc]
call sub.rtl260.bpl__System_Sysutils_IntToStr_qqri
push dword [ebp - 0x40]
push 0x5eaff8
lea edx, [ebp - 0x44]
mov eax, dword [ebp - 0x10]
call sub.rtl260.bpl__System_Sysutils_IntToStr_qqri
push dword [ebp - 0x44]
lea eax, [ebp - 0x38]
mov edx, 6
call sub.rtl260.bpl__System__UStrCatN_qqrv
mov edx, dword [ebp - 0x38]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0xa44]
call sub.vcl260.bpl__Vcl_Controls_TControl_SetText_qqrx20System_UnicodeString
mov eax, dword [ebp - 0x18]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x18]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x48]
mov eax, dword [ebp - 0x18]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x5eb00c
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x18]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x5eb0e0
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x18]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x5eb228
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0xa2c]
call sub.vcl260.bpl__Vcl_Comctrls_TCommonCalendar_GetDate_qqrv
add esp, 0xfffffff8
fstp qword [esp]
wait
lea edx, [ebp - 0x48]
mov eax, 0x5eae44
call sub.rtl260.bpl__System_Sysutils_FormatDateTime_qqrx20System_UnicodeString16System_TDateTime
mov eax, dword [ebp - 0x48]
push eax
mov edx, 0x5eaf58
mov eax, dword [ebp - 0x18]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0xa34]
call sub.vcl260.bpl__Vcl_Comctrls_TCommonCalendar_GetDate_qqrv
add esp, 0xfffffff8
fstp qword [esp]
wait
lea edx, [ebp - 0x4c]
mov eax, 0x5eae44
call sub.rtl260.bpl__System_Sysutils_FormatDateTime_qqrx20System_UnicodeString16System_TDateTime
mov eax, dword [ebp - 0x4c]
push eax
mov edx, 0x5eaf70
mov eax, dword [ebp - 0x18]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x48]
call sub.rtl260.bpl__System_Sysutils_Now_qqrv
add esp, 0xfffffff8
fstp qword [esp]
wait
lea edx, [ebp - 0x50]
mov eax, 0x5eb258
call sub.rtl260.bpl__System_Sysutils_FormatDateTime_qqrx20System_UnicodeString16System_TDateTime
lea eax, [ebp - 0x50]
push eax
call sub.rtl260.bpl__System_Sysutils_Time_qqrv
add esp, 0xfffffff8
fstp qword [esp]
wait
lea edx, [ebp - 0x58]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0xa64]
call sub.vcl260.bpl__Vcl_Controls_TControl_GetText_qqrv
mov eax, dword [ebp - 0x58]
call sub.rtl260.bpl__System_Sysutils_StrToInt_qqrx20System_UnicodeString
neg eax
cdq
push edx
push eax
call sub.rtl260.bpl__System_Dateutils_IncMinute_qqrx16System_TDateTimexj
add esp, 0xfffffff8
fstp qword [esp]
wait
lea edx, [ebp - 0x54]
mov eax, 0x5eb278
call sub.rtl260.bpl__System_Sysutils_FormatDateTime_qqrx20System_UnicodeString16System_TDateTime
mov edx, dword [ebp - 0x54]
pop eax
call sub.rtl260.bpl__System__UStrCat_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 0x50]
push eax
mov edx, 0x5eb290
mov eax, dword [ebp - 0x18]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov eax, dword [ebp - 0x18]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Open_qqrv
xor eax, eax
mov dword [ebp - 0xc], eax
xor eax, eax
mov dword [ebp - 0x10], eax
jmp 0x5ea822
mov edx, 0x5eaf88
mov eax, dword [ebp - 0x18]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x5c]
mov ecx, dword [eax]
call dword [ecx + 0x88]
mov eax, dword [ebp - 0x5c]
mov edx, 0x5eafa4
call sub.rtl260.bpl__System__UStrEqual_qqrv
jne 0x5ea805
mov edx, 0x5eafb4
mov eax, dword [ebp - 0x18]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
mov edx, dword [eax]
call dword [edx + 0x74]
mov dword [ebp - 0xc], eax
jmp 0x5ea81a
mov edx, 0x5eafb4
mov eax, dword [ebp - 0x18]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
mov edx, dword [eax]
call dword [edx + 0x74]
mov dword [ebp - 0x10], eax
mov eax, dword [ebp - 0x18]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Next_qqrv
mov eax, dword [ebp - 0x18]
cmp byte [eax + 0xad], 0
je 0x5ea7c7
push 0x5eb2ac
lea edx, [ebp - 0x64]
mov eax, dword [ebp - 0xc]
call sub.rtl260.bpl__System_Sysutils_IntToStr_qqri
push dword [ebp - 0x64]
push 0x5eb2cc
lea eax, [ebp - 0x60]
mov edx, 3
call sub.rtl260.bpl__System__UStrCatN_qqrv
mov edx, dword [ebp - 0x60]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0xa4c]
call sub.vcl260.bpl__Vcl_Controls_TControl_SetText_qqrx20System_UnicodeString
push 0x5eb2dc
lea edx, [ebp - 0x6c]
mov eax, dword [ebp - 0x10]
call sub.rtl260.bpl__System_Sysutils_IntToStr_qqri
push dword [ebp - 0x6c]
push 0x5eb2cc
lea eax, [ebp - 0x68]
mov edx, 3
call sub.rtl260.bpl__System__UStrCatN_qqrv
mov edx, dword [ebp - 0x68]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0xa54]
call sub.vcl260.bpl__Vcl_Controls_TControl_SetText_qqrx20System_UnicodeString
mov eax, dword [ebp - 0x18]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x18]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x48]
mov eax, dword [ebp - 0x18]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x5eb2fc
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x18]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x5eb3b8
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x18]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x5eb46c
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x18]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x5eb520
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x18]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x5eb5bc
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x18]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x5eb61c
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x18]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x5eb6d0
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x18]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x5eb750
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x18]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x5eb794
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x18]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x5eb7fc
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x18]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x5eb960
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x18]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x5eb9fc
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x18]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x5eba1c
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x18]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x5eb3b8
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x18]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x5ebae4
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x18]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x5ebb98
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x18]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x5ebc00
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x18]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x5ebc4c
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x18]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x5eb7fc
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x18]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x5eb960
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0xa2c]
call sub.vcl260.bpl__Vcl_Comctrls_TCommonCalendar_GetDate_qqrv
add esp, 0xfffffff8
fstp qword [esp]
wait
lea edx, [ebp - 0x70]
mov eax, 0x5eae44
call sub.rtl260.bpl__System_Sysutils_FormatDateTime_qqrx20System_UnicodeString16System_TDateTime
mov eax, dword [ebp - 0x70]
push eax
mov edx, 0x5eaf58
mov eax, dword [ebp - 0x18]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0xa34]
call sub.vcl260.bpl__Vcl_Comctrls_TCommonCalendar_GetDate_qqrv
add esp, 0xfffffff8
fstp qword [esp]
wait
lea edx, [ebp - 0x74]
mov eax, 0x5eae44
call sub.rtl260.bpl__System_Sysutils_FormatDateTime_qqrx20System_UnicodeString16System_TDateTime
mov eax, dword [ebp - 0x74]
push eax
mov edx, 0x5eaf70
mov eax, dword [ebp - 0x18]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x48]
call sub.rtl260.bpl__System_Sysutils_Now_qqrv
add esp, 0xfffffff8
fstp qword [esp]
wait
lea edx, [ebp - 0x78]
mov eax, 0x5eb258
call sub.rtl260.bpl__System_Sysutils_FormatDateTime_qqrx20System_UnicodeString16System_TDateTime
lea eax, [ebp - 0x78]
push eax
call sub.rtl260.bpl__System_Sysutils_Time_qqrv
add esp, 0xfffffff8
fstp qword [esp]
wait
lea edx, [ebp - 0x80]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0xa64]
call sub.vcl260.bpl__Vcl_Controls_TControl_GetText_qqrv
mov eax, dword [ebp - 0x80]
call sub.rtl260.bpl__System_Sysutils_StrToInt_qqrx20System_UnicodeString
neg eax
cdq
push edx
push eax
call sub.rtl260.bpl__System_Dateutils_IncMinute_qqrx16System_TDateTimexj
add esp, 0xfffffff8
fstp qword [esp]
wait
lea edx, [ebp - 0x7c]
mov eax, 0x5eb278
call sub.rtl260.bpl__System_Sysutils_FormatDateTime_qqrx20System_UnicodeString16System_TDateTime
mov edx, dword [ebp - 0x7c]
pop eax
call sub.rtl260.bpl__System__UStrCat_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 0x78]
push eax
mov edx, 0x5eb290
mov eax, dword [ebp - 0x18]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov eax, dword [ebp - 0x18]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Open_qqrv
xor eax, eax
mov dword [ebp - 8], eax
jmp 0x5ead99
inc dword [ebp - 8]
push 0x5ebcb0
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0xa58]
mov ecx, dword [ebp - 8]
xor edx, edx
call sub.tmsdXE12.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix20System_UnicodeString
push 0x5ebcc0
mov edx, 0x5ebcd0
mov eax, dword [ebp - 0x18]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x88]
mov ecx, dword [eax]
call dword [ecx + 0x88]
push dword [ebp - 0x88]
push 0x5ebce4
push 0x5ebcf4
mov edx, 0x5ebd08
mov eax, dword [ebp - 0x18]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x8c]
mov ecx, dword [eax]
call dword [ecx + 0x88]
push dword [ebp - 0x8c]
push 0x5ebd1c
mov edx, 0x5ebd30
mov eax, dword [ebp - 0x18]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x90]
mov ecx, dword [eax]
call dword [ecx + 0x88]
push dword [ebp - 0x90]
push 0x5ebd48
mov edx, 0x5ebd5c
mov eax, dword [ebp - 0x18]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x94]
mov ecx, dword [eax]
call dword [ecx + 0x88]
push dword [ebp - 0x94]
push 0x5ebd7c
mov edx, 0x5ebd90
mov eax, dword [ebp - 0x18]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x98]
mov ecx, dword [eax]
call dword [ecx + 0x88]
push dword [ebp - 0x98]
lea eax, [ebp - 0x84]
mov edx, 0xb
call sub.rtl260.bpl__System__UStrCatN_qqrv
mov eax, dword [ebp - 0x84]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0xa58]
mov ecx, dword [ebp - 8]
mov edx, 1
call sub.tmsdXE12.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix20System_UnicodeString
mov edx, 0x5ebda4
mov eax, dword [ebp - 0x18]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x9c]
mov ecx, dword [eax]
call dword [ecx + 0x88]
mov eax, dword [ebp - 0x9c]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0xa58]
mov ecx, dword [ebp - 8]
mov edx, 2
call sub.tmsdXE12.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix20System_UnicodeString
mov edx, 0x5ebdbc
mov eax, dword [ebp - 0x18]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0xa0]
mov ecx, dword [eax]
call dword [ecx + 0x88]
mov eax, dword [ebp - 0xa0]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0xa58]
mov ecx, dword [ebp - 8]
mov edx, 3
call sub.tmsdXE12.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix20System_UnicodeString
mov edx, 0x5ebd5c
mov eax, dword [ebp - 0x18]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0xa4]
mov ecx, dword [eax]
call dword [ecx + 0x88]
mov eax, dword [ebp - 0xa4]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0xa58]
mov ecx, dword [ebp - 8]
mov edx, 4
call sub.tmsdXE12.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix20System_UnicodeString
mov edx, 0x5ebdd4
mov eax, dword [ebp - 0x18]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0xa8]
mov ecx, dword [eax]
call dword [ecx + 0x88]
mov eax, dword [ebp - 0xa8]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0xa58]
mov ecx, dword [ebp - 8]
mov edx, 5
call sub.tmsdXE12.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix20System_UnicodeString
push 0x5ebde8
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0xa58]
mov ecx, dword [ebp - 8]
mov edx, 6
call sub.tmsdXE12.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix20System_UnicodeString
mov edx, 0x5ebe00
mov eax, dword [ebp - 0x18]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0xac]
mov ecx, dword [eax]
call dword [ecx + 0x88]
mov eax, dword [ebp - 0xac]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0xa58]
mov ecx, dword [ebp - 8]
mov edx, 7
call sub.tmsdXE12.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix20System_UnicodeString
mov edx, 0x5ebe14
mov eax, dword [ebp - 0x18]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0xb0]
mov ecx, dword [eax]
call dword [ecx + 0x88]
mov eax, dword [ebp - 0xb0]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0xa58]
mov ecx, dword [ebp - 8]
mov edx, 8
call sub.tmsdXE12.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix20System_UnicodeString
mov eax, dword [ebp - 0x18]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Next_qqrv
mov eax, dword [ebp - 0x18]
cmp byte [eax + 0xad], 0
je 0x5eab1b
mov eax, dword [ebp - 0x18]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
cmp dword [ebp - 8], 0
jle 0x5eadc9
mov edx, dword [ebp - 8]
inc edx
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0xa58]
call sub.tmsdXE12.bpl__Advgrid_TAdvStringGrid_SetRowCountEx_qqri
cmp dword [ebp - 8], 0
jne 0x5eade2
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0xa58]
mov edx, 2
call sub.tmsdXE12.bpl__Advgrid_TAdvStringGrid_SetRowCountEx_qqri
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x5eae31
lea eax, [ebp - 0xb0]
mov edx, 0xc
call sub.rtl260.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0x80]
call sub.rtl260.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0x7c]
mov edx, 9
call sub.rtl260.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0x58]
call sub.rtl260.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0x54]
mov edx, 0xf
call sub.rtl260.bpl__System__UStrArrayClr_qqrpvi
ret