diff --git a/lcl/interfaces/carbon/carbonwsstdctrls.pp b/lcl/interfaces/carbon/carbonwsstdctrls.pp
index 8c2e11d5a1..817e8db9c0 100644
--- a/lcl/interfaces/carbon/carbonwsstdctrls.pp
+++ b/lcl/interfaces/carbon/carbonwsstdctrls.pp
@@ -910,8 +910,12 @@ end;
  ------------------------------------------------------------------------------}
 class function TCarbonWSCustomMemo.CreateHandle(const AWinControl: TWinControl;
   const AParams: TCreateParams): TLCLIntfHandle;
+var
+  Memo  : TCarbonMemo;
 begin
-  Result := TLCLIntfHandle(TCarbonMemo.Create(AWinControl, AParams));
+  Memo:=TCarbonMemo.Create(AWinControl, AParams);
+  Memo.SetWordWrap(TCustomMemo(AWinControl).WordWrap);
+  Result := TLCLIntfHandle(Memo);
 end;
 
 {------------------------------------------------------------------------------