CreateWindowEx WM_PAINT DrawText 关键字

我创建了一个窗体
  TWndClassEx初始;
  hWnd:=CreateWindowEx(
  WS_EX_OVERLAPPEDWINDOW, 
  WinClass.lpszClassName, 
  'Hello Window', 
  WS_OVERLAPPEDWINDOW,
  20, 
  0, 
  600,
  300, 
  0, 
  0, 
  hInst, 
  nil); 
  
  if hWnd<>0 then
  begin
  ShowWindow(hWnd,SW_SHOWNORMAL); 
  UpdateWindow(hWnd);
  end然后在窗体的消息处理函数中 每次OnPaint时随机在窗体上显示一个数字
case msg of
WM_Paint:
begin
  hdca:=BeginPaint(hWnd,ps);
  SetBkMode(hdca, 2);
  SetBkColor(hdca,GetBkColor(hdca));
  windows.GetClientRect(hWnd,rect); 
  randomize();
  DrawText(hdca,Pchar(inttostr(random(10000000))),-1,rect,DT_CENTER);  EndPaint(hWnd,ps)end;但是呢每次onpaint事件响应后,drawtext的字符 不会刷新,一直保持第一次draw出来的文字
除非最小化然后最大话,或则把窗体拽到屏幕外再拽回来 就有点变化请问我该怎样使之能刷新,随时显示我想显示的字符或则位图