непонятки с программированием без Vcl Опции

[Dark]

Вот, попробовал по drkb32 написать прогу так как описано в drkb

program Project1;

uses Windows, Messages;

const AppName = 'WinMin'; 

Var  
 Window : HWnd;   
 
  
 Message : TMsg;   

 WindowClass : TWndClass;
 


function WindowProc (Window : HWnd; Message, WParam : Word; LParam : LongInt) : LongInt; stdcall; 
begin 
 WindowProc := 0;
 
 case Message of  
 
  
 wm_Destroy :begin   
 

 PostQuitMessage (0);   
 
 Exit;   
 
  
 end;  

  
 end; // case
 
 WindowProc := DefWindowProc (Window, Message, WParam, LParam);   
 
  
end; 

begin 
 with WindowClass do   
 
  
 begin  
 

 Style := cs_HRedraw or cs_VRedraw;   
 
 lpfnWndProc := @WindowProc;   
 
 cbClsExtra := 0;   
 
 cbWndExtra := 0;
 
 hInstance := 0;
 
 hIcon := LoadIcon (0, idi_Application);  
 
 hCursor := LoadCursor (0, idc_Arrow);   
 
 hbrBackground := GetStockObject (White_Brush);   
 
 lpszMenuName := '';   
 
 lpszClassName := AppName;   
 
  
 end;
 
  
 If RegisterClass (WindowClass) = 0 then Halt (255);   
 
 Window := CreateWindow(AppName,   
 

 'Win_Min',   

 ws_OverlappedWindow,   
 
 cw_UseDefault,

 cw_UseDefault,   
 
 cw_UseDefault,   
 
 cw_UseDefault,   
 
 0,   
 
 0,
 
 HInstance,   
 
 nil);   
 
  
 ShowWindow (Window, CmdShow);

 UpdateWindow (Window);
 
 while GetMessage (Message, 0, 0, 0) do   

  
 begin  
 
  
 TranslateMessage (Message);   
 
 DispatchMessage (Message);   
 
  
 end;
 
  
 Halt   
 
  
end. 

он мне ругается что параметр cw_UseDefault выходит за рамки диапазона (но проект компилит) - почему?

[Dark]

Спасиба, на соответствие типов у мя не было времени проверить =)