Function at 0x408cec
Capabilities:
Get session user name

Disassembly:
push ebp
mov ebp, esp
mov ecx, 0x57
push 0
push 0
dec ecx
jne 0x408cf4
push ecx
push ebx
push esi
push edi
mov dword [ebp - 4], eax
xor eax, eax
push ebp
push 0x409f10
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 4]
add eax, 0x38
call sub.Vcl50.bpl__System__LStrClr_qqrr17System_AnsiString
xor ebx, ebx
mov eax, dword [ebp - 4]
add eax, 4
call sub.Vcl50.bpl__System__LStrClr_qqrr17System_AnsiString
mov eax, dword [ebp - 4]
add eax, 8
call sub.Vcl50.bpl__System__LStrClr_qqrr17System_AnsiString
mov eax, dword [ebp - 4]
add eax, 0xc
mov edx, 0x409f2c
call sub.Vcl50.bpl__System__LStrAsg_qqrv
mov eax, dword [ebp - 4]
add eax, 0x10
mov edx, 0x409f38
call sub.Vcl50.bpl__System__LStrAsg_qqrv
mov eax, dword [ebp - 4]
add eax, 0x14
mov edx, 0x409f48
call sub.Vcl50.bpl__System__LStrAsg_qqrv
mov eax, dword [ebp - 4]
add eax, 0x18
mov edx, 0x409f48
call sub.Vcl50.bpl__System__LStrAsg_qqrv
call sub.kernel32.dll_GetACP
xor edx, edx
push edx
push eax
lea eax, [ebp - 0x40]
call sub.Vcl50.bpl__Sysutils_IntToStr_qqrj
mov edx, dword [ebp - 0x40]
mov eax, dword [ebp - 4]
add eax, 0x1c
call sub.Vcl50.bpl__System__LStrAsg_qqrv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x1c]
mov edx, 0x409f48
call sub.Vcl50.bpl__System__LStrCmp_qqrv
je 0x408dd6
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x1c]
mov edx, 0x409f54
call sub.Vcl50.bpl__System__LStrCmp_qqrv
je 0x408dd6
mov eax, dword [ebp - 4]
add eax, 0x1c
mov edx, 0x409f60
call sub.Vcl50.bpl__System__LStrAsg_qqrv
mov edx, 0x409f60
mov eax, dword [ebp - 4]
add eax, 0x14
call sub.Vcl50.bpl__System__LStrAsg_qqrv
mov eax, dword [ebp - 4]
add eax, 0x14
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x1c]
call sub.Vcl50.bpl__System__LStrAsg_qqrv
mov eax, dword [ebp - 4]
mov byte [eax + 0x22], 0
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x14]
mov edx, 0x409f54
call sub.Vcl50.bpl__System__LStrCmp_qqrv
jne 0x408e09
mov eax, dword [ebp - 4]
mov byte [eax + 0x20], 2
jmp 0x408e3d
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x14]
mov edx, 0x409f48
call sub.Vcl50.bpl__System__LStrCmp_qqrv
jne 0x408e36
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x1c]
mov edx, 0x409f54
call sub.Vcl50.bpl__System__LStrCmp_qqrv
jne 0x408e36
mov eax, dword [ebp - 4]
mov byte [eax + 0x20], 4
jmp 0x408e3d
mov eax, dword [ebp - 4]
mov byte [eax + 0x20], 0
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x14]
mov edx, 0x409f54
call sub.Vcl50.bpl__System__LStrCmp_qqrv
jne 0x408e6a
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x18]
mov edx, 0x409f48
call sub.Vcl50.bpl__System__LStrCmp_qqrv
jne 0x408e6a
mov eax, dword [ebp - 4]
mov byte [eax + 0x21], 2
jmp 0x408e9e
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x14]
mov edx, 0x409f48
call sub.Vcl50.bpl__System__LStrCmp_qqrv
jne 0x408e97
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x18]
mov edx, 0x409f54
call sub.Vcl50.bpl__System__LStrCmp_qqrv
jne 0x408e97
mov eax, dword [ebp - 4]
mov byte [eax + 0x21], 1
jmp 0x408e9e
mov eax, dword [ebp - 4]
mov byte [eax + 0x21], 0
mov eax, dword [ebp - 4]
add eax, 0x24
call sub.Vcl50.bpl__System__LStrClr_qqrr17System_AnsiString
mov dl, 1
mov eax, dword [sym.imp.Vcl50.bpl__Registry_TRegistry_]
call sub.Vcl50.bpl__Registry_TRegistry__bctr_qqrv
mov esi, eax
mov edx, 0x80000002
mov eax, esi
call sub.Vcl50.bpl__Registry_TRegistry_SetRootKey_qqrui
mov edx, 0x409f6c
mov eax, esi
call sub.Vcl50.bpl__Registry_TRegistry_OpenKeyReadOnly_qqrx17System_AnsiString
test al, al
jne 0x408ef6
mov eax, dword [ebp - 4]
add eax, 0x38
mov edx, 0x409f8c
call sub.Vcl50.bpl__System__LStrAsg_qqrv
mov eax, esi
call sub.Vcl50.bpl__Registry_TRegistry_CloseKey_qqrv
mov eax, esi
call sub.Vcl50.bpl__System_TObject_Free_qqrv
jmp 0x409c91
lea ecx, [ebp - 0x44]
mov edx, 0x409fa0
mov eax, esi
call sub.Vcl50.bpl__Registry_TRegistry_ReadString_qqrx17System_AnsiString
mov edx, dword [ebp - 0x44]
mov eax, dword [ebp - 4]
add eax, 4
call sub.Vcl50.bpl__System__LStrAsg_qqrv
lea ecx, [ebp - 0x10]
mov edx, 0x409fb4
mov eax, esi
call sub.Vcl50.bpl__Registry_TRegistry_ReadString_qqrx17System_AnsiString
mov eax, dword [ebp - 4]
add eax, 0xc
mov edx, dword [ebp - 0x10]
call sub.Vcl50.bpl__System__LStrAsg_qqrv
mov eax, esi
call sub.Vcl50.bpl__Registry_TRegistry_CloseKey_qqrv
mov eax, esi
call sub.Vcl50.bpl__System_TObject_Free_qqrv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 4]
call sub.Vcl50.bpl__System__LStrLen_qqrv
mov edx, dword [ebp - 4]
mov edx, dword [edx + 4]
cmp byte [edx + eax - 1], 0x5c
je 0x408f66
mov eax, dword [ebp - 4]
add eax, 4
mov edx, 0x409fc8
call sub.Vcl50.bpl__System__LStrCat_qqrv
cmp dword [ebp - 0x10], 0
je 0x408f7b
mov eax, dword [ebp - 0x10]
mov edx, 0x409f2c
call sub.Vcl50.bpl__System__LStrCmp_qqrv
jne 0x408f8e
mov eax, dword [ebp - 4]
add eax, 8
mov edx, dword [ebp - 4]
mov edx, dword [edx + 4]
call sub.Vcl50.bpl__System__LStrAsg_qqrv
jmp 0x408fe8
mov dword [ebp - 0x14], 0x20
lea eax, [ebp - 0x14]
push eax
lea eax, [ebp - 0x3c]
push eax
call sub.advapi32.dll_GetUserNameA
mov eax, dword [ebp - 4]
push dword [eax + 4]
push 0x409fd4
lea eax, [ebp - 0x48]
lea edx, [ebp - 0x3c]
mov ecx, 0x20
call sub.Vcl50.bpl__System__LStrFromArray_qqrr17System_AnsiStringpci
push dword [ebp - 0x48]
push 0x409fc8
mov eax, dword [ebp - 4]
add eax, 8
mov edx, 4
call sub.Vcl50.bpl__System__LStrCatN_qqrv
mov eax, dword [ebp - 4]
add eax, 0x10
lea edx, [ebp - 0x3c]
mov ecx, 0x20
call sub.Vcl50.bpl__System__LStrFromArray_qqrr17System_AnsiStringpci
mov eax, dword [ebp - 4]
mov edx, dword [eax + 8]
mov eax, dword [ebp - 4]
add eax, 0x24
mov ecx, 0x409fe8
call sub.Vcl50.bpl__System__LStrCat3_qqrv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x24]
call sub.Vcl50.bpl__Sysutils_FileExists_qqrx17System_AnsiString
test al, al
jne 0x409034
mov eax, dword [ebp - 4]
add eax, 8
mov edx, dword [ebp - 4]
mov edx, dword [edx + 4]
call sub.Vcl50.bpl__System__LStrAsg_qqrv
mov ecx, 0x409fe8
mov eax, dword [ebp - 4]
mov edx, dword [eax + 8]
mov eax, dword [ebp - 4]
add eax, 0x24
call sub.Vcl50.bpl__System__LStrCat3_qqrv
mov eax, dword [ebp - 4]
add eax, 0x28
push eax
xor eax, eax
mov dword [ebp - 0x58], eax
mov dword [ebp - 0x54], 3
xor eax, eax
mov dword [ebp - 0x50], eax
mov dword [ebp - 0x4c], 7
lea eax, [ebp - 0x58]
mov ecx, 0xc
mov edx, 3
call sub.Vcl50.bpl__System_VarArrayCreate_qqrpxixii
mov eax, dword [ebp - 4]
mov ecx, dword [eax + 0x24]
mov dl, 1
mov eax, dword [sym.imp.Vcl50.bpl__Inifiles_TIniFile_]
call sub.Vcl50.bpl__Inifiles_TCustomIniFile__bctr_qqrx17System_AnsiString
mov dword [ebp - 0x1c], eax
push 0
lea eax, [ebp - 0x5c]
push eax
mov ecx, 0x40a000
mov edx, 0x40a010
mov eax, dword [ebp - 0x1c]
mov ebx, dword [eax]
call dword [ebx]
mov edx, dword [ebp - 0x5c]
mov eax, dword [ebp - 4]
add eax, 0x40
call sub.Vcl50.bpl__System__LStrAsg_qqrv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x1c]
push eax
lea eax, [ebp - 0x60]
push eax
mov ecx, 0x40a028
mov edx, 0x40a03c
mov eax, dword [ebp - 0x1c]
mov ebx, dword [eax]
call dword [ebx]
mov edx, dword [ebp - 0x60]
mov eax, dword [ebp - 4]
add eax, 0x14
call sub.Vcl50.bpl__System__LStrAsg_qqrv
push 0x409f48
lea eax, [ebp - 0x64]
push eax
mov edx, 0x40a03c
mov ecx, 0x40a050
mov eax, dword [ebp - 0x1c]
mov ebx, dword [eax]
call dword [ebx]
mov edx, dword [ebp - 0x64]
mov eax, dword [ebp - 4]
add eax, 0x18
call sub.Vcl50.bpl__System__LStrAsg_qqrv
push 1
push 0
push 2
push 0x40a064
lea eax, [ebp - 0x78]
push eax
mov ecx, 0x40a070
mov edx, 0x40a088
mov eax, dword [ebp - 0x1c]
mov ebx, dword [eax]
call dword [ebx]
mov edx, dword [ebp - 0x78]
lea eax, [ebp - 0x74]
call sub.Vcl50.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
lea eax, [ebp - 0x74]
push eax
mov eax, dword [ebp - 4]
add eax, 0x28
push eax
call sub.Vcl50.bpl__System__VarArrayPut_qr14System_Variantrx14System_Variantii
add esp, 0x14
mov edx, 0x40a088
mov ecx, 0x40a09c
mov eax, dword [ebp - 0x1c]
call sub.Vcl50.bpl__Inifiles_TCustomIniFile_ValueExists_qqrx17System_AnsiStringt1
test al, al
jne 0x4091c4
xor eax, eax
push ebp
push 0x4091b8
push dword fs:[eax]
mov dword fs:[eax], esp
push 2
push 0
push 2
push 0
lea eax, [ebp - 0x90]
push eax
mov edx, 0x40a088
mov ecx, 0x40a0ac
mov eax, dword [ebp - 0x1c]
mov ebx, dword [eax]
call dword [ebx]
mov eax, dword [ebp - 0x90]
lea edx, [ebp - 0x8c]
call fcn.00407024
mov edx, dword [ebp - 0x8c]
lea eax, [ebp - 0x88]
call sub.Vcl50.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
lea eax, [ebp - 0x88]
push eax
mov eax, dword [ebp - 4]
add eax, 0x28
push eax
call sub.Vcl50.bpl__System__VarArrayPut_qr14System_Variantrx14System_Variantii
add esp, 0x14
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x40923e
xor eax, eax
push ebp
push 0x409234
push dword fs:[eax]
mov dword fs:[eax], esp
push 2
push 0
push 2
push 0
lea eax, [ebp - 0xa8]
push eax
mov ecx, 0x40a09c
mov edx, 0x40a088
mov eax, dword [ebp - 0x1c]
mov ebx, dword [eax]
call dword [ebx]
mov eax, dword [ebp - 0xa8]
lea edx, [ebp - 0xa4]
call fcn.004080b0
mov edx, dword [ebp - 0xa4]
lea eax, [ebp - 0xa0]
call sub.Vcl50.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
lea eax, [ebp - 0xa0]
push eax
mov eax, dword [ebp - 4]
add eax, 0x28
push eax
call sub.Vcl50.bpl__System__VarArrayPut_qr14System_Variantrx14System_Variantii
add esp, 0x14
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x40923e
push 0
push 0
push 2
push 0x40a0bc
lea eax, [ebp - 0xbc]
push eax
mov edx, 0x40a088
mov ecx, 0x40a0cc
mov eax, dword [ebp - 0x1c]
mov ebx, dword [eax]
call dword [ebx]
mov edx, dword [ebp - 0xbc]
lea eax, [ebp - 0xb8]
call sub.Vcl50.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
lea eax, [ebp - 0xb8]
push eax
mov eax, dword [ebp - 4]
add eax, 0x28
push eax
call sub.Vcl50.bpl__System__VarArrayPut_qr14System_Variantrx14System_Variantii
add esp, 0x14
push 3
push 0
push 2
push 0x40a0e0
lea eax, [ebp - 0xd0]
push eax
mov edx, 0x40a088
mov ecx, 0x40a0f0
mov eax, dword [ebp - 0x1c]
mov ebx, dword [eax]
call dword [ebx]
mov edx, dword [ebp - 0xd0]
lea eax, [ebp - 0xcc]
call sub.Vcl50.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
lea eax, [ebp - 0xcc]
push eax
mov eax, dword [ebp - 4]
add eax, 0x28
push eax
call sub.Vcl50.bpl__System__VarArrayPut_qr14System_Variantrx14System_Variantii
add esp, 0x14
push 4
push 0
push 2
push 0
lea eax, [ebp - 0xe4]
push eax
mov edx, 0x40a088
mov ecx, 0x40a104
mov eax, dword [ebp - 0x1c]
mov ebx, dword [eax]
call dword [ebx]
mov edx, dword [ebp - 0xe4]
lea eax, [ebp - 0xe0]
call sub.Vcl50.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
lea eax, [ebp - 0xe0]
push eax
mov eax, dword [ebp - 4]
add eax, 0x28
push eax
call sub.Vcl50.bpl__System__VarArrayPut_qr14System_Variantrx14System_Variantii
add esp, 0x14
push 5
push 0
push 2
push 0
lea eax, [ebp - 0xf8]
push eax
mov edx, 0x40a088
mov ecx, 0x40a118
mov eax, dword [ebp - 0x1c]
mov ebx, dword [eax]
call dword [ebx]
mov edx, dword [ebp - 0xf8]
lea eax, [ebp - 0xf4]
call sub.Vcl50.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
lea eax, [ebp - 0xf4]
push eax
mov eax, dword [ebp - 4]
add eax, 0x28
push eax
call sub.Vcl50.bpl__System__VarArrayPut_qr14System_Variantrx14System_Variantii
add esp, 0x14
push 0
lea eax, [ebp - 0xfc]
push eax
mov edx, 0x40a088
mov ecx, 0x40a130
mov eax, dword [ebp - 0x1c]
mov ebx, dword [eax]
call dword [ebx]
mov edx, dword [ebp - 0xfc]
mov eax, dword [ebp - 4]
add eax, 0x48
call sub.Vcl50.bpl__System__LStrAsg_qqrv
lea edx, [ebp - 0x100]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x48]
call sub.Vcl50.bpl__Sysutils_Trim_qqrx17System_AnsiString
cmp dword [ebp - 0x100], 0
jne 0x4093d2
push 5
push 0
push 2
mov eax, dword [ebp - 4]
add eax, 0x28
push eax
lea eax, [ebp - 0x110]
push eax
call sub.Vcl50.bpl__System__VarArrayGet_qr14System_Variantii
add esp, 0x14
lea edx, [ebp - 0x110]
mov eax, dword [ebp - 4]
add eax, 0x48
call sub.Vcl50.bpl__System__VarToLStr_qqrr17System_AnsiStringrx14System_Variant
push 0
lea eax, [ebp - 0x114]
push eax
mov edx, 0x40a088
mov ecx, 0x40a150
mov eax, dword [ebp - 0x1c]
mov ebx, dword [eax]
call dword [ebx]
mov edx, dword [ebp - 0x114]
mov eax, dword [ebp - 4]
add eax, 0x4c
call sub.Vcl50.bpl__System__LStrAsg_qqrv
lea edx, [ebp - 0x118]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x4c]
call sub.Vcl50.bpl__Sysutils_Trim_qqrx17System_AnsiString
cmp dword [ebp - 0x118], 0
jne 0x409444
push 5
push 0
push 2
mov eax, dword [ebp - 4]
add eax, 0x28
push eax
lea eax, [ebp - 0x128]
push eax
call sub.Vcl50.bpl__System__VarArrayGet_qr14System_Variantii
add esp, 0x14
lea edx, [ebp - 0x128]
mov eax, dword [ebp - 4]
add eax, 0x4c
call sub.Vcl50.bpl__System__VarToLStr_qqrr17System_AnsiStringrx14System_Variant
push 6
push 0
push 2
push 0x12c
mov edx, 0x40a088
mov ecx, 0x40a174
mov eax, dword [ebp - 0x1c]
mov ebx, dword [eax]
call dword [ebx + 8]
mov edx, eax
lea eax, [ebp - 0x138]
call sub.Vcl50.bpl__System__VarFromInt_qqrv
lea eax, [ebp - 0x138]
push eax
mov eax, dword [ebp - 4]
add eax, 0x28
push eax
call sub.Vcl50.bpl__System__VarArrayPut_qr14System_Variantrx14System_Variantii
add esp, 0x14
push 7
push 0
push 2
push 0xbb8
mov edx, 0x40a088
mov ecx, 0x40a194
mov eax, dword [ebp - 0x1c]
mov ebx, dword [eax]
call dword [ebx + 8]
mov edx, eax
lea eax, [ebp - 0x148]
call sub.Vcl50.bpl__System__VarFromInt_qqrv
lea eax, [ebp - 0x148]
push eax
mov eax, dword [ebp - 4]
add eax, 0x28
push eax
call sub.Vcl50.bpl__System__VarArrayPut_qr14System_Variantrx14System_Variantii
add esp, 0x14
push 0
push 1
push 2
push 0x40a1b0
lea eax, [ebp - 0x15c]
push eax
mov edx, 0x40a088
mov ecx, 0x40a1c4
mov eax, dword [ebp - 0x1c]
mov ebx, dword [eax]
call dword [ebx]
mov edx, dword [ebp - 0x15c]
lea eax, [ebp - 0x158]
call sub.Vcl50.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
lea eax, [ebp - 0x158]
push eax
mov eax, dword [ebp - 4]
add eax, 0x28
push eax
call sub.Vcl50.bpl__System__VarArrayPut_qr14System_Variantrx14System_Variantii
add esp, 0x14
push 1
push 1
push 2
push 0x40a064
lea eax, [ebp - 0x170]
push eax
mov edx, 0x40a088
mov ecx, 0x40a1d8
mov eax, dword [ebp - 0x1c]
mov ebx, dword [eax]
call dword [ebx]
mov edx, dword [ebp - 0x170]
lea eax, [ebp - 0x16c]
call sub.Vcl50.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
lea eax, [ebp - 0x16c]
push eax
mov eax, dword [ebp - 4]
add eax, 0x28
push eax
call sub.Vcl50.bpl__System__VarArrayPut_qr14System_Variantrx14System_Variantii
add esp, 0x14
mov ecx, 0x40a09c
mov edx, 0x40a088
mov eax, dword [ebp - 0x1c]
call sub.Vcl50.bpl__Inifiles_TCustomIniFile_ValueExists_qqrx17System_AnsiStringt1
test al, al
jne 0x4095ed
xor eax, eax
push ebp
push 0x4095e1
push dword fs:[eax]
mov dword fs:[eax], esp
push 2
push 1
push 2
push 0
lea eax, [ebp - 0x188]
push eax
mov edx, 0x40a088
mov ecx, 0x40a1f0
mov eax, dword [ebp - 0x1c]
mov ebx, dword [eax]
call dword [ebx]
mov eax, dword [ebp - 0x188]
lea edx, [ebp - 0x184]
call fcn.00407024
mov edx, dword [ebp - 0x184]
lea eax, [ebp - 0x180]
call sub.Vcl50.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
lea eax, [ebp - 0x180]
push eax
mov eax, dword [ebp - 4]
add eax, 0x28
push eax
call sub.Vcl50.bpl__System__VarArrayPut_qr14System_Variantrx14System_Variantii
add esp, 0x14
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x409667
xor eax, eax
push ebp
push 0x40965d
push dword fs:[eax]
mov dword fs:[eax], esp
push 2
push 1
push 2
push 0
lea eax, [ebp - 0x1a0]
push eax
mov ecx, 0x40a1f0
mov edx, 0x40a088
mov eax, dword [ebp - 0x1c]
mov ebx, dword [eax]
call dword [ebx]
mov eax, dword [ebp - 0x1a0]
lea edx, [ebp - 0x19c]
call fcn.004080b0
mov edx, dword [ebp - 0x19c]
lea eax, [ebp - 0x198]
call sub.Vcl50.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
lea eax, [ebp - 0x198]
push eax
mov eax, dword [ebp - 4]
add eax, 0x28
push eax
call sub.Vcl50.bpl__System__VarArrayPut_qr14System_Variantrx14System_Variantii
add esp, 0x14
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x409667
push 3
push 1
push 2
push 0x40a208
lea eax, [ebp - 0x1b4]
push eax
mov edx, 0x40a088
mov ecx, 0x40a218
mov eax, dword [ebp - 0x1c]
mov ebx, dword [eax]
call dword [ebx]
mov edx, dword [ebp - 0x1b4]
lea eax, [ebp - 0x1b0]
call sub.Vcl50.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
lea eax, [ebp - 0x1b0]
push eax
mov eax, dword [ebp - 4]
add eax, 0x28
push eax
call sub.Vcl50.bpl__System__VarArrayPut_qr14System_Variantrx14System_Variantii
add esp, 0x14
push 4
push 1
push 2
push 0
lea eax, [ebp - 0x1c8]
push eax
mov edx, 0x40a088
mov ecx, 0x40a22c
mov eax, dword [ebp - 0x1c]
mov ebx, dword [eax]
call dword [ebx]
mov edx, dword [ebp - 0x1c8]
lea eax, [ebp - 0x1c4]
call sub.Vcl50.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
lea eax, [ebp - 0x1c4]
push eax
mov eax, dword [ebp - 4]
add eax, 0x28
push eax
call sub.Vcl50.bpl__System__VarArrayPut_qr14System_Variantrx14System_Variantii
add esp, 0x14
push 5
push 1
push 2
push 0x40a240
lea eax, [ebp - 0x1dc]
push eax
mov edx, 0x40a088
mov ecx, 0x40a254
mov eax, dword [ebp - 0x1c]
mov ebx, dword [eax]
call dword [ebx]
mov edx, dword [ebp - 0x1dc]
lea eax, [ebp - 0x1d8]
call sub.Vcl50.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
lea eax, [ebp - 0x1d8]
push eax
mov eax, dword [ebp - 4]
add eax, 0x28
push eax
call sub.Vcl50.bpl__System__VarArrayPut_qr14System_Variantrx14System_Variantii
add esp, 0x14
push 6
push 1
push 2
push 0x12c
mov edx, 0x40a088
mov ecx, 0x40a26c
mov eax, dword [ebp - 0x1c]
mov ebx, dword [eax]
call dword [ebx + 8]
mov edx, eax
lea eax, [ebp - 0x1ec]
call sub.Vcl50.bpl__System__VarFromInt_qqrv
lea eax, [ebp - 0x1ec]
push eax
mov eax, dword [ebp - 4]
add eax, 0x28
push eax
call sub.Vcl50.bpl__System__VarArrayPut_qr14System_Variantrx14System_Variantii
add esp, 0x14
push 7
push 1
push 2
push 0xbb8
mov edx, 0x40a088
mov ecx, 0x40a28c
mov eax, dword [ebp - 0x1c]
mov ebx, dword [eax]
call dword [ebx + 8]
mov edx, eax
lea eax, [ebp - 0x1fc]
call sub.Vcl50.bpl__System__VarFromInt_qqrv
lea eax, [ebp - 0x1fc]
push eax
mov eax, dword [ebp - 4]
add eax, 0x28
push eax
call sub.Vcl50.bpl__System__VarArrayPut_qr14System_Variantrx14System_Variantii
add esp, 0x14
push 0
push 2
push 2
push 0
lea eax, [ebp - 0x214]
push eax
mov ecx, 0x40a2a8
mov edx, 0x40a2c0
mov eax, dword [ebp - 0x1c]
mov ebx, dword [eax]
call dword [ebx]
mov eax, dword [ebp - 0x214]
lea edx, [ebp - 0x210]
call sub.Vcl50.bpl__Sysutils_Trim_qqrx17System_AnsiString
mov edx, dword [ebp - 0x210]
lea eax, [ebp - 0x20c]
call sub.Vcl50.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
lea eax, [ebp - 0x20c]
push eax
mov eax, dword [ebp - 4]
add eax, 0x28
push eax
call sub.Vcl50.bpl__System__VarArrayPut_qr14System_Variantrx14System_Variantii
add esp, 0x14
push 1
push 2
push 2
push 0xd3
mov edx, 0x40a2c0
mov ecx, 0x40a2d8
mov eax, dword [ebp - 0x1c]
mov ebx, dword [eax]
call dword [ebx + 8]
mov edx, eax
lea eax, [ebp - 0x224]
call sub.Vcl50.bpl__System__VarFromInt_qqrv
lea eax, [ebp - 0x224]
push eax
mov eax, dword [ebp - 4]
add eax, 0x28
push eax
call sub.Vcl50.bpl__System__VarArrayPut_qr14System_Variantrx14System_Variantii
add esp, 0x14
push 2
push 2
push 2
push 0x400
mov edx, 0x40a2c0
mov ecx, 0x40a2ec
mov eax, dword [ebp - 0x1c]
mov ebx, dword [eax]
call dword [ebx + 8]
mov edx, eax
lea eax, [ebp - 0x234]
call sub.Vcl50.bpl__System__VarFromInt_qqrv
lea eax, [ebp - 0x234]
push eax
mov eax, dword [ebp - 4]
add eax, 0x28
push eax
call sub.Vcl50.bpl__System__VarArrayPut_qr14System_Variantrx14System_Variantii
add esp, 0x14
push 0x409f2c
lea eax, [ebp - 0x18]
push eax
mov edx, 0x40a2c0
mov ecx, 0x40a308
mov eax, dword [ebp - 0x1c]
mov ebx, dword [eax]
call dword [ebx]
lea edx, [ebp - 0x238]
mov eax, dword [ebp - 0x18]
call sub.Vcl50.bpl__Sysutils_UpperCase_qqrx17System_AnsiString
mov edx, dword [ebp - 0x238]
lea eax, [ebp - 0x18]
call sub.Vcl50.bpl__System__LStrLAsg_qqrv
mov eax, dword [ebp - 0x18]
mov edx, 0x40a320
call sub.Vcl50.bpl__System__LStrCmp_qqrv
je 0x40990c
mov eax, dword [ebp - 0x18]
mov edx, 0x40a32c
call sub.Vcl50.bpl__System__LStrCmp_qqrv
je 0x40990c
mov eax, dword [ebp - 0x18]
mov edx, 0x40a338
call sub.Vcl50.bpl__System__LStrCmp_qqrv
je 0x40990c
mov eax, dword [ebp - 0x18]
mov edx, 0x40a344
call sub.Vcl50.bpl__System__LStrCmp_qqrv
jne 0x409915
mov eax, dword [ebp - 4]
mov byte [eax + 0x22], 1
jmp 0x40991c
mov eax, dword [ebp - 4]
mov byte [eax + 0x22], 0
push 3
push 2
push 2
push 0x40a354
lea eax, [ebp - 0x24c]
push eax
mov edx, 0x40a088
mov ecx, 0x40a378
mov eax, dword [ebp - 0x1c]
mov ebx, dword [eax]
call dword [ebx]
mov edx, dword [ebp - 0x24c]
lea eax, [ebp - 0x248]
call sub.Vcl50.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
lea eax, [ebp - 0x248]
push eax
mov eax, dword [ebp - 4]
add eax, 0x28
push eax
call sub.Vcl50.bpl__System__VarArrayPut_qr14System_Variantrx14System_Variantii
add esp, 0x14
push 0
push 3
push 2
push 0x40a394
lea eax, [ebp - 0x260]
push eax
mov edx, 0x40a088
mov ecx, 0x40a3a4
mov eax, dword [ebp - 0x1c]
mov ebx, dword [eax]
call dword [ebx]
mov edx, dword [ebp - 0x260]
lea eax, [ebp - 0x25c]
call sub.Vcl50.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
lea eax, [ebp - 0x25c]
push eax
mov eax, dword [ebp - 4]
add eax, 0x28
push eax
call sub.Vcl50.bpl__System__VarArrayPut_qr14System_Variantrx14System_Variantii
add esp, 0x14
push 1
push 3
push 2
push 0x40a064
lea eax, [ebp - 0x274]
push eax
mov edx, 0x40a088
mov ecx, 0x40a3b8
mov eax, dword [ebp - 0x1c]
mov ebx, dword [eax]
call dword [ebx]
mov edx, dword [ebp - 0x274]
lea eax, [ebp - 0x270]
call sub.Vcl50.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
lea eax, [ebp - 0x270]
push eax
mov eax, dword [ebp - 4]
add eax, 0x28
push eax
call sub.Vcl50.bpl__System__VarArrayPut_qr14System_Variantrx14System_Variantii
add esp, 0x14
push 2
push 3
push 2
push 0
lea eax, [ebp - 0x288]
push eax
mov edx, 0x40a088
mov ecx, 0x40a3cc
mov eax, dword [ebp - 0x1c]
mov ebx, dword [eax]
call dword [ebx]
mov edx, dword [ebp - 0x288]
lea eax, [ebp - 0x284]
call sub.Vcl50.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
lea eax, [ebp - 0x284]
push eax
mov eax, dword [ebp - 4]
add eax, 0x28
push eax
call sub.Vcl50.bpl__System__VarArrayPut_qr14System_Variantrx14System_Variantii
add esp, 0x14
mov eax, dword [ebp - 4]
mov ecx, dword [eax + 0x3c]
mov edx, 0x40a3e0
mov eax, dword [ebp - 0x1c]
mov ebx, dword [eax]
call dword [ebx + 0x40]
mov eax, dword [ebp - 4]
mov byte [eax + 0x44], 0
push 3
push 0
push 2
mov eax, dword [ebp - 4]
add eax, 0x28
push eax
lea eax, [ebp - 0x29c]
push eax
call sub.Vcl50.bpl__System__VarArrayGet_qr14System_Variantii
add esp, 0x14
lea edx, [ebp - 0x29c]
lea eax, [ebp - 0x28c]
call sub.Vcl50.bpl__System__VarToLStr_qqrr17System_AnsiStringrx14System_Variant
mov edx, dword [ebp - 0x28c]
mov eax, 0x40a3f4
call sub.Vcl50.bpl__Sysutils_CompareText_qqrx17System_AnsiStringt1
test eax, eax
jne 0x409aa3
mov eax, dword [ebp - 4]
mov byte [eax + 0x44], 1
push 3
push 0
push 2
mov eax, dword [ebp - 4]
add eax, 0x28
push eax
lea eax, [ebp - 0x2b0]
push eax
call sub.Vcl50.bpl__System__VarArrayGet_qr14System_Variantii
add esp, 0x14
lea edx, [ebp - 0x2b0]
lea eax, [ebp - 0x2a0]
call sub.Vcl50.bpl__System__VarToLStr_qqrr17System_AnsiStringrx14System_Variant
mov edx, dword [ebp - 0x2a0]
mov eax, 0x40a404
call sub.Vcl50.bpl__Sysutils_CompareText_qqrx17System_AnsiStringt1
test eax, eax
jne 0x409aeb
mov eax, dword [ebp - 4]
mov byte [eax + 0x44], 2
mov eax, dword [ebp - 0x1c]
call sub.Vcl50.bpl__System_TObject_Free_qqrv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x14]
mov edx, 0x409f54
call sub.Vcl50.bpl__System__LStrCmp_qqrv
jne 0x409b0e
mov eax, dword [ebp - 4]
mov byte [eax + 0x20], 2
jmp 0x409b42
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x14]
mov edx, 0x409f48
call sub.Vcl50.bpl__System__LStrCmp_qqrv
jne 0x409b3b
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x1c]
mov edx, 0x409f54
call sub.Vcl50.bpl__System__LStrCmp_qqrv
jne 0x409b3b
mov eax, dword [ebp - 4]
mov byte [eax + 0x20], 4
jmp 0x409b42
mov eax, dword [ebp - 4]
mov byte [eax + 0x20], 0
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x14]
mov edx, 0x409f54
call sub.Vcl50.bpl__System__LStrCmp_qqrv
jne 0x409b6f
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x18]
mov edx, 0x409f48
call sub.Vcl50.bpl__System__LStrCmp_qqrv
jne 0x409b6f
mov eax, dword [ebp - 4]
mov byte [eax + 0x21], 2
jmp 0x409ba3
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x14]
mov edx, 0x409f48
call sub.Vcl50.bpl__System__LStrCmp_qqrv
jne 0x409b9c
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x18]
mov edx, 0x409f54
call sub.Vcl50.bpl__System__LStrCmp_qqrv
jne 0x409b9c
mov eax, dword [ebp - 4]
mov byte [eax + 0x21], 1
jmp 0x409ba3
mov eax, dword [ebp - 4]
mov byte [eax + 0x21], 0
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3c]
mov edx, dword [eax]
call dword [edx + 0x14]
test eax, eax
jne 0x409bde
mov eax, dword [ebp - 4]
mov edx, dword [eax + 4]
lea eax, [ebp - 0x2b4]
mov ecx, 0x40a410
call sub.Vcl50.bpl__System__LStrCat3_qqrv
mov edx, dword [ebp - 0x2b4]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3c]
mov ecx, dword [eax]
call dword [ecx + 0x34]
jmp 0x409c8f
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3c]
mov edx, dword [eax]
call dword [edx + 0x14]
mov esi, eax
dec esi
test esi, esi
jl 0x409c8f
inc esi
xor ebx, ebx
lea ecx, [ebp - 8]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3c]
mov edx, ebx
call sub.Vcl50.bpl__Classes_TStrings_GetName_qqri
lea ecx, [ebp - 0xc]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3c]
mov edx, dword [ebp - 8]
call sub.Vcl50.bpl__Classes_TStrings_GetValue_qqrx17System_AnsiString
lea eax, [ebp - 0x2b8]
push eax
mov eax, dword [ebp - 0xc]
call sub.Vcl50.bpl__System__LStrLen_qqrv
mov edx, eax
mov ecx, 1
mov eax, dword [ebp - 0xc]
call sub.Vcl50.bpl__System__LStrCopy_qqrv
mov eax, dword [ebp - 0x2b8]
mov edx, 0x409fc8
call sub.Vcl50.bpl__System__LStrCmp_qqrv
je 0x409c55
lea eax, [ebp - 0xc]
mov edx, 0x409fc8
call sub.Vcl50.bpl__System__LStrCat_qqrv
lea ecx, [ebp - 0x2bc]
mov eax, dword [ebp - 4]
mov edx, dword [eax + 4]
mov eax, dword [ebp - 0xc]
call fcn.00408b8c
mov edx, dword [ebp - 0x2bc]
lea eax, [ebp - 0xc]
call sub.Vcl50.bpl__System__LStrLAsg_qqrv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3c]
mov ecx, dword [ebp - 0xc]
mov edx, ebx
mov edi, dword [eax]
call dword [edi + 0x20]
inc ebx
dec esi
jne 0x409bf7
mov bl, 1
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x409f1a
lea eax, [ebp - 0x2bc]
mov edx, 3
call sub.Vcl50.bpl__System__LStrArrayClr_qqrv
lea eax, [ebp - 0x2b0]
call sub.Vcl50.bpl__System__VarClr_qqrv
lea eax, [ebp - 0x2a0]
call sub.Vcl50.bpl__System__LStrClr_qqrr17System_AnsiString
lea eax, [ebp - 0x29c]
call sub.Vcl50.bpl__System__VarClr_qqrv
lea eax, [ebp - 0x28c]
mov edx, 2
call sub.Vcl50.bpl__System__LStrArrayClr_qqrv
lea eax, [ebp - 0x284]
call sub.Vcl50.bpl__System__VarClr_qqrv
lea eax, [ebp - 0x274]
call sub.Vcl50.bpl__System__LStrClr_qqrr17System_AnsiString
lea eax, [ebp - 0x270]
call sub.Vcl50.bpl__System__VarClr_qqrv
lea eax, [ebp - 0x260]
call sub.Vcl50.bpl__System__LStrClr_qqrr17System_AnsiString
lea eax, [ebp - 0x25c]
call sub.Vcl50.bpl__System__VarClr_qqrv
lea eax, [ebp - 0x24c]
call sub.Vcl50.bpl__System__LStrClr_qqrr17System_AnsiString
lea eax, [ebp - 0x248]
call sub.Vcl50.bpl__System__VarClr_qqrv
lea eax, [ebp - 0x238]
call sub.Vcl50.bpl__System__LStrClr_qqrr17System_AnsiString
lea eax, [ebp - 0x234]
mov edx, dword [sym.imp.Vcl50.bpl___xp_14System_Variant]
mov ecx, 2
call sub.Vcl50.bpl__System__FinalizeArray_qqrv
lea eax, [ebp - 0x214]
mov edx, 2
call sub.Vcl50.bpl__System__LStrArrayClr_qqrv
lea eax, [ebp - 0x20c]
mov edx, dword [sym.imp.Vcl50.bpl___xp_14System_Variant]
mov ecx, 3
call sub.Vcl50.bpl__System__FinalizeArray_qqrv
lea eax, [ebp - 0x1dc]
call sub.Vcl50.bpl__System__LStrClr_qqrr17System_AnsiString
lea eax, [ebp - 0x1d8]
call sub.Vcl50.bpl__System__VarClr_qqrv
lea eax, [ebp - 0x1c8]
call sub.Vcl50.bpl__System__LStrClr_qqrr17System_AnsiString
lea eax, [ebp - 0x1c4]
call sub.Vcl50.bpl__System__VarClr_qqrv
lea eax, [ebp - 0x1b4]
call sub.Vcl50.bpl__System__LStrClr_qqrr17System_AnsiString
lea eax, [ebp - 0x1b0]
call sub.Vcl50.bpl__System__VarClr_qqrv
lea eax, [ebp - 0x1a0]
mov edx, 2
call sub.Vcl50.bpl__System__LStrArrayClr_qqrv
lea eax, [ebp - 0x198]
call sub.Vcl50.bpl__System__VarClr_qqrv
lea eax, [ebp - 0x188]
mov edx, 2
call sub.Vcl50.bpl__System__LStrArrayClr_qqrv
lea eax, [ebp - 0x180]
call sub.Vcl50.bpl__System__VarClr_qqrv
lea eax, [ebp - 0x170]
call sub.Vcl50.bpl__System__LStrClr_qqrr17System_AnsiString
lea eax, [ebp - 0x16c]
call sub.Vcl50.bpl__System__VarClr_qqrv
lea eax, [ebp - 0x15c]
call sub.Vcl50.bpl__System__LStrClr_qqrr17System_AnsiString
lea eax, [ebp - 0x158]
mov edx, dword [sym.imp.Vcl50.bpl___xp_14System_Variant]
mov ecx, 4
call sub.Vcl50.bpl__System__FinalizeArray_qqrv
lea eax, [ebp - 0x118]
mov edx, 2
call sub.Vcl50.bpl__System__LStrArrayClr_qqrv
lea eax, [ebp - 0x110]
call sub.Vcl50.bpl__System__VarClr_qqrv
lea eax, [ebp - 0x100]
mov edx, 3
call sub.Vcl50.bpl__System__LStrArrayClr_qqrv
lea eax, [ebp - 0xf4]
call sub.Vcl50.bpl__System__VarClr_qqrv
lea eax, [ebp - 0xe4]
call sub.Vcl50.bpl__System__LStrClr_qqrr17System_AnsiString
lea eax, [ebp - 0xe0]
call sub.Vcl50.bpl__System__VarClr_qqrv
lea eax, [ebp - 0xd0]
call sub.Vcl50.bpl__System__LStrClr_qqrr17System_AnsiString
lea eax, [ebp - 0xcc]
call sub.Vcl50.bpl__System__VarClr_qqrv
lea eax, [ebp - 0xbc]
call sub.Vcl50.bpl__System__LStrClr_qqrr17System_AnsiString
lea eax, [ebp - 0xb8]
call sub.Vcl50.bpl__System__VarClr_qqrv
lea eax, [ebp - 0xa8]
mov edx, 2
call sub.Vcl50.bpl__System__LStrArrayClr_qqrv
lea eax, [ebp - 0xa0]
call sub.Vcl50.bpl__System__VarClr_qqrv
lea eax, [ebp - 0x90]
mov edx, 2
call sub.Vcl50.bpl__System__LStrArrayClr_qqrv
lea eax, [ebp - 0x88]
call sub.Vcl50.bpl__System__VarClr_qqrv
lea eax, [ebp - 0x78]
call sub.Vcl50.bpl__System__LStrClr_qqrr17System_AnsiString
lea eax, [ebp - 0x74]
call sub.Vcl50.bpl__System__VarClr_qqrv
lea eax, [ebp - 0x64]
mov edx, 3
call sub.Vcl50.bpl__System__LStrArrayClr_qqrv
lea eax, [ebp - 0x48]
mov edx, 3
call sub.Vcl50.bpl__System__LStrArrayClr_qqrv
lea eax, [ebp - 0x18]
call sub.Vcl50.bpl__System__LStrClr_qqrr17System_AnsiString
lea eax, [ebp - 0x10]
mov edx, 3
call sub.Vcl50.bpl__System__LStrArrayClr_qqrv
ret