anchor.diff:  
     TScrollingDirection = ( sdUp, sdDown );
   
  -var
  -  testvar: integer = 0;
   
   Type
   
  
positive.code: begin
    inherited HandleLMouseDown(x, y, shiftstate);
    Offset := 0;
    testvar := 1;
    Position := FindPoint( X, Y, Line, Offset, Link );
    FClickedLink := Link;
    writeln('  link=', Link, '  line=', Line, ' offset=', offset);
  
    if Position in [tpAboveTextArea, tpBelowTextArea] then
      // not on the control (this probably won't happen)
  
negative.code: var
    TextHeight: longint;
  begin
    LineIndex := 0;
    Offset := 0;
    Link := '';
  