Function at 0x404db4
Capabilities:
Extract resource via kernel32 functions

Disassembly:
push ebp
mov ebp, esp
add esp, 0xffffffe0
push ebx
push esi
xor edx, edx
mov dword [ebp - 0x20], edx
mov dword [ebp - 4], edx
mov ebx, eax
xor eax, eax
push ebp
push 0x404fbf
push dword fs:[eax]
mov dword fs:[eax], esp
mov edx, 0x1e0
mov eax, ebx
mov ecx, dword [eax]
call dword [ecx + 0x40]
mov edx, 0x168
mov eax, ebx
mov ecx, dword [eax]
call dword [ecx + 0x34]
mov eax, ebx
call sub.vcl60.bpl__Graphics_TBitmap_GetCanvas_qqrv
mov eax, dword [eax + 0x14]
mov edx, 0x8000000f
call sub.vcl60.bpl__Graphics_TBrush_SetColor_qqr15Graphics_TColor
push 0x168
lea eax, [ebp - 0x1c]
push eax
mov ecx, 0x1e0
xor edx, edx
xor eax, eax
call sub.rtl60.bpl__Classes_Rect_qqriiii
lea eax, [ebp - 0x1c]
push eax
mov eax, ebx
call sub.vcl60.bpl__Graphics_TBitmap_GetCanvas_qqrv
pop edx
call sub.vcl60.bpl__Graphics_TCanvas_FillRect_qqrrx11Types_TRect
call fcn.00404d34
mov byte [0x41c078], al
lea eax, [ebp - 4]
xor edx, edx
mov dl, byte [0x41c078]
mov edx, dword [edx*4 + 0x41b088]
call sub.rtl60.bpl__System__LStrLAsg_qqrpvpxv
cmp byte [0x41c181], 0
je 0x404eaf
cmp byte [0x41c078], 0
je 0x404eaf
call sub.rtl60.bpl__System_Randomize_qqrv
mov esi, 1
push 0xa
push 0x404fcc
mov eax, dword [0x41c004]
push eax
call sub.kernel32.dll_FindResourceA
test eax, eax
je 0x404e8d
push eax
mov eax, dword [0x41c004]
push eax
call sub.kernel32.dll_LoadResource
test eax, eax
je 0x404e8d
mov esi, dword [eax]
mov eax, esi
call sub.rtl60.bpl__System__RandInt_qqrv
mov esi, eax
test esi, esi
je 0x404eaf
lea edx, [ebp - 0x20]
mov eax, esi
call sub.rtl60.bpl__Sysutils_IntToStr_qqri
mov edx, dword [ebp - 0x20]
lea eax, [ebp - 4]
call sub.rtl60.bpl__System__LStrCat_qqrv
push 0xa
mov eax, dword [ebp - 4]
call sub.rtl60.bpl__System__LStrToPChar_qqrx17System_AnsiString
push eax
mov eax, dword [0x41c004]
push eax
call sub.kernel32.dll_FindResourceA
test eax, eax
jne 0x404ee0
lea eax, [ebp - 4]
xor edx, edx
mov dl, byte [0x41c078]
mov edx, dword [edx*4 + 0x41b088]
call sub.rtl60.bpl__System__LStrLAsg_qqrpvpxv
mov eax, dword [ebp - 4]
push eax
push 0xa
mov ecx, dword [0x41c004]
mov dl, 1
mov eax, dword [sym.imp.rtl60.bpl__Classes_TResourceStream_]
call sub.rtl60.bpl__Classes_TResourceStream__bctr_qqruix17System_AnsiStringpc
mov dword [ebp - 8], eax
xor eax, eax
push ebp
push 0x404f9a
push dword fs:[eax]
mov dword fs:[eax], esp
xor eax, eax
mov al, byte [0x41c078]
mov eax, dword [eax*4 + 0x41b094]
mov dl, 1
call dword [eax + 0x48]
mov dword [ebp - 0xc], eax
xor eax, eax
push ebp
push 0x404f7d
push dword fs:[eax]
mov dword fs:[eax], esp
mov edx, dword [ebp - 8]
mov eax, dword [ebp - 0xc]
mov ecx, dword [eax]
call dword [ecx + 0x54]
cmp byte [0x41c078], 1
jne 0x404f5d
mov eax, dword [ebp - 0xc]
mov edx, dword [sym.imp.vcljpg60.bpl__Jpeg_TJPEGImage_]
call sub.rtl60.bpl__System__IsClass_qqrp14System_TObjectp17System_TMetaClass
test al, al
je 0x404f5d
mov dl, 1
mov eax, dword [ebp - 0xc]
call sub.vcljpg60.bpl__Jpeg_TJPEGImage_SetPixelFormat_qqr21Jpeg_TJPEGPixelFormat
mov edx, dword [ebp - 0xc]
mov eax, ebx
mov ecx, dword [eax]
call dword [ecx + 8]
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x404f84
mov eax, dword [ebp - 0xc]
call sub.rtl60.bpl__System_TObject_Free_qqrv
ret