Function WinProc(Form: hwnd; // Окно-получатель каждого входящего сообщения
 Msg: Cardinal; // Само сообщение
wparam: WParam; // Первый и второй уточняющие параметры сообщения
 LParam: Cardinal): lresult; Stdcall; // Оконная процедура, здесь мы задаем реакцию программы на все нужные нам сообщения
Var
 Rect: TRect; // Для записи размеров клиентской области нашего окна
Begin
 Result := 0; // Чтобы в случае сбоя программы до последней строки функции Windows правильно определила ошибку
 Case Msg Of
   WM_CREATE: // При создании окна:
   Begin

     //Создаём кнопку
   listbox := CreateWindowEx(0, 'listbox','',WS_CHILD Or WS_VISIBLE, 250, 0, Form, Form, Form, listboxid, HInstance,nil);
   label1 := CreateWindowEx(0, 'Static', '123',WS_CHILD Or WS_VISIBLE, 10  ,10, 100, 15, Form, label1ID, HInstance,nil);

   button :=  CreateWindowEx (0, 'BUTTON',  'Кнопка', WS_CHILD Or WS_VISIBLE Or BS_PUSHBUTTON,  0, 0, 100, 20, Form,  ButtonID, HInstance, NIL);

     SendMessage(GetDlgItem(Form, ButtonID), WM_SETFONT,  0, -1); // Меняем шрифт
   End;

   WM_COMMAND: // Через это сообщение определяем нажатие на кнопку
    //Если мессага пришла от кнопки
     If LoWord (WParam) = ButtonID Then
       //И если это было нажатие
       If HiWord (WParam) = BN_CLICKED then
         begin
               If RegisterClassEx(WndClassEx) = 0 Then
                 MessageBox(0, 'Невозможно зарегистрировать класс окна', 'Ошибка', MB_OK Or MB_ICONHAND)
               Else
                 Begin
                   HWnd1 :=   CreateWindowEx(0,'FindWindow', 'Дочернее', WS_OVERLAPPEDWINDOW, 10 ,70,200,130, Form, 0,HInstance, NIL);

                   SetParent(HWnd1, 0);
                   ShowWindow(HWnd1, SW_SHOW);

                     If HWnd1 = 0 Then // Если окно не создалось:
                       MessageBox (0, 'Окно не создалось!',
                         'Ошибка', MB_OK Or MB_ICONHAND)
                     Else
                       Begin
                         ShowWindow (HWnd1, SW_SHOWNORMAL); // Показывем окно
                         UpdateWindow(HWnd1); // Перерисовываем окно

                       End;  

                       While GetMessage(Msg1, 0, 0, 0) Do
                   Begin
                     TranslateMessage(Msg1);
                     DispatchMessage(Msg1);
                   End;      
         end;

   WM_DESTROY: // При уничтожении окна (можно и не задавать реакцию - прога автоматически выгрузится, однако оставив след в памяти)
     PostQuitMessage(0); // Помещает в очередь сообщений сообщение завершения работы программы (WM_QUIT)
   Else // Если пришедщее сообщение мы не определили:
     Result := DefWindowProc(Form, Msg, WParam, LParam); // Эта функция обрабатывает ВСЕ ОСТАЛЬНЫЕ сообщения по умолчанию
 End; // Конец блока Case
End;

procedure Ocno;
//var
// WndClassEx1: TWndClassEx; // Класс окна - несёт инфу об окне (запись)
begin
 WndClassEx.cbSize := SizeOf(WndClassEx); // Размер структуры
           WndClassEx.lpszClassName := 'FindWindow'; // Имя класса окна (для примера - второй параметр функции FindWindow)
           WndClassEx.style := cs_hredraw or cs_vredraw; // Стили окна - в данном случае окно будет перерисовываться при изменении как горизонтальных, так и вертикальных размеров
           WndClassEx.hInstance := HInstance; // Ищи описание выше
           WndClassEx.lpfnWndProc := @childwindowproc;//@WinProc; // адрес окнной процедуры
           WndClassEx.cbClsExtra := 0;
           WndClassEx.cbWndExtra := 0;
           WndClassEx.hIcon := LoadIcon(HInstance, MakeIntResource('MAINICON')); // Икнока окна
           WndClassEx.hIconSm := LoadIcon(HInstance, MakeIntResource('MAINICON')); // Тоже иконка (но маленькая :)
           WndClassEx.hCursor := LoadCursor(0, IDC_ARROW); // Курсор мыши для окна (у нас - стрелка)
           WndClassEx.hbrBackground := COLOR_BTNFACE + 1; // Фон окна
           WndClassEx.lpszMenuName := NIL; // Указатель на меню (у нас ме
           registerclassex(WndClassEx);// регистрируем в системе новый класс окна
end;

Procedure WinMain; // Эта процедура сформирует окно и отобразит его, запустив цикл обработки сообщений
Begin
 WndClassEx.cbSize := SizeOf(TWndClassEx);
 WndClassEx.lpszClassName := 'APIWindow'; // Имя класса окна (для примера - второй параметр функции FindWindow)
 WndClassEx.style := CS_VREDRAW Or CS_HREDRAW; // Стили окна - в данном случае окно будет перерисовываться при изменении как горизонтальных, так и вертикальных размеров
 WndClassEx.hInstance := HInstance; // Ищи описание выше
 WndClassEx.lpfnWndProc := @WinProc; // адрес окнной процедуры
 WndClassEx.cbClsExtra := 0;
 WndClassEx.cbWndExtra := 0;
 WndClassEx.hIcon := LoadIcon(HInstance, MakeIntResource('MAINICON')); // Икнока окна
 WndClassEx.hIconSm := LoadIcon(HInstance, MakeIntResource('MAINICON')); // Тоже иконка (но маленькая :)
 WndClassEx.hCursor := LoadCursor(0, IDC_ARROW); // Курсор мыши для окна (у нас - стрелка)
 WndClassEx.hbrBackground := COLOR_BTNFACE + 1; // Фон окна
 WndClassEx.lpszMenuName := NIL; // Указатель на меню (у нас меню нет)
 //registerclassex(WndClassEx);// регистрируем в системе новый класс окна

 // Теперь регистрируем класс окна в системе
 If RegisterClassEx(WndClassEx) = 0 Then
   MessageBox(0, 'Невозможно зарегистрировать класс окна', 'Ошибка', MB_OK Or MB_ICONHAND)
 Else
 Begin
 // Создаём окно
   Form := CreateWindowEx( WS_EX_OVERLAPPEDWINDOW,  WndClassEx.lpszClassName, 'Демонстрация WinAPI',
     WS_OVERLAPPEDWINDOW,
    1000,100, //CW_USEDEFAULT, 0,
     500, 500,  
     0, 0,
     HInstance,
     NIL);
     SendMessage(GetDlgItem(Form, ButtonID), WM_SETFONT,  0, -1);
   If Form = 0 Then
     MessageBox (0, 'Окно не создалось!',
       'Ошибка', MB_OK Or MB_ICONHAND)
   Else
   Begin
     ShowWindow (Form, SW_SHOWNORMAL);
     UpdateWindow(Form);

     While GetMessage(MMsg, 0, 0, 0) Do
     Begin
       TranslateMessage(MMsg);
       DispatchMessage(MMsg);
     End;
     Halt(MMsg.WParam);
   End;
 End;
End;

Begin
 Ocno;    WinMain;
End.