delphi2010用vclskin5.4出现错误

delphi2010用vclskin5.4出现错误，错误出现了不同的情况：
这次是：
procedure TWinSkinForm.NewWndProc(var aMsg: TMessage);
const
  s = '    ';
var
  b: boolean;
begin
{$IFDEF test}
//     dolog(MsgtoStr(aMsg));
{$ENDIF}
  done2 := false;
  with aMsg do begin
    case Msg of
      CM_BEWAIT: begin
        // If message comes from Billenium Effects
          if aMsg.LParam = BE_ID then aMsg.Result := BE_ID
          else aMsg.Result := 1;
        end;
      CM_BENCPAINT: begin
          if amsg.LParam = BE_ID then begin
        // If a device context is provided then render the non client area in it
            if amsg.WParam <> 0 then
              updatenc(amsg.WParam);
            amsg.Result := BE_ID;
          end
        end;
      CM_DialogChar:
        CMDialogChar(amsg);
//      CM_RELEASE: postmessage(hwnd,wm_close,0,0);
     {CM_MENUCHANGED: begin
          OldWndProc(amsg);
          refresh;
          done2:=true;
        end;}
      CN_SkinChanged: begin
          SkinChange;
          done := true;
        end;
      WM_SETTEXT: begin
          if IsWindowVisible(hwnd) then begin
            // mdiform has problem, change caption when created
            {if isunicode or (formstyle=sfsmdichild)  then  //{liugaohui
               OldWndProc(amsg)
            else begin
              sendmessage(hwnd,WM_SETREDRAW,0,0);
              OldWndProc(amsg);
              sendmessage(hwnd,WM_SETREDRAW,1,0);
              Application.ProcessMessages;
            end; } //liugaohui}
            OldWndProc(amsg);
            if (windowstate = swsmax) then
              postmessage(skinmanager.clienthwnd, CN_NewMDIChild, hwnd, 0);
            if windowstate = swsmin then
              updatenc(0)
            else refresh;
          end else begin //visible=false
            OldWndProc(amsg);
          end;
          done2 := true;
        end;
    else OldWndProc(amsg);
    end;
  end;
//  if not Done2 then OldWndProc(amsg);
end;
//          RedrawWindow(hwnd,0,0,RDW_FRAME or RDW_INVALIDATE or RDW_UPDATENOW);
请问这段源码有问题吗？
First chance exception at $7C812AFB. Exception class EInvalidPointer with message 'Invalid pointer operation'. Process myreader.exe (3996)