Function at 0x578c30
Capabilities:
Access peb ldr_data

Disassembly:
push ebp
mov ebp, esp
xor ecx, ecx
push ecx
push ecx
push ecx
push ecx
push ecx
push ecx
push ecx
push ebx
push esi
push edi
mov esi, eax
xor eax, eax
push ebp
push 0x578ddb
push dword fs:[eax]
mov dword fs:[eax], esp
xor ebx, ebx
test esi, esi
je 0x578db8
lea eax, [ebp - 4]
mov edx, 0x578df8
call sub.rtl120.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
xor eax, eax
push ebp
push 0x578dac
push dword fs:[eax]
mov dword fs:[eax], esp
lea eax, [ebp - 4]
mov edx, dword [esi]
call sub.rtl120.bpl__System__UStrCat_qqrr20System_UnicodeStringx20System_UnicodeString
lea eax, [ebp - 4]
mov edx, dword [esi + 4]
call sub.rtl120.bpl__System__UStrCat_qqrr20System_UnicodeStringx20System_UnicodeString
lea eax, [ebp - 4]
mov edx, dword [esi + 8]
call sub.rtl120.bpl__System__UStrCat_qqrr20System_UnicodeStringx20System_UnicodeString
lea eax, [ebp - 4]
mov edx, dword [esi + 0xc]
call sub.rtl120.bpl__System__UStrCat_qqrr20System_UnicodeStringx20System_UnicodeString
lea eax, [ebp - 4]
mov edx, dword [esi + 0x10]
call sub.rtl120.bpl__System__UStrCat_qqrr20System_UnicodeStringx20System_UnicodeString
lea eax, [ebp - 4]
mov edx, dword [esi + 0x18]
call sub.rtl120.bpl__System__UStrCat_qqrr20System_UnicodeStringx20System_UnicodeString
lea eax, [ebp - 4]
mov edx, dword [esi + 0x1c]
call sub.rtl120.bpl__System__UStrCat_qqrr20System_UnicodeStringx20System_UnicodeString
lea eax, [ebp - 4]
mov edx, dword [esi + 0x20]
call sub.rtl120.bpl__System__UStrCat_qqrr20System_UnicodeStringx20System_UnicodeString
lea eax, [ebp - 4]
mov edx, dword [esi + 0x24]
call sub.rtl120.bpl__System__UStrCat_qqrr20System_UnicodeStringx20System_UnicodeString
lea eax, [ebp - 4]
mov edx, dword [esi + 0x30]
call sub.rtl120.bpl__System__UStrCat_qqrr20System_UnicodeStringx20System_UnicodeString
lea eax, [ebp - 4]
mov edx, dword [esi + 0x50]
call sub.rtl120.bpl__System__UStrCat_qqrr20System_UnicodeStringx20System_UnicodeString
lea eax, [ebp - 4]
mov edx, dword [esi + 0x54]
call sub.rtl120.bpl__System__UStrCat_qqrr20System_UnicodeStringx20System_UnicodeString
lea eax, [ebp - 4]
mov edx, dword [esi + 0x58]
call sub.rtl120.bpl__System__UStrCat_qqrr20System_UnicodeStringx20System_UnicodeString
lea eax, [ebp - 4]
mov edx, dword [esi + 0x5c]
call sub.rtl120.bpl__System__UStrCat_qqrr20System_UnicodeStringx20System_UnicodeString
lea eax, [ebp - 4]
mov edx, dword [esi + 0x60]
call sub.rtl120.bpl__System__UStrCat_qqrr20System_UnicodeStringx20System_UnicodeString
lea eax, [ebp - 4]
mov edx, dword [esi + 0x70]
call sub.rtl120.bpl__System__UStrCat_qqrr20System_UnicodeStringx20System_UnicodeString
lea eax, [ebp - 4]
mov edx, dword [esi + 0x98]
call sub.rtl120.bpl__System__UStrCat_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [esi + 0x28]
mov dword [ebp - 0x10], eax
mov eax, dword [esi + 0x2c]
mov dword [ebp - 0xc], eax
push dword [ebp - 0xc]
push dword [ebp - 0x10]
lea eax, [ebp - 0x14]
call sub.rtl120.bpl__Sysutils_DateTimeToStr_qqrx16System_TDateTime
mov edx, dword [ebp - 0x14]
lea eax, [ebp - 4]
call sub.rtl120.bpl__System__UStrCat_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [esi + 0x34]
mov dword [ebp - 0x10], eax
mov eax, dword [esi + 0x38]
mov dword [ebp - 0xc], eax
push dword [ebp - 0xc]
push dword [ebp - 0x10]
lea eax, [ebp - 0x18]
call sub.rtl120.bpl__Sysutils_DateTimeToStr_qqrx16System_TDateTime
mov edx, dword [ebp - 0x18]
lea eax, [ebp - 4]
call sub.rtl120.bpl__System__UStrCat_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [esi + 0x3c]
mov dword [ebp - 0x10], eax
mov eax, dword [esi + 0x40]
mov dword [ebp - 0xc], eax
push dword [ebp - 0xc]
push dword [ebp - 0x10]
lea eax, [ebp - 0x1c]
call sub.rtl120.bpl__Sysutils_DateTimeToStr_qqrx16System_TDateTime
mov edx, dword [ebp - 0x1c]
lea eax, [ebp - 4]
call sub.rtl120.bpl__System__UStrCat_qqrr20System_UnicodeStringx20System_UnicodeString
mov bl, 1
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x578db8
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x578de2
lea eax, [ebp - 0x1c]
mov edx, 3
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 4]
call sub.rtl120.bpl__System__UStrClr_qqrpv
ret