[NumLock]

добавь еще один блок:

Код:

  WinHandle:=CreateWindow(WndClass.lpszClassName,'the hello win',ws_overlappedwindow,
  cw_usedefault, cw_usedefault, cw_usedefault, cw_usedefault, 0, 0, Hinstance,
  nil);
  ShowWindow(WinHandle, sw_show);
  UpdateWindow(WinHandle);

после:

Код:

  ShowWindow(WinHandle, sw_show);
  UpdateWindow(winHandle);