diff --git a/components/richmemo/carbon/carbonrichmemo.pas b/components/richmemo/carbon/carbonrichmemo.pas
index 96bf06f2a..52b21c972 100644
--- a/components/richmemo/carbon/carbonrichmemo.pas
+++ b/components/richmemo/carbon/carbonrichmemo.pas
@@ -90,6 +90,9 @@ type
 
 implementation
 
+type
+  TIntCustomRichMemo = class(TCustomRichMemo);
+
 // Notes:
 
 // http://developer.apple.com/DOCUMENTATION/Carbon/Reference/Multilingual_Text_Engine/Reference/reference.html
@@ -456,11 +459,14 @@ class procedure TCarbonWSCustomRichMemo.SetSelStart(
   const ACustomEdit: TCustomEdit; NewStart: integer);
 var
   edit : TCarbonRichEdit;
+  sl   : Integer;
 begin
   edit := GetValidRichEdit(ACustomEdit);
   if Assigned(edit) then begin
     edit.SetSelStart(NewStart);
     TXNShowSelection( HITextViewGetTXNObject(  edit.Widget ), false);
+
+    TIntCustomRichMemo(ACustomEdit).DoSelectionChange;
   end;
 end;
 {$ENDIF}
@@ -524,9 +530,6 @@ begin
   CGContextFillRect(aContext, r);
 end;
 
-type
-  TIntCustomRichMemo = class(TCustomRichMemo);
-
 function CarbonRichEdit_ChangeSel(ANextHandler: EventHandlerCallRef;
   AEvent: EventRef;
   AWidget: TCarbonWidget): OSStatus; {$IFDEF darwin}mwpascal;{$ENDIF}