TNotePadのSelectionLength

ちょっと仕事で使うツールを作るとき NanaTerry でもお世話になってる TNotePad を使った
で「テキストが選択されていないとき」というありふれた条件式でおかしな現象になった
こんなん作ったから使ってみてと渡していた同僚からコピーできるときと出来ないときがあると報告が……

(Sender as TAction).Enabled:=NotePad.SelectionLength>0;

本当いつもの通りこの一行だけなのになんでだろう？
といじくっていると右から選択したときだけ条件が False になってる
と Ctrl+Click で飛んで飛んでしていったら

function TNotePad.GetSelectionLength: integer;
begin
  result := FStr.SelEnd - FStr.SelStart;
end;

ここですね

function TNotePad.GetSelectionLength: integer;
begin
  result := Abs(FStr.SelEnd - FStr.SelStart);
end;

参考記事（新たな事実）
「TNotePadのSelectionLength 2」