anchor.diff:    hcr_crosshair := LoadCursor(0, IDC_CROSS);
     hcr_wait      := LoadCursor(0, IDC_WAIT);
     hcr_hand      := LoadCursor(0, IDC_HAND);
  +
  +  FHiddenWindow := 0;
   
     FIsInitialized := True;
     wapplication   := TfpgApplication(self);
  
positive.code: 
    if FWindowType = wtModalForm then
    begin
      // for modal windows, this is necessary
      FWinStyle   := WS_OVERLAPPEDWINDOW or WS_POPUPWINDOW;
      FWinStyle   := FWinStyle and not (WS_MINIMIZEBOX);
  
negative.code:   Result.Sort;
  end;
  
  function TfpgApplicationImpl.GetHiddenWindow: HWND;
  begin
    if (FHiddenWindow = 0) then
    begin
      with HiddenWndClass do
      begin
        style         := 0;
        lpfnWndProc   := WndProc(@DefWindowProc);
        hInstance     := MainInstance;
        hIcon         := 0;
        hCursor       := 0;
        hbrBackground := 0;
        lpszClassName := 'FPGHIDDEN';
      end;
      Windows.RegisterClass(@HiddenWndClass);
  
      FHiddenWindow := CreateWindow('FPGHIDDEN', '',
        DWORD(WS_POPUP), 0, 0, 0, 0, 0, 0, MainInstance, nil);
    end;
    Result := FHiddenWindow;
  end;
  
  constructor TfpgApplicationImpl.Create(const AParams: string);
  begin
    inherited Create(AParams);
  