diff --git a/lcl/interfaces/cocoa/cocoatables.pas b/lcl/interfaces/cocoa/cocoatables.pas
index 0d51159afb..11b8515681 100644
--- a/lcl/interfaces/cocoa/cocoatables.pas
+++ b/lcl/interfaces/cocoa/cocoatables.pas
@@ -359,6 +359,7 @@ begin
     end;
   end else
     img := nil;
+  Result := img;
 end;
 
 function TCocoaTableListView.acceptsFirstResponder: Boolean;