[fpc-pascal] Win32 API - Scroll Bar inactive

[soumya at tatamotors.com]

I am new to Windows programming so please bear with me if it is some trivial mistake. 

I have created a window with : 
  hWindow := CreateWindow (AppName,'First Prog',ws_OverlappedWindow or WS_VScroll, 
                         cw_UseDefault,cw_UseDefault,cw_UseDefault, 
                         cw_UseDefault,0,0,system.MainInstance,Nil); 

Now after I write some text on the window with TextOut function that goes beyond the window size the window do not scroll.

Please educate me - what is wrong? 

Regards, 

Tux-Jsr