Function at 0x402168
Capabilities:
Link many functions at runtime

Disassembly:
push ebp
mov ebp, esp
push ecx
mov ecx, 4
push 0
push 0
dec ecx
jne 0x402171
push ecx
xchg dword [ebp - 4], ecx
push ebx
push esi
push edi
test dl, dl
je 0x40218b
add esp, 0xfffffff0
call sub.rtl70.bpl__System__ClassCreate_qqrp17System_TMetaClasso
mov dword [ebp - 8], ecx
mov byte [ebp - 1], dl
mov ebx, eax
mov edi, dword [ebp + 8]
mov eax, dword [ebp - 8]
call sub.rtl70.bpl__System__LStrAddRef_qqrpv
xor eax, eax
push ebp
push 0x402359
push dword fs:[eax]
mov dword fs:[eax], esp
mov byte [edi], 0
mov eax, dword [ebp - 8]
call sub.rtl70.bpl__System__LStrToPChar_qqrx17System_AnsiString
push eax
call sub.kernel32.dll_LoadLibraryA
mov esi, eax
mov dword [ebx + 8], esi
test esi, esi
jbe 0x402335
mov eax, dword [0x41d4a0]
mov eax, dword [eax + 4]
push eax
push esi
call sub.kernel32.dll_GetProcAddress
mov dword [ebx + 0x30], eax
mov eax, dword [0x41d4a0]
mov eax, dword [eax + 8]
push eax
mov eax, dword [ebx + 8]
push eax
call sub.kernel32.dll_GetProcAddress
mov dword [ebx + 0x34], eax
mov eax, dword [0x41d4a0]
mov eax, dword [eax + 0xc]
push eax
mov eax, dword [ebx + 8]
push eax
call sub.kernel32.dll_GetProcAddress
mov dword [ebx + 0x38], eax
mov eax, dword [0x41d4a0]
mov eax, dword [eax + 0x10]
push eax
mov eax, dword [ebx + 8]
push eax
call sub.kernel32.dll_GetProcAddress
mov dword [ebx + 0x3c], eax
mov eax, dword [0x41d4a0]
mov eax, dword [eax + 0x14]
push eax
mov eax, dword [ebx + 8]
push eax
call sub.kernel32.dll_GetProcAddress
mov dword [ebx + 0x40], eax
mov eax, dword [0x41d4a0]
mov eax, dword [eax + 0x18]
push eax
mov eax, dword [ebx + 8]
push eax
call sub.kernel32.dll_GetProcAddress
mov dword [ebx + 0x44], eax
mov eax, dword [0x41d4a0]
mov eax, dword [eax + 0x1c]
push eax
mov eax, dword [ebx + 8]
push eax
call sub.kernel32.dll_GetProcAddress
mov dword [ebx + 0x48], eax
mov eax, dword [0x41d4a0]
mov eax, dword [eax + 0x24]
push eax
mov eax, dword [ebx + 8]
push eax
call sub.kernel32.dll_GetProcAddress
mov dword [ebx + 0x50], eax
mov eax, dword [0x41d4a0]
mov eax, dword [eax + 0x28]
push eax
mov eax, dword [ebx + 8]
push eax
call sub.kernel32.dll_GetProcAddress
mov dword [ebx + 0x54], eax
mov eax, dword [0x41d4a0]
mov eax, dword [eax + 0x2c]
push eax
mov eax, dword [ebx + 8]
push eax
call sub.kernel32.dll_GetProcAddress
mov dword [ebx + 0x58], eax
mov eax, dword [0x41d4a0]
mov eax, dword [eax + 0x30]
push eax
mov eax, dword [ebx + 8]
push eax
call sub.kernel32.dll_GetProcAddress
mov dword [ebx + 0x5c], eax
mov eax, dword [0x41d4a0]
mov eax, dword [eax + 0x34]
push eax
mov eax, dword [ebx + 8]
push eax
call sub.kernel32.dll_GetProcAddress
mov dword [ebx + 0x60], eax
mov eax, dword [0x41d4a0]
mov eax, dword [eax + 0x38]
push eax
mov eax, dword [ebx + 8]
push eax
call sub.kernel32.dll_GetProcAddress
mov dword [ebx + 0x64], eax
mov eax, dword [0x41d4a0]
mov eax, dword [eax + 0x3c]
push eax
mov eax, dword [ebx + 8]
push eax
call sub.kernel32.dll_GetProcAddress
mov dword [ebx + 0x68], eax
mov eax, dword [0x41d4a0]
mov eax, dword [eax + 0x40]
push eax
mov eax, dword [ebx + 8]
push eax
call sub.kernel32.dll_GetProcAddress
mov dword [ebx + 0x6c], eax
mov eax, dword [0x41d4a0]
mov eax, dword [eax + 0x44]
push eax
mov eax, dword [ebx + 8]
push eax
call sub.kernel32.dll_GetProcAddress
mov dword [ebx + 0x70], eax
lea edx, [ebp - 0x28]
mov eax, ebx
call fcn.004023b8
lea edx, [ebp - 0x28]
lea eax, [ebx + 0xc]
mov ecx, dword [0x401f48]
call sub.rtl70.bpl__System__CopyRecord_qqrv
mov byte [edi], 1
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x402360
lea eax, [ebp - 0x28]
mov edx, dword [0x401f48]
call sub.rtl70.bpl__System__FinalizeRecord_qqrpvt1
lea eax, [ebp - 8]
call sub.rtl70.bpl__System__LStrClr_qqrpv
ret