Function at 0x40603c
Capabilities:
Get session user name

Disassembly:
push ebp
mov ebp, esp
mov ecx, 0x42
push 0
push 0
dec ecx
jne 0x406044
push ecx
push ebx
mov dword [ebp - 4], eax
xor eax, eax
push ebp
push 0x406df6
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
mov byte [ebp - 5], 0
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, 0x406e10
call sub.Vcl50.bpl__System__LStrAsg_qqrv
mov eax, dword [ebp - 4]
add eax, 0x10
mov edx, 0x406e1c
call sub.Vcl50.bpl__System__LStrAsg_qqrv
mov eax, dword [ebp - 4]
add eax, 0x14
mov edx, 0x406e2c
call sub.Vcl50.bpl__System__LStrAsg_qqrv
mov eax, dword [ebp - 4]
add eax, 0x18
mov edx, 0x406e2c
call sub.Vcl50.bpl__System__LStrAsg_qqrv
call sub.kernel32.dll_GetACP
xor edx, edx
push edx
push eax
lea eax, [ebp - 0x50]
call sub.Vcl50.bpl__Sysutils_IntToStr_qqrj
mov edx, dword [ebp - 0x50]
mov eax, dword [ebp - 4]
add eax, 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, 0x406e2c
call sub.Vcl50.bpl__System__LStrCmp_qqrv
je 0x406104
mov eax, dword [ebp - 4]
mov byte [eax + 0x20], 2
jmp 0x406138
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x14]
mov edx, 0x406e2c
call sub.Vcl50.bpl__System__LStrCmp_qqrv
jne 0x406131
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x1c]
mov edx, 0x406e38
call sub.Vcl50.bpl__System__LStrCmp_qqrv
jne 0x406131
mov eax, dword [ebp - 4]
mov byte [eax + 0x20], 4
jmp 0x406138
mov eax, dword [ebp - 4]
mov byte [eax + 0x20], 0
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x14]
mov edx, 0x406e38
call sub.Vcl50.bpl__System__LStrCmp_qqrv
jne 0x406165
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x18]
mov edx, 0x406e2c
call sub.Vcl50.bpl__System__LStrCmp_qqrv
jne 0x406165
mov eax, dword [ebp - 4]
mov byte [eax + 0x21], 2
jmp 0x406199
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x14]
mov edx, 0x406e2c
call sub.Vcl50.bpl__System__LStrCmp_qqrv
jne 0x406192
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x18]
mov edx, 0x406e38
call sub.Vcl50.bpl__System__LStrCmp_qqrv
jne 0x406192
mov eax, dword [ebp - 4]
mov byte [eax + 0x21], 1
jmp 0x406199
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 dword [ebp - 0xc], eax
mov edx, 0x80000002
mov eax, dword [ebp - 0xc]
call sub.Vcl50.bpl__Registry_TRegistry_SetRootKey_qqrui
mov edx, 0x406e44
mov eax, dword [ebp - 0xc]
call sub.Vcl50.bpl__Registry_TRegistry_OpenKeyReadOnly_qqrx17System_AnsiString
test al, al
jne 0x4061f6
mov eax, dword [ebp - 4]
add eax, 0x38
mov edx, 0x406e64
call sub.Vcl50.bpl__System__LStrAsg_qqrv
mov eax, dword [ebp - 0xc]
call sub.Vcl50.bpl__Registry_TRegistry_CloseKey_qqrv
mov eax, dword [ebp - 0xc]
call sub.Vcl50.bpl__System_TObject_Free_qqrv
jmp 0x406bf6
lea ecx, [ebp - 0x54]
mov edx, 0x406e78
mov eax, dword [ebp - 0xc]
call sub.Vcl50.bpl__Registry_TRegistry_ReadString_qqrx17System_AnsiString
mov edx, dword [ebp - 0x54]
mov eax, dword [ebp - 4]
add eax, 4
call sub.Vcl50.bpl__System__LStrAsg_qqrv
lea ecx, [ebp - 0x1c]
mov edx, 0x406e8c
mov eax, dword [ebp - 0xc]
call sub.Vcl50.bpl__Registry_TRegistry_ReadString_qqrx17System_AnsiString
mov eax, dword [ebp - 4]
add eax, 0xc
mov edx, dword [ebp - 0x1c]
call sub.Vcl50.bpl__System__LStrAsg_qqrv
mov eax, dword [ebp - 0xc]
call sub.Vcl50.bpl__Registry_TRegistry_CloseKey_qqrv
mov eax, dword [ebp - 0xc]
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 0x40626a
mov eax, dword [ebp - 4]
add eax, 4
mov edx, 0x406ea0
call sub.Vcl50.bpl__System__LStrCat_qqrv
cmp dword [ebp - 0x1c], 0
je 0x40627f
mov eax, dword [ebp - 0x1c]
mov edx, 0x406e10
call sub.Vcl50.bpl__System__LStrCmp_qqrv
jne 0x406292
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 0x4062ec
mov dword [ebp - 0x20], 0x20
lea eax, [ebp - 0x20]
push eax
lea eax, [ebp - 0x4c]
push eax
call sub.advapi32.dll_GetUserNameA
mov eax, dword [ebp - 4]
push dword [eax + 4]
push 0x406eac
lea eax, [ebp - 0x58]
lea edx, [ebp - 0x4c]
mov ecx, 0x20
call sub.Vcl50.bpl__System__LStrFromArray_qqrr17System_AnsiStringpci
push dword [ebp - 0x58]
push 0x406ea0
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 - 0x4c]
mov ecx, 0x20
call sub.Vcl50.bpl__System__LStrFromArray_qqrr17System_AnsiStringpci
mov eax, dword [ebp - 4]
add eax, 0x24
mov ecx, 0x406ec0
mov edx, dword [ebp - 4]
mov edx, dword [edx + 8]
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 0x406338
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, 0x406ec0
mov eax, dword [ebp - 4]
add eax, 0x24
mov edx, dword [ebp - 4]
mov edx, dword [edx + 8]
call sub.Vcl50.bpl__System__LStrCat3_qqrv
mov eax, dword [ebp - 4]
add eax, 0x28
push eax
xor eax, eax
mov dword [ebp - 0x68], eax
mov dword [ebp - 0x64], 3
xor eax, eax
mov dword [ebp - 0x60], eax
mov dword [ebp - 0x5c], 5
lea eax, [ebp - 0x68]
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 - 0x28], eax
push 0
lea eax, [ebp - 0x6c]
push eax
mov ecx, 0x406ed8
mov edx, 0x406ee8
mov eax, dword [ebp - 0x28]
mov ebx, dword [eax]
call dword [ebx]
mov edx, dword [ebp - 0x6c]
mov eax, dword [ebp - 4]
add eax, 0x40
call sub.Vcl50.bpl__System__LStrAsg_qqrv
push 0x406e2c
lea eax, [ebp - 0x70]
push eax
mov ecx, 0x406f00
mov edx, 0x406f14
mov eax, dword [ebp - 0x28]
mov ebx, dword [eax]
call dword [ebx]
mov edx, dword [ebp - 0x70]
mov eax, dword [ebp - 4]
add eax, 0x14
call sub.Vcl50.bpl__System__LStrAsg_qqrv
push 0x406e2c
lea eax, [ebp - 0x74]
push eax
mov edx, 0x406f14
mov ecx, 0x406f28
mov eax, dword [ebp - 0x28]
mov ebx, dword [eax]
call dword [ebx]
mov edx, dword [ebp - 0x74]
mov eax, dword [ebp - 4]
add eax, 0x18
call sub.Vcl50.bpl__System__LStrAsg_qqrv
push 1
push 0
push 2
push 0x406f3c
lea eax, [ebp - 0x88]
push eax
mov ecx, 0x406f48
mov edx, 0x406f60
mov eax, dword [ebp - 0x28]
mov ebx, dword [eax]
call dword [ebx]
mov edx, dword [ebp - 0x88]
lea eax, [ebp - 0x84]
call sub.Vcl50.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
lea eax, [ebp - 0x84]
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 0
push 2
push 0
lea eax, [ebp - 0xa0]
push eax
mov edx, 0x406f60
mov ecx, 0x406f74
mov eax, dword [ebp - 0x28]
mov ebx, dword [eax]
call dword [ebx]
mov eax, dword [ebp - 0xa0]
lea edx, [ebp - 0x9c]
call fcn.004052c0
mov edx, dword [ebp - 0x9c]
lea eax, [ebp - 0x98]
call sub.Vcl50.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
lea eax, [ebp - 0x98]
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 0
push 2
push 0x406f84
lea eax, [ebp - 0xb4]
push eax
mov edx, 0x406f60
mov ecx, 0x406f94
mov eax, dword [ebp - 0x28]
mov ebx, dword [eax]
call dword [ebx]
mov edx, dword [ebp - 0xb4]
lea eax, [ebp - 0xb0]
call sub.Vcl50.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
lea eax, [ebp - 0xb0]
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 0x406fa8
lea eax, [ebp - 0xc8]
push eax
mov edx, 0x406f60
mov ecx, 0x406fb8
mov eax, dword [ebp - 0x28]
mov ebx, dword [eax]
call dword [ebx]
mov edx, dword [ebp - 0xc8]
lea eax, [ebp - 0xc4]
call sub.Vcl50.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
lea eax, [ebp - 0xc4]
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 - 0xdc]
push eax
mov edx, 0x406f60
mov ecx, 0x406fcc
mov eax, dword [ebp - 0x28]
mov ebx, dword [eax]
call dword [ebx]
mov edx, dword [ebp - 0xdc]
lea eax, [ebp - 0xd8]
call sub.Vcl50.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
lea eax, [ebp - 0xd8]
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
lea eax, [ebp - 0xec]
mov edx, 0x406fe0
call sub.Vcl50.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
lea eax, [ebp - 0xec]
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 0x406ff0
lea eax, [ebp - 0x100]
push eax
mov edx, 0x406f60
mov ecx, 0x407004
mov eax, dword [ebp - 0x28]
mov ebx, dword [eax]
call dword [ebx]
mov edx, dword [ebp - 0x100]
lea eax, [ebp - 0xfc]
call sub.Vcl50.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
lea eax, [ebp - 0xfc]
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 0x406f3c
lea eax, [ebp - 0x114]
push eax
mov edx, 0x406f60
mov ecx, 0x407018
mov eax, dword [ebp - 0x28]
mov ebx, dword [eax]
call dword [ebx]
mov edx, dword [ebp - 0x114]
lea eax, [ebp - 0x110]
call sub.Vcl50.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
lea eax, [ebp - 0x110]
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 1
push 2
push 0
lea eax, [ebp - 0x12c]
push eax
mov edx, 0x406f60
mov ecx, 0x407030
mov eax, dword [ebp - 0x28]
mov ebx, dword [eax]
call dword [ebx]
mov eax, dword [ebp - 0x12c]
lea edx, [ebp - 0x128]
call fcn.004052c0
mov edx, dword [ebp - 0x128]
lea eax, [ebp - 0x124]
call sub.Vcl50.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
lea eax, [ebp - 0x124]
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 1
push 2
push 0x407048
lea eax, [ebp - 0x140]
push eax
mov edx, 0x406f60
mov ecx, 0x407058
mov eax, dword [ebp - 0x28]
mov ebx, dword [eax]
call dword [ebx]
mov edx, dword [ebp - 0x140]
lea eax, [ebp - 0x13c]
call sub.Vcl50.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
lea eax, [ebp - 0x13c]
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 - 0x154]
push eax
mov edx, 0x406f60
mov ecx, 0x40706c
mov eax, dword [ebp - 0x28]
mov ebx, dword [eax]
call dword [ebx]
mov edx, dword [ebp - 0x154]
lea eax, [ebp - 0x150]
call sub.Vcl50.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
lea eax, [ebp - 0x150]
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 - 0x16c]
push eax
mov ecx, 0x407080
mov edx, 0x407098
mov eax, dword [ebp - 0x28]
mov ebx, dword [eax]
call dword [ebx]
mov eax, dword [ebp - 0x16c]
lea edx, [ebp - 0x168]
call sub.Vcl50.bpl__Sysutils_Trim_qqrx17System_AnsiString
mov edx, dword [ebp - 0x168]
lea eax, [ebp - 0x164]
call sub.Vcl50.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
lea eax, [ebp - 0x164]
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, 0x407098
mov ecx, 0x4070b0
mov eax, dword [ebp - 0x28]
mov ebx, dword [eax]
call dword [ebx + 8]
mov edx, eax
lea eax, [ebp - 0x17c]
call sub.Vcl50.bpl__System__VarFromInt_qqrv
lea eax, [ebp - 0x17c]
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, 0x407098
mov ecx, 0x4070c4
mov eax, dword [ebp - 0x28]
mov ebx, dword [eax]
call dword [ebx + 8]
mov edx, eax
lea eax, [ebp - 0x18c]
call sub.Vcl50.bpl__System__VarFromInt_qqrv
lea eax, [ebp - 0x18c]
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 0x406e10
lea eax, [ebp - 0x24]
push eax
mov edx, 0x407098
mov ecx, 0x4070e0
mov eax, dword [ebp - 0x28]
mov ebx, dword [eax]
call dword [ebx]
lea edx, [ebp - 0x190]
mov eax, dword [ebp - 0x24]
call sub.Vcl50.bpl__Sysutils_UpperCase_qqrx17System_AnsiString
mov edx, dword [ebp - 0x190]
lea eax, [ebp - 0x24]
call sub.Vcl50.bpl__System__LStrLAsg_qqrv
mov eax, dword [ebp - 0x24]
mov edx, 0x4070f8
call sub.Vcl50.bpl__System__LStrCmp_qqrv
je 0x406863
mov eax, dword [ebp - 0x24]
mov edx, 0x407104
call sub.Vcl50.bpl__System__LStrCmp_qqrv
je 0x406863
mov eax, dword [ebp - 0x24]
mov edx, 0x407110
call sub.Vcl50.bpl__System__LStrCmp_qqrv
je 0x406863
mov eax, dword [ebp - 0x24]
mov edx, 0x40711c
call sub.Vcl50.bpl__System__LStrCmp_qqrv
jne 0x40686c
mov eax, dword [ebp - 4]
mov byte [eax + 0x22], 1
jmp 0x406873
mov eax, dword [ebp - 4]
mov byte [eax + 0x22], 0
push 3
push 2
push 2
push 0x40712c
lea eax, [ebp - 0x1a4]
push eax
mov edx, 0x406f60
mov ecx, 0x407150
mov eax, dword [ebp - 0x28]
mov ebx, dword [eax]
call dword [ebx]
mov edx, dword [ebp - 0x1a4]
lea eax, [ebp - 0x1a0]
call sub.Vcl50.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
lea eax, [ebp - 0x1a0]
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 0x40716c
lea eax, [ebp - 0x1b8]
push eax
mov edx, 0x406f60
mov ecx, 0x40717c
mov eax, dword [ebp - 0x28]
mov ebx, dword [eax]
call dword [ebx]
mov edx, dword [ebp - 0x1b8]
lea eax, [ebp - 0x1b4]
call sub.Vcl50.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
lea eax, [ebp - 0x1b4]
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 0x406f3c
lea eax, [ebp - 0x1cc]
push eax
mov edx, 0x406f60
mov ecx, 0x407190
mov eax, dword [ebp - 0x28]
mov ebx, dword [eax]
call dword [ebx]
mov edx, dword [ebp - 0x1cc]
lea eax, [ebp - 0x1c8]
call sub.Vcl50.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
lea eax, [ebp - 0x1c8]
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 - 0x1e0]
push eax
mov edx, 0x406f60
mov ecx, 0x4071a4
mov eax, dword [ebp - 0x28]
mov ebx, dword [eax]
call dword [ebx]
mov edx, dword [ebp - 0x1e0]
lea eax, [ebp - 0x1dc]
call sub.Vcl50.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
lea eax, [ebp - 0x1dc]
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, 0x4071b8
mov eax, dword [ebp - 0x28]
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 - 0x1f4]
push eax
call sub.Vcl50.bpl__System__VarArrayGet_qr14System_Variantii
add esp, 0x14
lea edx, [ebp - 0x1f4]
lea eax, [ebp - 0x1e4]
call sub.Vcl50.bpl__System__VarToLStr_qqrr17System_AnsiStringrx14System_Variant
mov edx, dword [ebp - 0x1e4]
mov eax, 0x4071cc
call sub.Vcl50.bpl__Sysutils_CompareText_qqrx17System_AnsiStringt1
test eax, eax
jne 0x4069fa
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 - 0x208]
push eax
call sub.Vcl50.bpl__System__VarArrayGet_qr14System_Variantii
add esp, 0x14
lea edx, [ebp - 0x208]
lea eax, [ebp - 0x1f8]
call sub.Vcl50.bpl__System__VarToLStr_qqrr17System_AnsiStringrx14System_Variant
mov edx, dword [ebp - 0x1f8]
mov eax, 0x4071dc
call sub.Vcl50.bpl__Sysutils_CompareText_qqrx17System_AnsiStringt1
test eax, eax
jne 0x406a42
mov eax, dword [ebp - 4]
mov byte [eax + 0x44], 2
mov eax, dword [ebp - 0x28]
call sub.Vcl50.bpl__System_TObject_Free_qqrv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x14]
mov edx, 0x406e2c
call sub.Vcl50.bpl__System__LStrCmp_qqrv
je 0x406a65
mov eax, dword [ebp - 4]
mov byte [eax + 0x20], 2
jmp 0x406a99
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x14]
mov edx, 0x406e2c
call sub.Vcl50.bpl__System__LStrCmp_qqrv
jne 0x406a92
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x1c]
mov edx, 0x406e38
call sub.Vcl50.bpl__System__LStrCmp_qqrv
jne 0x406a92
mov eax, dword [ebp - 4]
mov byte [eax + 0x20], 4
jmp 0x406a99
mov eax, dword [ebp - 4]
mov byte [eax + 0x20], 0
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x14]
mov edx, 0x406e38
call sub.Vcl50.bpl__System__LStrCmp_qqrv
jne 0x406ac6
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x18]
mov edx, 0x406e2c
call sub.Vcl50.bpl__System__LStrCmp_qqrv
jne 0x406ac6
mov eax, dword [ebp - 4]
mov byte [eax + 0x21], 2
jmp 0x406afa
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x14]
mov edx, 0x406e2c
call sub.Vcl50.bpl__System__LStrCmp_qqrv
jne 0x406af3
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x18]
mov edx, 0x406e38
call sub.Vcl50.bpl__System__LStrCmp_qqrv
jne 0x406af3
mov eax, dword [ebp - 4]
mov byte [eax + 0x21], 1
jmp 0x406afa
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 0x406b35
lea eax, [ebp - 0x20c]
mov ecx, 0x4071e8
mov edx, dword [ebp - 4]
mov edx, dword [edx + 4]
call sub.Vcl50.bpl__System__LStrCat3_qqrv
mov edx, dword [ebp - 0x20c]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3c]
mov ecx, dword [eax]
call dword [ecx + 0x34]
jmp 0x406bf2
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3c]
mov edx, dword [eax]
call dword [edx + 0x14]
dec eax
test eax, eax
jl 0x406bf2
inc eax
mov dword [ebp - 0x2c], eax
mov dword [ebp - 0x18], 0
lea ecx, [ebp - 0x10]
mov edx, dword [ebp - 0x18]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3c]
call sub.Vcl50.bpl__Classes_TStrings_GetName_qqri
lea ecx, [ebp - 0x14]
mov edx, dword [ebp - 0x10]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3c]
call sub.Vcl50.bpl__Classes_TStrings_GetValue_qqrx17System_AnsiString
lea eax, [ebp - 0x210]
push eax
mov eax, dword [ebp - 0x14]
call sub.Vcl50.bpl__System__LStrLen_qqrv
mov edx, eax
mov ecx, 1
mov eax, dword [ebp - 0x14]
call sub.Vcl50.bpl__System__LStrCopy_qqrv
mov eax, dword [ebp - 0x210]
mov edx, 0x406ea0
call sub.Vcl50.bpl__System__LStrCmp_qqrv
je 0x406bb3
lea eax, [ebp - 0x14]
mov edx, 0x406ea0
call sub.Vcl50.bpl__System__LStrCat_qqrv
lea ecx, [ebp - 0x214]
mov eax, dword [ebp - 4]
mov edx, dword [eax + 4]
mov eax, dword [ebp - 0x14]
call fcn.00405eac
mov edx, dword [ebp - 0x214]
lea eax, [ebp - 0x14]
call sub.Vcl50.bpl__System__LStrLAsg_qqrv
mov ecx, dword [ebp - 0x14]
mov edx, dword [ebp - 0x18]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3c]
mov ebx, dword [eax]
call dword [ebx + 0x20]
inc dword [ebp - 0x18]
dec dword [ebp - 0x2c]
jne 0x406b54
mov byte [ebp - 5], 1
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x406e00
lea eax, [ebp - 0x214]
mov edx, 3
call sub.Vcl50.bpl__System__LStrArrayClr_qqrv
lea eax, [ebp - 0x208]
call sub.Vcl50.bpl__System__VarClr_qqrv
lea eax, [ebp - 0x1f8]
call sub.Vcl50.bpl__System__LStrClr_qqrr17System_AnsiString
lea eax, [ebp - 0x1f4]
call sub.Vcl50.bpl__System__VarClr_qqrv
lea eax, [ebp - 0x1e4]
mov edx, 2
call sub.Vcl50.bpl__System__LStrArrayClr_qqrv
lea eax, [ebp - 0x1dc]
call sub.Vcl50.bpl__System__VarClr_qqrv
lea eax, [ebp - 0x1cc]
call sub.Vcl50.bpl__System__LStrClr_qqrr17System_AnsiString
lea eax, [ebp - 0x1c8]
call sub.Vcl50.bpl__System__VarClr_qqrv
lea eax, [ebp - 0x1b8]
call sub.Vcl50.bpl__System__LStrClr_qqrr17System_AnsiString
lea eax, [ebp - 0x1b4]
call sub.Vcl50.bpl__System__VarClr_qqrv
lea eax, [ebp - 0x1a4]
call sub.Vcl50.bpl__System__LStrClr_qqrr17System_AnsiString
lea eax, [ebp - 0x1a0]
call sub.Vcl50.bpl__System__VarClr_qqrv
lea eax, [ebp - 0x190]
call sub.Vcl50.bpl__System__LStrClr_qqrr17System_AnsiString
lea eax, [ebp - 0x18c]
mov edx, dword [sym.imp.Vcl50.bpl___xp_14System_Variant]
mov ecx, 2
call sub.Vcl50.bpl__System__FinalizeArray_qqrv
lea eax, [ebp - 0x16c]
mov edx, 2
call sub.Vcl50.bpl__System__LStrArrayClr_qqrv
lea eax, [ebp - 0x164]
call sub.Vcl50.bpl__System__VarClr_qqrv
lea eax, [ebp - 0x154]
call sub.Vcl50.bpl__System__LStrClr_qqrr17System_AnsiString
lea eax, [ebp - 0x150]
call sub.Vcl50.bpl__System__VarClr_qqrv
lea eax, [ebp - 0x140]
call sub.Vcl50.bpl__System__LStrClr_qqrr17System_AnsiString
lea eax, [ebp - 0x13c]
call sub.Vcl50.bpl__System__VarClr_qqrv
lea eax, [ebp - 0x12c]
mov edx, 2
call sub.Vcl50.bpl__System__LStrArrayClr_qqrv
lea eax, [ebp - 0x124]
call sub.Vcl50.bpl__System__VarClr_qqrv
lea eax, [ebp - 0x114]
call sub.Vcl50.bpl__System__LStrClr_qqrr17System_AnsiString
lea eax, [ebp - 0x110]
call sub.Vcl50.bpl__System__VarClr_qqrv
lea eax, [ebp - 0x100]
call sub.Vcl50.bpl__System__LStrClr_qqrr17System_AnsiString
lea eax, [ebp - 0xfc]
mov edx, dword [sym.imp.Vcl50.bpl___xp_14System_Variant]
mov ecx, 2
call sub.Vcl50.bpl__System__FinalizeArray_qqrv
lea eax, [ebp - 0xdc]
call sub.Vcl50.bpl__System__LStrClr_qqrr17System_AnsiString
lea eax, [ebp - 0xd8]
call sub.Vcl50.bpl__System__VarClr_qqrv
lea eax, [ebp - 0xc8]
call sub.Vcl50.bpl__System__LStrClr_qqrr17System_AnsiString
lea eax, [ebp - 0xc4]
call sub.Vcl50.bpl__System__VarClr_qqrv
lea eax, [ebp - 0xb4]
call sub.Vcl50.bpl__System__LStrClr_qqrr17System_AnsiString
lea eax, [ebp - 0xb0]
call sub.Vcl50.bpl__System__VarClr_qqrv
lea eax, [ebp - 0xa0]
mov edx, 2
call sub.Vcl50.bpl__System__LStrArrayClr_qqrv
lea eax, [ebp - 0x98]
call sub.Vcl50.bpl__System__VarClr_qqrv
lea eax, [ebp - 0x88]
call sub.Vcl50.bpl__System__LStrClr_qqrr17System_AnsiString
lea eax, [ebp - 0x84]
call sub.Vcl50.bpl__System__VarClr_qqrv
lea eax, [ebp - 0x74]
mov edx, 3
call sub.Vcl50.bpl__System__LStrArrayClr_qqrv
lea eax, [ebp - 0x58]
mov edx, 3
call sub.Vcl50.bpl__System__LStrArrayClr_qqrv
lea eax, [ebp - 0x24]
call sub.Vcl50.bpl__System__LStrClr_qqrr17System_AnsiString
lea eax, [ebp - 0x1c]
call sub.Vcl50.bpl__System__LStrClr_qqrr17System_AnsiString
lea eax, [ebp - 0x14]
mov edx, 2
call sub.Vcl50.bpl__System__LStrArrayClr_qqrv
ret