Function at 0x407754
Capabilities:
Get session user name

Disassembly:
push ebp
mov ebp, esp
mov ecx, 0x57
push 0
push 0
dec ecx
jne 0x40775c
push ecx
push ebx
push esi
push edi
mov dword [ebp - 4], eax
xor eax, eax
push ebp
push 0x408978
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, 0x408994
call sub.Vcl50.bpl__System__LStrAsg_qqrv
mov eax, dword [ebp - 4]
add eax, 0x10
mov edx, 0x4089a0
call sub.Vcl50.bpl__System__LStrAsg_qqrv
mov eax, dword [ebp - 4]
add eax, 0x14
mov edx, 0x4089b0
call sub.Vcl50.bpl__System__LStrAsg_qqrv
mov eax, dword [ebp - 4]
add eax, 0x18
mov edx, 0x4089b0
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, 0x4089b0
call sub.Vcl50.bpl__System__LStrCmp_qqrv
je 0x40783e
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x1c]
mov edx, 0x4089bc
call sub.Vcl50.bpl__System__LStrCmp_qqrv
je 0x40783e
mov eax, dword [ebp - 4]
add eax, 0x1c
mov edx, 0x4089c8
call sub.Vcl50.bpl__System__LStrAsg_qqrv
mov edx, 0x4089c8
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, 0x4089bc
call sub.Vcl50.bpl__System__LStrCmp_qqrv
jne 0x407871
mov eax, dword [ebp - 4]
mov byte [eax + 0x20], 2
jmp 0x4078a5
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x14]
mov edx, 0x4089b0
call sub.Vcl50.bpl__System__LStrCmp_qqrv
jne 0x40789e
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x1c]
mov edx, 0x4089bc
call sub.Vcl50.bpl__System__LStrCmp_qqrv
jne 0x40789e
mov eax, dword [ebp - 4]
mov byte [eax + 0x20], 4
jmp 0x4078a5
mov eax, dword [ebp - 4]
mov byte [eax + 0x20], 0
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x14]
mov edx, 0x4089bc
call sub.Vcl50.bpl__System__LStrCmp_qqrv
jne 0x4078d2
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x18]
mov edx, 0x4089b0
call sub.Vcl50.bpl__System__LStrCmp_qqrv
jne 0x4078d2
mov eax, dword [ebp - 4]
mov byte [eax + 0x21], 2
jmp 0x407906
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x14]
mov edx, 0x4089b0
call sub.Vcl50.bpl__System__LStrCmp_qqrv
jne 0x4078ff
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x18]
mov edx, 0x4089bc
call sub.Vcl50.bpl__System__LStrCmp_qqrv
jne 0x4078ff
mov eax, dword [ebp - 4]
mov byte [eax + 0x21], 1
jmp 0x407906
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, 0x4089d4
mov eax, esi
call sub.Vcl50.bpl__Registry_TRegistry_OpenKeyReadOnly_qqrx17System_AnsiString
test al, al
jne 0x40795e
mov eax, dword [ebp - 4]
add eax, 0x38
mov edx, 0x4089f4
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 0x4086f9
lea ecx, [ebp - 0x44]
mov edx, 0x408a08
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, 0x408a1c
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 0x4079ce
mov eax, dword [ebp - 4]
add eax, 4
mov edx, 0x408a30
call sub.Vcl50.bpl__System__LStrCat_qqrv
cmp dword [ebp - 0x10], 0
je 0x4079e3
mov eax, dword [ebp - 0x10]
mov edx, 0x408994
call sub.Vcl50.bpl__System__LStrCmp_qqrv
jne 0x4079f6
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 0x407a50
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 0x408a3c
lea eax, [ebp - 0x48]
lea edx, [ebp - 0x3c]
mov ecx, 0x20
call sub.Vcl50.bpl__System__LStrFromArray_qqrr17System_AnsiStringpci
push dword [ebp - 0x48]
push 0x408a30
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, 0x408a50
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 0x407a9c
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, 0x408a50
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, 0x408a68
mov edx, 0x408a78
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, 0x408a90
mov edx, 0x408aa4
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 0x4089b0
lea eax, [ebp - 0x64]
push eax
mov edx, 0x408aa4
mov ecx, 0x408ab8
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 0x408acc
lea eax, [ebp - 0x78]
push eax
mov ecx, 0x408ad8
mov edx, 0x408af0
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, 0x408af0
mov ecx, 0x408b04
mov eax, dword [ebp - 0x1c]
call sub.Vcl50.bpl__Inifiles_TCustomIniFile_ValueExists_qqrx17System_AnsiStringt1
test al, al
jne 0x407c2c
xor eax, eax
push ebp
push 0x407c20
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, 0x408af0
mov ecx, 0x408b14
mov eax, dword [ebp - 0x1c]
mov ebx, dword [eax]
call dword [ebx]
mov eax, dword [ebp - 0x90]
lea edx, [ebp - 0x8c]
call fcn.00404dc0
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 0x407ca6
xor eax, eax
push ebp
push 0x407c9c
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, 0x408b04
mov edx, 0x408af0
mov eax, dword [ebp - 0x1c]
mov ebx, dword [eax]
call dword [ebx]
mov eax, dword [ebp - 0xa8]
lea edx, [ebp - 0xa4]
call fcn.00405e4c
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 0x407ca6
push 0
push 0
push 2
push 0x408b24
lea eax, [ebp - 0xbc]
push eax
mov edx, 0x408af0
mov ecx, 0x408b34
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 0x408b48
lea eax, [ebp - 0xd0]
push eax
mov edx, 0x408af0
mov ecx, 0x408b58
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, 0x408af0
mov ecx, 0x408b6c
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, 0x408af0
mov ecx, 0x408b80
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, 0x408af0
mov ecx, 0x408b98
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 0x407e3a
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, 0x408af0
mov ecx, 0x408bb8
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 0x407eac
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, 0x408af0
mov ecx, 0x408bdc
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, 0x408af0
mov ecx, 0x408bfc
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 0x408c18
lea eax, [ebp - 0x15c]
push eax
mov edx, 0x408af0
mov ecx, 0x408c2c
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 0x408acc
lea eax, [ebp - 0x170]
push eax
mov edx, 0x408af0
mov ecx, 0x408c40
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, 0x408b04
mov edx, 0x408af0
mov eax, dword [ebp - 0x1c]
call sub.Vcl50.bpl__Inifiles_TCustomIniFile_ValueExists_qqrx17System_AnsiStringt1
test al, al
jne 0x408055
xor eax, eax
push ebp
push 0x408049
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, 0x408af0
mov ecx, 0x408c58
mov eax, dword [ebp - 0x1c]
mov ebx, dword [eax]
call dword [ebx]
mov eax, dword [ebp - 0x188]
lea edx, [ebp - 0x184]
call fcn.00404dc0
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 0x4080cf
xor eax, eax
push ebp
push 0x4080c5
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, 0x408c58
mov edx, 0x408af0
mov eax, dword [ebp - 0x1c]
mov ebx, dword [eax]
call dword [ebx]
mov eax, dword [ebp - 0x1a0]
lea edx, [ebp - 0x19c]
call fcn.00405e4c
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 0x4080cf
push 3
push 1
push 2
push 0x408c70
lea eax, [ebp - 0x1b4]
push eax
mov edx, 0x408af0
mov ecx, 0x408c80
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, 0x408af0
mov ecx, 0x408c94
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 0x408ca8
lea eax, [ebp - 0x1dc]
push eax
mov edx, 0x408af0
mov ecx, 0x408cbc
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, 0x408af0
mov ecx, 0x408cd4
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, 0x408af0
mov ecx, 0x408cf4
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, 0x408d10
mov edx, 0x408d28
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, 0x408d28
mov ecx, 0x408d40
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, 0x408d28
mov ecx, 0x408d54
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 0x408994
lea eax, [ebp - 0x18]
push eax
mov edx, 0x408d28
mov ecx, 0x408d70
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, 0x408d88
call sub.Vcl50.bpl__System__LStrCmp_qqrv
je 0x408374
mov eax, dword [ebp - 0x18]
mov edx, 0x408d94
call sub.Vcl50.bpl__System__LStrCmp_qqrv
je 0x408374
mov eax, dword [ebp - 0x18]
mov edx, 0x408da0
call sub.Vcl50.bpl__System__LStrCmp_qqrv
je 0x408374
mov eax, dword [ebp - 0x18]
mov edx, 0x408dac
call sub.Vcl50.bpl__System__LStrCmp_qqrv
jne 0x40837d
mov eax, dword [ebp - 4]
mov byte [eax + 0x22], 1
jmp 0x408384
mov eax, dword [ebp - 4]
mov byte [eax + 0x22], 0
push 3
push 2
push 2
push 0x408dbc
lea eax, [ebp - 0x24c]
push eax
mov edx, 0x408af0
mov ecx, 0x408de0
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 0x408dfc
lea eax, [ebp - 0x260]
push eax
mov edx, 0x408af0
mov ecx, 0x408e0c
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 0x408acc
lea eax, [ebp - 0x274]
push eax
mov edx, 0x408af0
mov ecx, 0x408e20
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, 0x408af0
mov ecx, 0x408e34
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, 0x408e48
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, 0x408e5c
call sub.Vcl50.bpl__Sysutils_CompareText_qqrx17System_AnsiStringt1
test eax, eax
jne 0x40850b
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, 0x408e6c
call sub.Vcl50.bpl__Sysutils_CompareText_qqrx17System_AnsiStringt1
test eax, eax
jne 0x408553
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, 0x4089bc
call sub.Vcl50.bpl__System__LStrCmp_qqrv
jne 0x408576
mov eax, dword [ebp - 4]
mov byte [eax + 0x20], 2
jmp 0x4085aa
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x14]
mov edx, 0x4089b0
call sub.Vcl50.bpl__System__LStrCmp_qqrv
jne 0x4085a3
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x1c]
mov edx, 0x4089bc
call sub.Vcl50.bpl__System__LStrCmp_qqrv
jne 0x4085a3
mov eax, dword [ebp - 4]
mov byte [eax + 0x20], 4
jmp 0x4085aa
mov eax, dword [ebp - 4]
mov byte [eax + 0x20], 0
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x14]
mov edx, 0x4089bc
call sub.Vcl50.bpl__System__LStrCmp_qqrv
jne 0x4085d7
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x18]
mov edx, 0x4089b0
call sub.Vcl50.bpl__System__LStrCmp_qqrv
jne 0x4085d7
mov eax, dword [ebp - 4]
mov byte [eax + 0x21], 2
jmp 0x40860b
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x14]
mov edx, 0x4089b0
call sub.Vcl50.bpl__System__LStrCmp_qqrv
jne 0x408604
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x18]
mov edx, 0x4089bc
call sub.Vcl50.bpl__System__LStrCmp_qqrv
jne 0x408604
mov eax, dword [ebp - 4]
mov byte [eax + 0x21], 1
jmp 0x40860b
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 0x408646
mov eax, dword [ebp - 4]
mov edx, dword [eax + 4]
lea eax, [ebp - 0x2b4]
mov ecx, 0x408e78
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 0x4086f7
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 0x4086f7
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, 0x408a30
call sub.Vcl50.bpl__System__LStrCmp_qqrv
je 0x4086bd
lea eax, [ebp - 0xc]
mov edx, 0x408a30
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.00406a18
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 0x40865f
mov bl, 1
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x408982
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