procedure TfrmMain.htmVwrChartNoteMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ShowMessage(IntToStr(memVwrChartNote.SelStart));
ShowMessage(IntToStr(memVwrChartNote.SelLength));
ShowMessage(memVwrChartNote.SelText);
end;