Function at 0x5be1fc
Capabilities:
Access peb ldr_data

Disassembly:
push ebp
mov ebp, esp
add esp, 0xffffffc8
push ebx
push esi
push edi
mov esi, ecx
lea edi, [ebp - 0x10]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
mov esi, edx
lea edi, [ebp - 8]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
mov edi, eax
mov eax, dword [edi + 8]
mov dword [eax + 0x44], 0xffffffff
lea ecx, [ebp - 0x28]
lea edx, [ebp - 0x10]
mov eax, dword [edi + 4]
call sub.vcl140.bpl__Controls_TControl_ScreenToClient_qqrrx12Types_TPoint
mov eax, dword [ebp - 0x28]
mov dword [ebp - 0x10], eax
mov eax, dword [ebp - 0x24]
mov dword [ebp - 0xc], eax
mov eax, dword [edi + 0xc]
add dword [ebp - 0xc], eax
mov eax, dword [edi + 8]
mov cl, 1
lea edx, [ebp - 0x10]
mov esi, dword [eax]
call dword [esi + 0x3c]
mov ebx, dword [edi + 8]
mov dword [ebx + 0x40], eax
mov eax, dword [edi + 8]
mov edx, dword [eax + 0x40]
mov eax, ebx
call fcn.005b99a4
mov dword [ebp - 0x20], eax
mov dl, 1
mov eax, dword [sym.imp.vcl140.bpl__Graphics_TBitmap_]
call sub.vcl140.bpl__Graphics_TBitmap__bctr_qqrv
mov dword [ebp - 0x14], eax
xor eax, eax
push ebp
push 0x5be40d
push dword fs:[eax]
mov dword fs:[eax], esp
mov dl, 7
mov eax, dword [ebp - 0x14]
call sub.vcl140.bpl__Graphics_TBitmap_SetPixelFormat_qqr21Graphics_TPixelFormat
mov eax, dword [ebp - 0x20]
mov edx, dword [eax + 0x18]
mov eax, dword [ebp - 0x14]
mov ecx, dword [eax]
call dword [ecx + 0x44]
mov edx, dword [edi + 0xc]
mov eax, dword [ebp - 0x14]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 0x14]
call sub.vcl140.bpl__Graphics_TBitmap_GetCanvas_qqrv
mov eax, dword [eax + 0x48]
mov edx, 0xff00000f
call sub.vcl140.bpl__Graphics_TBrush_SetColor_qqr15Graphics_TColor
mov eax, dword [ebp - 0x14]
mov edx, dword [eax]
call dword [edx + 0x24]
push eax
lea eax, [ebp - 0x38]
push eax
mov eax, dword [ebp - 0x14]
mov edx, dword [eax]
call dword [edx + 0x30]
mov ecx, eax
xor edx, edx
xor eax, eax
call sub.rtl140.bpl__Types_Rect_qqriiii
lea eax, [ebp - 0x38]
push eax
mov eax, dword [ebp - 0x14]
call sub.vcl140.bpl__Graphics_TBitmap_GetCanvas_qqrv
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x4c]
mov eax, dword [edi + 4]
mov si, 0xffc7
call sub.rtl140.bpl__System__CallDynaInst_qqrv
test al, al
je 0x5be30a
mov eax, dword [edi + 4]
xor edx, edx
mov ecx, dword [eax]
call dword [ecx + 0x130]
mov ebx, eax
jmp 0x5be30c
xor ebx, ebx
lea ecx, [ebp - 0x28]
mov eax, ebx
neg eax
xor edx, edx
call sub.rtl140.bpl__Types_Point_qqrii
lea eax, [ebp - 0x28]
push eax
push ebx
mov eax, dword [ebp - 0x14]
mov edx, dword [eax]
call dword [edx + 0x24]
push eax
lea eax, [ebp - 0x38]
push eax
mov eax, dword [ebp - 0x20]
mov esi, dword [eax + 0x14]
mov ecx, esi
mov eax, dword [ebp - 0x20]
add ecx, dword [eax + 0x18]
mov eax, esi
xor edx, edx
call sub.rtl140.bpl__Types_Rect_qqriiii
lea eax, [ebp - 0x38]
push eax
mov eax, dword [ebp - 0x14]
call sub.vcl140.bpl__Graphics_TBitmap_GetCanvas_qqrv
mov edx, eax
mov eax, dword [edi + 8]
pop ecx
mov ebx, dword [eax]
call dword [ebx + 0x48]
mov eax, dword [edi + 4]
mov si, 0xffc7
call sub.rtl140.bpl__System__CallDynaInst_qqrv
test al, al
je 0x5be39f
mov eax, dword [edi + 4]
mov dl, 1
mov ecx, dword [eax]
call dword [ecx + 0x130]
mov ebx, eax
mov eax, dword [ebp - 0x20]
call fcn.005b7fe8
add ebx, eax
mov eax, ebx
lea ecx, [ebp - 0x28]
xor edx, edx
call sub.rtl140.bpl__Types_Point_qqrii
lea edx, [ebp - 0x28]
lea ecx, [ebp - 0x1c]
mov eax, dword [edi + 4]
call sub.vcl140.bpl__Controls_TControl_ClientToScreen_qqrrx12Types_TPoint
jmp 0x5be3bf
mov eax, dword [ebp - 0x20]
call fcn.005b7fe8
lea ecx, [ebp - 0x28]
xor edx, edx
call sub.rtl140.bpl__Types_Point_qqrii
lea edx, [ebp - 0x28]
lea ecx, [ebp - 0x1c]
mov eax, dword [edi + 4]
call sub.vcl140.bpl__Controls_TControl_ClientToScreen_qqrrx12Types_TPoint
mov eax, dword [edi + 0xc]
sub dword [ebp - 0x18], eax
test byte [edi + 0x15], 0x40
je 0x5be3d4
mov eax, dword [edi + 0x4c]
mov byte [eax + 0x28], 1
jmp 0x5be3db
mov eax, dword [edi + 0x4c]
mov byte [eax + 0x28], 0
lea eax, [ebp - 8]
push eax
push 0
mov eax, dword [edi + 0x4c]
lea ecx, [ebp - 0x1c]
mov edx, dword [ebp - 0x14]
call fcn.005b77c0
mov eax, dword [edi + 0x4c]
call fcn.005b7cd0
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x5be414
mov eax, dword [ebp - 0x14]
call sub.rtl140.bpl__System_TObject_Free_qqrv
ret