diff --git a/lcl/interfaces/cocoa/cocoatextedits.pas b/lcl/interfaces/cocoa/cocoatextedits.pas
index a28810d3a5..bce9a0cbdc 100644
--- a/lcl/interfaces/cocoa/cocoatextedits.pas
+++ b/lcl/interfaces/cocoa/cocoatextedits.pas
@@ -1595,6 +1595,7 @@ end;
 
 procedure TCocoaReadOnlyComboBox.dealloc;
 begin
+  FreeAndNil( list );
   if resultNS <> nil then resultNS.release;
   inherited dealloc;
 end;