diff --git a/components/richmemo/cocoa/cocoarichmemo.pas b/components/richmemo/cocoa/cocoarichmemo.pas
index f4928a242..850edfd30 100644
--- a/components/richmemo/cocoa/cocoarichmemo.pas
+++ b/components/richmemo/cocoa/cocoarichmemo.pas
@@ -216,7 +216,7 @@ begin
   txt.setFrame(nr);
   txt.textContainer.setLineFragmentPadding(0);
 
-  txt.callback := TLCLCommonCallback.Create(txt, AWinControl);
+  txt.callback := TLCLCommonCallback.Create(txt, AWinControl, scr);
   ns := NSStringUtf8(AParams.Caption);
   txt.setString(ns);
   ns.release;