anchor.diff:              ReleaseDC(0,DC)
             End
           End;
  -      If FDevice In [fbPrinter,fbBoth] Then
  +      If (FDevice In [fbPrinter,fbBoth]) and Assigned(Printer) Then
           With Printer Do
             If Printers.Count > 0 Then
               Begin
  
positive.code: 
  Procedure TPSCCustomObjListBox.DefaultHandler(Var Message);
  Begin
    With TMessage(Message) Do
      If Not FSmoothScroll Or Multiselect Or
        (Msg <> WM_LBUTTONDOWN) And (Msg <> WM_LBUTTONUP) Then
        Inherited DefaultHandler(Message)
  End;
  
  
negative.code: 
  Destructor TPSCCustomObjListBox.Destroy;
  Begin
    {If HandleAllocated Then
      DestroyWindowHandle;}
    FObjects.Free;
    FObjects := Nil;
    Inherited Destroy
  