anchor.diff:    FCursorRow := Row;
     Index := FLayout.GetCharIndex( FLayout.FLines^[ Row ].Text ) + Offset;
   
  -  writeln('  SetCursorPosition: offset=', FCursorOffset, ' row=', FCursorRow, ' index=', Index);
  -  exit;
  +  //writeln('  SetCursorPosition: offset=', FCursorOffset, ' row=', FCursorRow, ' index=', Index);
  +  exit;    { TODO:  Complete this selection of text code - currently gives AV's }
     if PreserveSelection then
     begin
       SetSelectionEndInternal( Index )
  
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 := '';
  