窗口为什么不重绘呢？紧急求救!

我以下的程序，窗口为什么不重绘？
请把代码拷贝到你的delphi中运行一下忙看一下为什么uses
  Windows,
  Messages,
  ShellAPI,
  sysutils;
const
AppName = 'DeskTop Hide';
function DummyWindowProc (Wnd: hWnd; Msg, wParam: Word; lParam: LongInt) : LongInt; stdcall; {注意这里有一个 stdcall;定义了回调函数}
var
dc: hDC;
ps: PaintStruct;
begin
  DummyWindowProc := 0;
  if Msg=wm_Destroy then {收到关闭窗口消息时的处理}
    PostQuitMessage (0)
  else if (Msg=WM_Paint) then
  begin
    dc:=BeginPaint(wnd,ps);
    FillPath(dc);
    LineTo(dc, 100, 100);
    EndPaint(wnd,ps);
  end;
  DummyWindowProc := DefWindowProc (Wnd, Msg, wParam, lParam);
end;procedure WinMain;
var
Wnd: hWnd;
Msg: TMsg;
cls: TWndClass;
begin
  FillChar (cls, sizeof (cls), 0);
  cls.lpfnWndProc := @DummyWindowProc;
  cls.hInstance := hInstance;
  cls.lpszClassName := AppName;
  cls.hbrBackground := COLOR_WINDOW+2;
  cls.style := CS_HREDRAW or CS_VREDRAW;
  RegisterClass (cls);
  Wnd := CreateWindow(AppName, AppName, ws_OverlappedWindow,
   cw_UseDefault, cw_UseDefault, cw_UseDefault,
   cw_UseDefault, 0, 0, hInstance, Nil);
  ShowWindow (Wnd,sw_Show);
  UpdateWindow(Wnd);
  while GetMessage (Msg, 0, 0, 0) do
  begin
    TranslateMessage (Msg);
    DispatchMessage (Msg);
  end;
end;
begin
  WinMain;
end.