title: How to use a scrollbar on a scrollbox?
body: <p>I have to use TScrollbar on a TScrollBox(Yes,it seems bad idea,but I have to) that scrolls the box.</p>
  
  <p>This is what I did:I added the scroll on the box ,used Top and Bottom anchors to keep it on track and added this code in the OnScroll event of the ScrollBar:</p>
  
  <pre><code>procedure TForm1.ScrollBar1Scroll(Sender: TObject; 
                                            ScrollCode: TScrollCode;
                                            var ScrollPos: Integer);
  begin
    ScrollBox1.ScrollBy(0,-scrollPos);
  end;
  </code></pre>
  
  <p>It's not working properly.Always scrolls down.How to make it scroll normally?</p>
  
  <p><strong>EDIT</strong>: Please do not suggest using the bars from TScrollBox,I have to use a TScrollBar.</p>
  
  <p>Thank you!</p>