anchor.diff:      Procedure WMKillFocus(Var Message: TLMSetFocus); message LM_KillFocus;
       //Procedure WMEraseBkgnd(Var Msg: TLMEraseBkgnd); message LM_EraseBkgnd;
       Procedure WMGetDlgCode(Var Msg: TLMessage); message LM_GetDlgCode;
  -    Procedure WMSetCursor(Var Message: TLMSetCursor); message LM_SetCursor;
  +    //Procedure WMSetCursor(Var Message: TLMSetCursor); message LM_SetCursor;
       Procedure WMSize(Var Message: TLMSize); message LM_Size;
       Procedure CMFontChanged(Var Message: TLMessage); message CM_FontChanged;
   
  
positive.code: {-------------------------------------------}
  
  Procedure TPSCCustomListBox.MouseMove(Shift: TShiftState; X,Y: Integer);
  begin
    inherited;
    If (ssLeft in Shift) and Focused then
      EnableTimer;
  end;
  
negative.code:         Inherited;
      end;
  End;
  }
  {-------------------------------------------}
  
  procedure TPSCCustomListBox.ChangeItemIndex(Item: TPSCListItem; NewIndex: Integer);
  