Function at 0x40ad10
Capabilities:
Extract resource via kernel32 functions

Disassembly:
push ebp
mov ebp, esp
add esp, 0xffffffb4
push ebx
push esi
push edi
xor ebx, ebx
mov dword [ebp - 0x4c], ebx
mov dword [ebp - 4], ebx
mov dword [ebp - 8], ecx
mov esi, edx
mov edi, eax
mov ebx, dword [ebp + 8]
xor eax, eax
push ebp
push 0x40af7f
push dword fs:[eax]
mov dword fs:[eax], esp
lea eax, [ebp - 4]
mov edx, dword [0x40ace0]
call sub.rtl250.bpl__System__DynArrayClear_qqrrpvpv
mov byte [ebp - 9], 0
call sub.kernel32.dll_GetVersion
test eax, 0x80000000
jne 0x40ad6b
push 2
mov eax, esi
call sub.rtl250.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
push edi
call sub.kernel32.dll_FindResourceW
mov esi, eax
jmp 0x40ad8d
push 2
lea eax, [ebp - 0x4c]
mov edx, esi
mov ecx, 0
call sub.rtl250.bpl__System__LStrFromUStr_qqrr27System__AnsiStringT_us_i0__x20System_UnicodeStringus
mov eax, dword [ebp - 0x4c]
call sub.rtl250.bpl__System__LStrToPChar_qqrx27System__AnsiStringT_us_i0__
push eax
push edi
call sub.kernel32.dll_FindResourceA
mov esi, eax
test esi, esi
je 0x40af5b
push esi
push edi
call sub.kernel32.dll_SizeofResource
mov edx, ebx
imul edx, ebx
add edx, edx
add edx, edx
add edx, 0x28
cmp eax, edx
jne 0x40af5b
push esi
push edi
call sub.kernel32.dll_LoadResource
mov esi, eax
test esi, esi
je 0x40af5b
mov eax, ebx
imul ebx
push eax
lea eax, [ebp - 4]
mov ecx, 1
mov edx, dword [0x40ace0]
call sub.rtl250.bpl__System__DynArraySetLength_qqrv
add esp, 4
push esi
call sub.kernel32.dll_LockResource
mov edi, eax
lea edx, [ebp - 0x48]
mov eax, edi
mov ecx, 0x28
call sub.rtl250.bpl__System_Move_qqrpxvpvi
add edi, 0x28
mov eax, ebx
imul ebx
mov ecx, eax
add ecx, ecx
add ecx, ecx
mov eax, edi
mov edx, dword [ebp - 4]
call sub.rtl250.bpl__System_Move_qqrpxvpvi
mov eax, esi
call fcn.00403cf0
push esi
call sub.kernel32.dll_FreeResource
push 0xf
call sub.user32.dll_GetSysColor
mov dword [ebp - 0x18], eax
mov eax, dword [ebp - 0x18]
and eax, 0xff
shl eax, 0x10
mov edx, dword [ebp - 0x18]
and edx, 0xff00
add eax, edx
mov edx, dword [ebp - 0x18]
and edx, 0xff0000
shr edx, 0x10
add eax, edx
mov dword [ebp - 0x18], eax
mov eax, ebx
imul ebx
dec eax
test eax, eax
jb 0x40aec9
inc eax
mov dword [ebp - 0x1c], eax
xor eax, eax
mov edx, dword [ebp - 4]
mov edx, dword [edx + eax*4]
shr edx, 0x18
inc edx
mov ecx, pe_nt_image_headers32
sub ecx, edx
mov esi, dword [ebp - 0x18]
and esi, 0xff00ff
imul ecx, esi
mov esi, dword [ebp - 4]
mov esi, dword [esi + eax*4]
and esi, 0xff00ff
imul esi, edx
add ecx, esi
shr ecx, 8
and ecx, 0xff00ff
mov esi, pe_nt_image_headers32
sub esi, edx
mov edi, dword [ebp - 0x18]
and edi, 0xff00
imul esi, edi
mov edi, dword [ebp - 4]
mov edi, dword [edi + eax*4]
and edi, 0xff00
imul edi, edx
add esi, edi
shr esi, 8
and esi, 0xff00
add ecx, esi
mov edx, dword [ebp - 4]
mov dword [edx + eax*4], ecx
inc eax
dec dword [ebp - 0x1c]
jne 0x40ae57
push 0
call sub.gdi32.dll_CreateCompatibleDC
mov esi, eax
test esi, esi
je 0x40af5b
xor eax, eax
mov dword [ebp - 0x14], eax
push 0
push 0
lea eax, [ebp - 0x14]
push eax
push 0
lea eax, [ebp - 0x48]
push eax
push esi
call sub.gdi32.dll_CreateDIBSection
mov edi, eax
test edi, edi
je 0x40af55
cmp dword [ebp - 0x14], 0
je 0x40af55
call sub.gdi32.dll_GdiFlush
mov eax, ebx
imul ebx
mov ecx, eax
add ecx, ecx
add ecx, ecx
mov edx, dword [ebp - 0x14]
mov eax, dword [ebp - 4]
call sub.rtl250.bpl__System_Move_qqrpxvpvi
call sub.gdi32.dll_GdiFlush
push edi
push esi
call sub.gdi32.dll_SelectObject
mov dword [ebp - 0x10], eax
push 0xcc0020
push 0
push 0
push esi
push ebx
push ebx
push 0
push 0
mov eax, dword [ebp - 8]
push eax
call sub.gdi32.dll_BitBlt
mov eax, dword [ebp - 0x10]
push eax
push esi
call sub.gdi32.dll_SelectObject
push edi
call sub.gdi32.dll_DeleteObject
mov byte [ebp - 9], 1
push esi
call sub.gdi32.dll_DeleteDC
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x40af86
lea eax, [ebp - 0x4c]
call sub.rtl250.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 4]
mov edx, dword [0x40ace0]
call sub.rtl250.bpl__System__DynArrayClear_qqrrpvpv
ret