Компилятор Delphi ругается на параметр nil:
CreateWindow(0, AppName, 'Demo', WS_OVERLAPPEDWINDOW, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, 0, HInstance, nil);
Пишет:
Error: Incompatible types: 'LongWord' and 'Pointer'

Версия Delphi 3

HWND CreateWindow(
   LPCTSTR lpClassName,
   LPCTSTR lpWindowName,
   DWORD dwStyle,
   int x,
   int y,
   int nWidth,
   int nHeight,
   HWND hWndParent,
   HMENU hMenu,
   HINSTANCE hInstance,
   LPVOID lpParam
);

Теперь внимательно сопоставляем параметры с описанием

Проблема решена!
Я блин скомпилил с использованием crinkler, код включил в секцию initialization/end. ТЕПЕРЬ ПРОГА ВЕСОМ 1 КБ!!!!!!! ЖРЁТ 266 MБ!!!!!!!
ОХРЕНЕТЬ БЛИН!!!!