Function at 0x4106ec
Capabilities:
Access peb ldr_data
Check for peb beingdebugged flag

Disassembly:
push ebp
mov ebp, esp
push 0
push 0
push ebx
push esi
push edi
mov ebx, eax
xor eax, eax
push ebp
push 0x4108fc
push dword fs:[eax]
mov dword fs:[eax], esp
lea ecx, [ebp - 4]
mov edx, 1
mov eax, dword [ebx + 0x2a0]
mov esi, dword [eax]
call dword [esi + 0xc]
mov edx, dword [ebp - 4]
mov eax, dword [ebx + 0x200]
call sub.Vcl50.bpl__Controls_TControl_SetText_qqrx17System_AnsiString
mov eax, dword [ebx + 0x1fc]
mov eax, dword [eax + 0x3c]
mov edx, dword [ebx + 0x204]
sub eax, dword [edx + 0x3c]
mov edx, dword [ebx + 0x210]
sub eax, dword [edx + 0x3c]
mov ecx, 3
cdq
idiv ecx
mov esi, eax
mov edx, esi
mov eax, dword [ebx + 0x200]
call sub.Vcl50.bpl__Controls_TControl_SetTop_qqri
mov edx, 2
mov eax, dword [ebx + 0x200]
call sub.Vcl50.bpl__Controls_TControl_SetLeft_qqri
mov eax, dword [ebx + 0x200]
mov edx, dword [eax + 0x30]
add edx, dword [eax + 0x38]
add edx, 2
mov eax, dword [ebx + 0x204]
call sub.Vcl50.bpl__Controls_TControl_SetLeft_qqri
mov eax, dword [ebx + 0x200]
mov edx, dword [eax + 0x34]
mov eax, dword [ebx + 0x204]
call sub.Vcl50.bpl__Controls_TControl_SetTop_qqri
cmp byte [ebx + 0x2bc], 0
je 0x4107fd
mov edx, dword [ebx + 0x1fc]
mov edx, dword [edx + 0x38]
mov eax, dword [ebx + 0x200]
sub edx, dword [eax + 0x30]
sub edx, dword [eax + 0x38]
sub edx, 2
mov eax, dword [ebx + 0x208]
sub edx, dword [eax + 0x38]
sub edx, 2
mov eax, dword [ebx + 0x204]
call sub.Vcl50.bpl__Controls_TControl_SetWidth_qqri
mov eax, dword [ebx + 0x204]
mov edx, dword [eax + 0x30]
add edx, dword [eax + 0x38]
inc edx
mov eax, dword [ebx + 0x208]
call sub.Vcl50.bpl__Controls_TControl_SetLeft_qqri
mov eax, dword [ebx + 0x200]
mov edx, dword [eax + 0x34]
mov eax, dword [ebx + 0x208]
call sub.Vcl50.bpl__Controls_TControl_SetTop_qqri
jmp 0x410820
mov edx, dword [ebx + 0x1fc]
mov edx, dword [edx + 0x38]
mov eax, dword [ebx + 0x200]
sub edx, dword [eax + 0x30]
sub edx, dword [eax + 0x38]
sub edx, 2
mov eax, dword [ebx + 0x204]
call sub.Vcl50.bpl__Controls_TControl_SetWidth_qqri
lea ecx, [ebp - 8]
mov edx, 1
mov eax, dword [ebx + 0x2a4]
mov edi, dword [eax]
call dword [edi + 0xc]
mov edx, dword [ebp - 8]
mov eax, dword [ebx + 0x20c]
call sub.Vcl50.bpl__Controls_TControl_SetText_qqrx17System_AnsiString
mov eax, dword [ebx + 0x200]
mov edx, dword [eax + 0x30]
mov eax, dword [ebx + 0x20c]
call sub.Vcl50.bpl__Controls_TControl_SetLeft_qqri
mov eax, dword [ebx + 0x200]
mov edx, dword [eax + 0x34]
add edx, esi
mov eax, dword [ebx + 0x204]
add edx, dword [eax + 0x3c]
mov eax, dword [ebx + 0x20c]
call sub.Vcl50.bpl__Controls_TControl_SetTop_qqri
mov eax, dword [ebx + 0x204]
mov edx, dword [eax + 0x30]
mov eax, dword [ebx + 0x210]
call sub.Vcl50.bpl__Controls_TControl_SetLeft_qqri
mov eax, dword [ebx + 0x20c]
mov edx, dword [eax + 0x34]
mov eax, dword [ebx + 0x210]
call sub.Vcl50.bpl__Controls_TControl_SetTop_qqri
mov eax, dword [ebx + 0x204]
mov edx, dword [eax + 0x38]
mov eax, dword [ebx + 0x210]
call sub.Vcl50.bpl__Controls_TControl_SetWidth_qqri
cmp byte [ebx + 0x2bc], 0
je 0x4108e1
mov eax, dword [ebx + 0x208]
mov edx, dword [eax + 0x30]
mov eax, dword [ebx + 0x214]
call sub.Vcl50.bpl__Controls_TControl_SetLeft_qqri
mov eax, dword [ebx + 0x20c]
mov edx, dword [eax + 0x34]
mov eax, dword [ebx + 0x214]
call sub.Vcl50.bpl__Controls_TControl_SetTop_qqri
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x410903
lea eax, [ebp - 8]
mov edx, 2
call sub.Vcl50.bpl__System__LStrArrayClr_qqrv
ret