program Project1;

uses
    Windows,
    Messages;

var
    Msg: TMsg;
    WC: TWndClass;
    MainWin: HWND;

function MsgProcess(Handle: HWND; Msg: UINT; WParam: Integer; lParam: Integer): Integer;stdcall;
begin
    Result:=0;
    case msg of
      WM_DESTROY:
        begin
          PostQuitMessage(0);
          Exit;
        end;
    end;
    Result:=DefWindowProc(Handle,Msg,WParam,LParam);
end;

begin
    FillChar(WC,SizeOf(TWndClassEx),0);
    WC.lpfnWndProc:=@MsgProcess;
    WC.lpszClassName:='Window';//Название имени класса окна
    WC.hbrBackground:=COLOR_WINDOW;//Фон/Цвет формы  ;
    WC.hIcon:=LoadIcon(hInstance,MakeIntResource('MAINICON'));//Иконка
    WC.hCursor:=LoadCursor(0,IDC_ARROW);//Выставим курсор по умолчаннию
    RegisterClass(WC);//Регистрируем класс
    //Создание окна
    MainWin:=CreateWindowEx(0,
                            WC.lpszClassName,//Имя класса окна
                            nil{Имя окна},
                            WS_POPUP or WS_VISIBLE,//Стиль
                            100,100,400,400,
                            0,0,
                            hInstance,//Описатель приложения, с которым окно связывается
                            nil);
    ShowWindow(MainWin,SW_SHOW);//Показать окно
    UpDateWindow(MainWin);//Обновления окна
    while GetMessage(Msg,0,0,0) do
      begin
        TranslateMessage(Msg);
        DispatchMessage(Msg);
      end;
end.