program Project1;

uses
  Windows;

begin
  MessageBox(0, 'Hello World!', 'By Anskya', 0);
end.

unknown_libname_13 proc near

cbData= dword ptr -0Ch
Data= byte ptr -8
hKey= dword ptr -4

push    ebp
mov     ebp, esp
add     esp, 0FFFFFFF4h
movzx   eax, ds:word_40400C
mov     dword ptr [ebp+Data], eax
lea     eax, [ebp+hKey]
push    eax             ; phkResult
push    1               ; samDesired
push    0               ; ulOptions
push    offset SubKey   ; "SOFTWARE\\Borland\\Delphi\\RTL"
push    80000002h       ; hKey
call    RegOpenKeyExA
test    eax, eax
jnz     short loc_402A84
.
.
.

unit SysInit;

interface

var
  TlsIndex: Integer;
  TlsLast : Byte;
  PtrToNil: Pointer;

var
  HInstance: Pointer;
  GetCommandLine: PAnsiChar;

procedure _InitExe;

implementation

procedure _InitExe; assembler;
asm
        mov     eax, [ebp+$08]
        mov     [HInstance], eax
        mov     eax, [ebp+$10]
        mov     [GetCommandLine], eax
end;

end.

unit System;

interface

type
  TGUID = record
    D1: LongWord;
    D2: Word;
    D3: Word;
    D4: array[0..7] of Byte;
  end;
  TDLLProc = procedure(Reason: Integer);
  TDLLProcEx = procedure(Reason: Integer; Reserved: Integer);

procedure _Halt0;
procedure _HandleFinally;

var
  ExitCode: Integer;

implementation

procedure _Halt0; assembler;
asm
        mov     eax, [ExitCode]
        leave
end;

procedure _HandleFinally; assembler;
asm
        mov     eax, True
end;

end.

00401124 > $  55            push    ebp
00401125   .  8BEC          mov     ebp, esp
00401127   .  83C4 F0       add     esp, -10
0040112A   .  B8 FC104000   mov     eax, 004010FC
0040112F   .  E8 14FFFFFF   call    00401048
00401134   .  6A 00         push    0                                ; /Style = MB_OK|MB_APPLMODAL
00401136   .  68 4C114000   push    0040114C                         ; |Title = "By Anskya"
0040113B   .  68 58114000   push    00401158                         ; |Text = "Hello World!"
00401140   .  6A 00         push    0                                ; |hOwner = NULL
00401142   .  E8 4DFFFFFF   call    <jmp.&user32.MessageBoxA>        ; \MessageBoxA
00401147   .  E8 B4FEFFFF   call    00401000

program Project4;

uses
  Windows, Unit1, Unit2;

var
  hSelfModule: HMODULE;
  szBuffer: Array[0..MAX_PATH] Of Char;
begin
  hSelfModule := GetModuleHandle(nil);
  ZeroMemory(@szBuffer, SizeOf(szBuffer));
  szBuffer[GetModuleFileName(hSelfModule, szBuffer, SizeOf(szBuffer))] := #0;
  BoxFun1();
  BoxFun2();
  MessageBox(0, szBuffer, 'By Anskya', 0);
end.

unit Unit1;

interface

uses
  Windows;

procedure BoxFun1();

implementation

function MessageBoxA(hWnd: HWND; lpText, lpCaption: PAnsiChar; uType: UINT): Integer; stdcall; external user32 name 'MessageBoxA';

procedure BoxFun1();
begin
  MessageBoxA(0, 'Hello Wolrd!', 'Fun1', 0);
end;

end.