anchor.diff:      Y,dy: Integer;
       Rect: TRect;
     Begin
  -    SendMessage(Handle,WM_SETREDRAW,0,0);
  +    //SendMessage(Handle,LM_SETREDRAW,0,0);
       Try
         Rect := ClientRect;
         With ItemRect(Index) Do
  
positive.code:     Begin
        MouseCapture := false;
        KillTimer;
        SendMessage(GetParentHandle,WM_COMMAND,
          MakeLong(Handle,LBN_SELCHANGE),Handle)
      End
  End;
  
  
negative.code: 
  {-------------------------------------}
  
  Procedure TPSCCustomFontBox.CMFontChanged(Var Message: TLMessage);
  Begin
    Inherited;
    { Work around of list box bug }
  