diff --git a/components/synedit/syneditpointclasses.pas b/components/synedit/syneditpointclasses.pas index 34ff9c2a33..725a8638dc 100644 --- a/components/synedit/syneditpointclasses.pas +++ b/components/synedit/syneditpointclasses.pas @@ -1736,7 +1736,7 @@ begin FAltStartBytePos := -1; end else begin - StartLineBytePos := Point(FCaret.OldCharPos, FCaret.OldLinePos); + StartLineBytePos := FCaret.OldLineBytePos; EndLineBytePos := FCaret.LineBytePos; if Persistent and IsBackwardSel then SortSelectionPoints;