Function at 0x409118
Capabilities:
Print debug messages

Disassembly:
push ebp
mov ebp, esp
push ecx
mov ecx, 0x19
push 0
push 0
dec ecx
jne 0x409121
xchg dword [ebp - 4], ecx
push ebx
push esi
push edi
mov ebx, ecx
mov byte [ebp - 1], dl
mov esi, eax
mov edi, 0x40c530
xor eax, eax
push ebp
push 0x409d6c
push dword fs:[eax]
mov dword fs:[eax], esp
xor eax, eax
push ebp
push 0x409d3c
push dword fs:[eax]
mov dword fs:[eax], esp
push 0x409d84
lea edx, [ebp - 0x1c]
mov eax, dword [0x40b0f0]
mov eax, dword [eax]
call sub.Vcl50.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x1c]
push 0x409d90
lea edx, [ebp - 0x20]
mov eax, dword [0x40b0e8]
mov eax, dword [eax]
call sub.Vcl50.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x20]
push 0x409d9c
lea eax, [ebp - 8]
mov edx, 5
call sub.Vcl50.bpl__System__LStrCatN_qqrv
lea eax, [ebp - 0x18]
push eax
call sub.kernel32.dll_GetLocalTime
push dword [ebp - 8]
lea edx, [ebp - 0x24]
movzx eax, word [ebp - 0x10]
call sub.Vcl50.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x24]
push 0x409da8
lea edx, [ebp - 0x28]
movzx eax, word [ebp - 0xe]
call sub.Vcl50.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x28]
push 0x409da8
lea edx, [ebp - 0x2c]
movzx eax, word [ebp - 0xc]
call sub.Vcl50.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x2c]
push 0x409db4
lea edx, [ebp - 0x30]
movzx eax, word [ebp - 0xa]
call sub.Vcl50.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x30]
push 0x409dc0
lea eax, [ebp - 8]
mov edx, 9
call sub.Vcl50.bpl__System__LStrCatN_qqrv
xor eax, eax
mov al, byte [ebp - 1]
cmp eax, 0x71
jg 0x40929b
je 0x409891
cmp eax, 0x13
jg 0x40927a
je 0x40955c
cmp eax, 0x12
ja case.0x4092a7.116
jmp dword [eax*4 + 0x40922e]
sub eax, 0x14
je 0x409360
dec eax
je 0x4092f8
dec eax
je 0x40939f
sub eax, 0x59
je 0x4096dd
jmp case.0x4092a7.116
add eax, 0xffffff8e
cmp eax, 0xd
ja case.0x4092a7.116
jmp dword [eax*4 + 0x4092ae]
lea eax, [ebp - 8]
mov edx, 0x409dcc
call sub.Vcl50.bpl__System__LStrCat_qqrv
jmp case.0x4092a7.116
lea eax, [ebp - 8]
mov edx, 0x409de4
call sub.Vcl50.bpl__System__LStrCat_qqrv
jmp case.0x4092a7.116
push dword [ebp - 8]
push 0x409dfc
push dword [esi + 0x2c68]
lea eax, [ebp - 8]
mov edx, 3
call sub.Vcl50.bpl__System__LStrCatN_qqrv
jmp case.0x4092a7.116
push dword [ebp - 8]
push 0x409e10
lea edx, [ebp - 0x34]
mov eax, dword [esi + 0x2c64]
call sub.Vcl50.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x34]
push 0x409e28
push dword [esi + 0x2c68]
lea eax, [ebp - 8]
mov edx, 5
call sub.Vcl50.bpl__System__LStrCatN_qqrv
jmp case.0x4092a7.116
push dword [ebp - 8]
push 0x409e34
lea edx, [ebp - 0x38]
mov eax, dword [edi]
mov eax, dword [eax + 0x27b0]
call sub.Vcl50.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x38]
lea eax, [ebp - 8]
mov edx, 3
call sub.Vcl50.bpl__System__LStrCatN_qqrv
jmp case.0x4092a7.116
lea eax, [ebp - 8]
mov edx, 0x409e4c
call sub.Vcl50.bpl__System__LStrCat_qqrv
jmp case.0x4092a7.116
lea eax, [ebp - 8]
mov edx, 0x409e64
call sub.Vcl50.bpl__System__LStrCat_qqrv
jmp case.0x4092a7.116
push dword [ebp - 8]
push 0x409e7c
lea edx, [ebp - 0x3c]
mov eax, dword [edi]
movzx eax, word [eax + 0x28]
call sub.Vcl50.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x3c]
push 0x409e98
lea edx, [ebp - 0x40]
mov eax, dword [edi]
movzx eax, word [eax + 0x27b6]
call sub.Vcl50.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x40]
push 0x409eac
lea edx, [ebp - 0x44]
mov eax, dword [edi]
movzx eax, byte [eax + 0x27b5]
call sub.Vcl50.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x44]
lea eax, [ebp - 8]
mov edx, 7
call sub.Vcl50.bpl__System__LStrCatN_qqrv
cmp byte [esi + 0x2c6d], 0
je 0x40954a
mov bl, byte [esi + 0x2c6c]
cmp bl, 0x81
jne 0x409430
lea eax, [ebp - 8]
mov edx, 0x409ebc
call sub.Vcl50.bpl__System__LStrCat_qqrv
jmp 0x40946d
cmp bl, 0x41
jne 0x409444
lea eax, [ebp - 8]
mov edx, 0x409ed4
call sub.Vcl50.bpl__System__LStrCat_qqrv
jmp 0x40946d
push dword [ebp - 8]
push 0x409ef0
lea ecx, [ebp - 0x48]
xor eax, eax
mov al, bl
mov edx, 2
call sub.Vcl50.bpl__Sysutils_IntToHex_qqrii
push dword [ebp - 0x48]
lea eax, [ebp - 8]
mov edx, 3
call sub.Vcl50.bpl__System__LStrCatN_qqrv
push dword [ebp - 8]
push 0x409f04
lea edx, [ebp - 0x4c]
xor eax, eax
mov al, byte [0x40c55d]
call sub.Vcl50.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x4c]
push 0x409f18
lea eax, [ebp - 8]
mov edx, 4
call sub.Vcl50.bpl__System__LStrCatN_qqrv
xor eax, eax
mov al, byte [0x40c55d]
cmp eax, 6
ja case.0x4092a7.116
jmp dword [eax*4 + 0x4094b0]
lea eax, [ebp - 8]
mov edx, 0x409f2c
call sub.Vcl50.bpl__System__LStrCat_qqrv
jmp case.0x4092a7.116
lea eax, [ebp - 8]
mov edx, 0x409f40
call sub.Vcl50.bpl__System__LStrCat_qqrv
jmp case.0x4092a7.116
lea eax, [ebp - 8]
mov edx, 0x409f68
call sub.Vcl50.bpl__System__LStrCat_qqrv
jmp case.0x4092a7.116
lea eax, [ebp - 8]
mov edx, 0x409f80
call sub.Vcl50.bpl__System__LStrCat_qqrv
jmp case.0x4092a7.116
lea eax, [ebp - 8]
mov edx, 0x409f98
call sub.Vcl50.bpl__System__LStrCat_qqrv
jmp case.0x4092a7.116
lea eax, [ebp - 8]
mov edx, 0x409fac
call sub.Vcl50.bpl__System__LStrCat_qqrv
jmp case.0x4092a7.116
lea eax, [ebp - 8]
mov edx, 0x409fcc
call sub.Vcl50.bpl__System__LStrCat_qqrv
jmp case.0x4092a7.116
lea eax, [ebp - 8]
mov edx, 0x409fe0
call sub.Vcl50.bpl__System__LStrCat_qqrv
jmp case.0x4092a7.116
push dword [ebp - 8]
push 0x40a004
lea edx, [ebp - 0x50]
mov eax, dword [edi]
movzx eax, word [eax + 0x28]
call sub.Vcl50.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x50]
push 0x409e98
lea edx, [ebp - 0x54]
mov eax, dword [edi]
movzx eax, word [eax + 0x27b6]
call sub.Vcl50.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x54]
push 0x409eac
lea edx, [ebp - 0x58]
mov eax, dword [edi]
movzx eax, byte [eax + 0x27b5]
call sub.Vcl50.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x58]
lea eax, [ebp - 8]
mov edx, 7
call sub.Vcl50.bpl__System__LStrCatN_qqrv
cmp byte [esi + 0x2c6d], 0
je 0x4096cb
push dword [ebp - 8]
push 0x40a020
fld qword [0x40c54d]
add esp, 0xfffffff4
fstp xword [esp]
wait
lea eax, [ebp - 0x5c]
call sub.Vcl50.bpl__Sysutils_FloatToStr_qqrg
push dword [ebp - 0x5c]
lea eax, [ebp - 8]
mov edx, 3
call sub.Vcl50.bpl__System__LStrCatN_qqrv
push dword [ebp - 8]
push 0x409f04
lea edx, [ebp - 0x60]
xor eax, eax
mov al, byte [0x40c55d]
call sub.Vcl50.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x60]
push 0x409f18
lea eax, [ebp - 8]
mov edx, 4
call sub.Vcl50.bpl__System__LStrCatN_qqrv
xor eax, eax
mov al, byte [0x40c55d]
cmp eax, 6
ja case.0x4092a7.116
jmp dword [eax*4 + 0x409631]
lea eax, [ebp - 8]
mov edx, 0x40a034
call sub.Vcl50.bpl__System__LStrCat_qqrv
jmp case.0x4092a7.116
lea eax, [ebp - 8]
mov edx, 0x40a048
call sub.Vcl50.bpl__System__LStrCat_qqrv
jmp case.0x4092a7.116
lea eax, [ebp - 8]
mov edx, 0x409f68
call sub.Vcl50.bpl__System__LStrCat_qqrv
jmp case.0x4092a7.116
lea eax, [ebp - 8]
mov edx, 0x40a070
call sub.Vcl50.bpl__System__LStrCat_qqrv
jmp case.0x4092a7.116
lea eax, [ebp - 8]
mov edx, 0x409f98
call sub.Vcl50.bpl__System__LStrCat_qqrv
jmp case.0x4092a7.116
lea eax, [ebp - 8]
mov edx, 0x409fac
call sub.Vcl50.bpl__System__LStrCat_qqrv
jmp case.0x4092a7.116
lea eax, [ebp - 8]
mov edx, 0x409fcc
call sub.Vcl50.bpl__System__LStrCat_qqrv
jmp case.0x4092a7.116
lea eax, [ebp - 8]
mov edx, 0x40a088
call sub.Vcl50.bpl__System__LStrCat_qqrv
jmp case.0x4092a7.116
mov eax, dword [edi]
cmp byte [eax + 0x27ba], 0
je 0x4096f5
lea eax, [ebp - 8]
mov edx, 0x40a0ac
call sub.Vcl50.bpl__System__LStrCat_qqrv
mov eax, dword [edi]
cmp byte [eax + 0x27bb], 0
je 0x40970d
lea eax, [ebp - 8]
mov edx, 0x40a0bc
call sub.Vcl50.bpl__System__LStrCat_qqrv
mov eax, dword [edi]
movzx eax, byte [eax + 0x20]
cmp eax, 0x15
ja case.0x409722.0
mov al, byte [eax + 0x409729]
jmp dword [eax*4 + 0x40973f]
lea eax, [ebp - 8]
mov edx, 0x40a0cc
call sub.Vcl50.bpl__System__LStrCat_qqrv
jmp 0x409829
lea eax, [ebp - 8]
mov edx, 0x40a0e4
call sub.Vcl50.bpl__System__LStrCat_qqrv
jmp 0x409829
push dword [ebp - 8]
push 0x40a0fc
lea edx, [ebp - 0x64]
mov eax, dword [esi + 0x2c64]
call sub.Vcl50.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x64]
push 0x409e28
push dword [esi + 0x2c68]
lea eax, [ebp - 8]
mov edx, 5
call sub.Vcl50.bpl__System__LStrCatN_qqrv
jmp 0x409829
push dword [ebp - 8]
push 0x40a114
lea edx, [ebp - 0x68]
mov eax, dword [esi + 0x2c64]
call sub.Vcl50.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x68]
push 0x409e28
push dword [esi + 0x2c68]
lea eax, [ebp - 8]
mov edx, 5
call sub.Vcl50.bpl__System__LStrCatN_qqrv
jmp 0x409829
lea eax, [ebp - 8]
mov edx, 0x40a130
call sub.Vcl50.bpl__System__LStrCat_qqrv
jmp 0x409829
lea eax, [ebp - 8]
mov edx, 0x40a144
call sub.Vcl50.bpl__System__LStrCat_qqrv
jmp 0x409829
push dword [ebp - 8]
push 0x40a158
lea edx, [ebp - 0x6c]
mov eax, dword [edi]
movzx eax, byte [eax + 0x20]
call sub.Vcl50.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x6c]
lea eax, [ebp - 8]
mov edx, 3
call sub.Vcl50.bpl__System__LStrCatN_qqrv
cmp ebx, 2
jge 0x40983d
lea eax, [ebp - 8]
mov edx, 0x40a16c
call sub.Vcl50.bpl__System__LStrCat_qqrv
jmp 0x40984a
lea eax, [ebp - 8]
mov edx, 0x40a17c
call sub.Vcl50.bpl__System__LStrCat_qqrv
mov eax, dword [edi]
mov bl, byte [eax + 0x27cd]
cmp bl, 0xff
jne 0x409864
lea eax, [ebp - 8]
mov edx, 0x40a18c
call sub.Vcl50.bpl__System__LStrCat_qqrv
cmp bl, 0xfb
jne 0x409876
lea eax, [ebp - 8]
mov edx, 0x40a19c
call sub.Vcl50.bpl__System__LStrCat_qqrv
cmp bl, 0xd3
jne case.0x4092a7.116
lea eax, [ebp - 8]
mov edx, 0x40a1bc
call sub.Vcl50.bpl__System__LStrCat_qqrv
jmp case.0x4092a7.116
lea eax, [ebp - 8]
mov edx, 0x40a1d4
call sub.Vcl50.bpl__System__LStrCat_qqrv
jmp case.0x4092a7.116
lea eax, [ebp - 8]
mov edx, 0x40a1ec
call sub.Vcl50.bpl__System__LStrCat_qqrv
jmp case.0x4092a7.116
call sub.Vcl50.bpl__Sysutils_Now_qqrv
fstp qword [esi + 0x2c70]
wait
push 0x40a200
fld qword [esi + 0x2c70]
fsub qword [esi + 0x2c78]
fmul dword [0x40a20c]
fmul dword [0x40a210]
add esp, 0xfffffff4
fstp xword [esp]
wait
lea eax, [ebp - 0x70]
call sub.Vcl50.bpl__Sysutils_FloatToStr_qqrg
push dword [ebp - 0x70]
push 0x40a21c
lea eax, [ebp - 8]
mov edx, 3
call sub.Vcl50.bpl__System__LStrCatN_qqrv
mov eax, dword [esi + 0x2c70]
mov dword [esi + 0x2c78], eax
mov eax, dword [esi + 0x2c74]
mov dword [esi + 0x2c7c], eax
jmp case.0x4092a7.116
push dword [ebp - 8]
push 0x40a22c
lea edx, [ebp - 0x74]
mov eax, dword [edi]
movzx eax, word [eax + 0x28]
call sub.Vcl50.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x74]
push 0x409e98
lea edx, [ebp - 0x78]
mov eax, dword [edi]
movzx eax, word [eax + 0x27b6]
call sub.Vcl50.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x78]
lea eax, [ebp - 8]
mov edx, 5
call sub.Vcl50.bpl__System__LStrCatN_qqrv
jmp case.0x4092a7.116
push dword [ebp - 8]
push 0x40a250
lea edx, [ebp - 0x7c]
mov eax, dword [edi]
movzx eax, word [eax + 0x28]
call sub.Vcl50.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x7c]
push 0x409e98
lea edx, [ebp - 0x80]
mov eax, dword [edi]
movzx eax, word [eax + 0x27b6]
call sub.Vcl50.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x80]
lea eax, [ebp - 8]
mov edx, 5
call sub.Vcl50.bpl__System__LStrCatN_qqrv
jmp case.0x4092a7.116
push dword [ebp - 8]
push 0x40a270
lea edx, [ebp - 0x84]
mov eax, dword [edi]
movzx eax, word [eax + 0x28]
call sub.Vcl50.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x84]
push 0x409e98
lea edx, [ebp - 0x88]
mov eax, dword [edi]
movzx eax, word [eax + 0x27b6]
call sub.Vcl50.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x88]
lea eax, [ebp - 8]
mov edx, 5
call sub.Vcl50.bpl__System__LStrCatN_qqrv
jmp case.0x4092a7.116
push dword [ebp - 8]
push 0x40a298
lea edx, [ebp - 0x8c]
mov eax, dword [edi]
movzx eax, word [eax + 0x28]
call sub.Vcl50.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x8c]
push 0x409e98
lea edx, [ebp - 0x90]
mov eax, dword [edi]
movzx eax, word [eax + 0x27b6]
call sub.Vcl50.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x90]
lea eax, [ebp - 8]
mov edx, 5
call sub.Vcl50.bpl__System__LStrCatN_qqrv
jmp case.0x4092a7.116
push dword [ebp - 8]
push 0x40a2b8
lea edx, [ebp - 0x94]
mov eax, dword [edi]
movzx eax, word [eax + 0x28]
call sub.Vcl50.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x94]
push 0x409e98
lea edx, [ebp - 0x98]
mov eax, dword [edi]
movzx eax, word [eax + 0x27b6]
call sub.Vcl50.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x98]
lea eax, [ebp - 8]
mov edx, 5
call sub.Vcl50.bpl__System__LStrCatN_qqrv
jmp case.0x4092a7.116
push dword [ebp - 8]
push 0x40a2e0
lea edx, [ebp - 0x9c]
mov eax, dword [edi]
movzx eax, word [eax + 0x28]
call sub.Vcl50.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x9c]
push 0x409e98
lea edx, [ebp - 0xa0]
mov eax, dword [edi]
movzx eax, word [eax + 0x27b6]
call sub.Vcl50.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0xa0]
lea eax, [ebp - 8]
mov edx, 5
call sub.Vcl50.bpl__System__LStrCatN_qqrv
jmp case.0x4092a7.116
lea eax, [ebp - 8]
mov edx, 0x40a2fc
call sub.Vcl50.bpl__System__LStrCat_qqrv
jmp case.0x4092a7.116
push dword [ebp - 8]
push 0x40a310
lea edx, [ebp - 0xa4]
mov eax, dword [edi]
movzx eax, word [eax + 0x28]
call sub.Vcl50.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0xa4]
push 0x409e98
lea edx, [ebp - 0xa8]
mov eax, dword [edi]
movzx eax, word [eax + 0x27b6]
call sub.Vcl50.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0xa8]
lea eax, [ebp - 8]
mov edx, 5
call sub.Vcl50.bpl__System__LStrCatN_qqrv
mov eax, dword [ebp - 8]
call sub.Vcl50.bpl__System__LStrToPChar_qqrv
push eax
call sub.kernel32.dll_OutputDebugStringA
mov eax, dword [0x40b0e4]
mov eax, dword [eax]
mov edx, dword [ebp - 8]
call fcn.004041b4
push 0x40a32c
lea edx, [ebp - 0xac]
mov eax, dword [edi]
movzx eax, word [eax + 0x1c]
call sub.Vcl50.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0xac]
push 0x40a348
lea edx, [ebp - 0xb0]
mov eax, dword [edi]
movzx eax, word [eax + 0x1e]
call sub.Vcl50.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0xb0]
push 0x40a360
lea edx, [ebp - 0xb4]
mov eax, dword [edi]
movzx eax, word [eax + 0x27ce]
call sub.Vcl50.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0xb4]
push 0x40a374
lea edx, [ebp - 0xb8]
mov eax, dword [edi]
movzx eax, word [eax + 0x27d0]
call sub.Vcl50.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0xb8]
push 0x40a38c
lea edx, [ebp - 0xbc]
mov eax, dword [edi]
movzx eax, byte [eax + 0x27cd]
call sub.Vcl50.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0xbc]
push 0x40a3a4
lea edx, [ebp - 0xc0]
mov eax, dword [edi]
mov eax, dword [eax + 0x24]
call sub.Vcl50.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0xc0]
push 0x40a3b8
lea edx, [ebp - 0xc4]
mov eax, dword [edi]
mov eax, dword [eax + 0x27a4]
call sub.Vcl50.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0xc4]
lea eax, [ebp - 8]
mov edx, 0xe
call sub.Vcl50.bpl__System__LStrCatN_qqrv
cmp byte [ebp - 1], 0x73
je 0x409c59
mov eax, dword [ebp - 8]
call sub.Vcl50.bpl__System__LStrToPChar_qqrv
push eax
call sub.kernel32.dll_OutputDebugStringA
mov eax, dword [0x40b0e4]
mov eax, dword [eax]
mov edx, dword [ebp - 8]
call fcn.004041b4
mov eax, dword [edi]
mov ebx, dword [eax + 0x24]
test ebx, ebx
jle 0x409cc4
lea eax, [ebp - 8]
mov edx, 0x40a3cc
call sub.Vcl50.bpl__System__LStrLAsg_qqrv
dec ebx
test ebx, ebx
jl 0x409cb0
inc ebx
xor esi, esi
push dword [ebp - 8]
mov eax, dword [edi]
movzx eax, byte [eax + esi + 0x13b3]
lea ecx, [ebp - 0xc8]
mov edx, 2
call sub.Vcl50.bpl__Sysutils_IntToHex_qqrii
push dword [ebp - 0xc8]
push 0x409e28
lea eax, [ebp - 8]
mov edx, 3
call sub.Vcl50.bpl__System__LStrCatN_qqrv
inc esi
dec ebx
jne 0x409c77
cmp byte [ebp - 1], 0x73
je 0x409cc4
mov eax, dword [ebp - 8]
call sub.Vcl50.bpl__System__LStrToPChar_qqrv
push eax
call sub.kernel32.dll_OutputDebugStringA
mov eax, dword [edi]
mov ebx, dword [eax + 0x27a4]
test ebx, ebx
jle 0x409d32
lea eax, [ebp - 8]
mov edx, 0x40a3e0
call sub.Vcl50.bpl__System__LStrLAsg_qqrv
dec ebx
test ebx, ebx
jl 0x409d1e
inc ebx
xor esi, esi
push dword [ebp - 8]
mov eax, dword [edi]
movzx eax, byte [eax + esi + 0x1418]
lea ecx, [ebp - 0xcc]
mov edx, 2
call sub.Vcl50.bpl__Sysutils_IntToHex_qqrii
push dword [ebp - 0xcc]
push 0x409e28
lea eax, [ebp - 8]
mov edx, 3
call sub.Vcl50.bpl__System__LStrCatN_qqrv
inc esi
dec ebx
jne 0x409ce5
cmp byte [ebp - 1], 0x73
je 0x409d32
mov eax, dword [ebp - 8]
call sub.Vcl50.bpl__System__LStrToPChar_qqrv
push eax
call sub.kernel32.dll_OutputDebugStringA
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x409d46
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x409d73
lea eax, [ebp - 0xcc]
mov edx, 0x2d
call sub.Vcl50.bpl__System__LStrArrayClr_qqrv
lea eax, [ebp - 8]
call sub.Vcl50.bpl__System__LStrClr_qqrr17System_AnsiString
ret