constructor TForm.create(className: String);
begin
  FWndClass.style := CS_HREDRAW or CS_VREDRAW;
  FWndClass.cbClsExtra := 0;
  FWndClass.cbWndExtra := 0;
  FWndClass.hInstance := hInstance;
  FWndClass.hIcon := loadIcon(0, IDI_INFORMATION);
  FWndClass.hCursor := loadCursor(0, IDC_ARROW);
  FWndClass.hbrBackground := hBrush(getStockObject(BLACK_BRUSH));
  FWndClass.lPszMenuName := nil;
  FWndClass.lPszClassName := PWideChar(className);

  if (registerClass(FWndClass) <> 0) then begin
    FHandle := createWindow(
    	PWideChar(className),
      PWideChar(className),
  		WS_OVERLAPPEDWINDOW,
      CW_USEDEFAULT,
      CW_USEDEFAULT,
      CW_USEDEFAULT,
      CW_USEDEFAULT,
      0,
      0,
      hInstance,
      nil
    );

    if (FHandle <> 0) then begin
    	showWindow(FHandle, cmdShow);

      while (getMessage(FMsg, 0, 0, 0)) do begin
      	translateMessage(FMsg);
        dispatchMessage(FMsg);
      end;

      halt(FMsg.wParam);
  	end
    else
    	messageBox(0, 'Не удается создать окно', 'Ошибка', MB_OK);
  end
  else
  	messageBox(0, 'Не удается зарегистрировать класс', 'Ошибка', MB_OK);
end;