diff --git a/lcl/include/picture.inc b/lcl/include/picture.inc
index ee7f7f535f..ab81c7c65b 100644
--- a/lcl/include/picture.inc
+++ b/lcl/include/picture.inc
@@ -225,6 +225,7 @@ begin
     GraphicClass:=AClass;
     FormatID:=AFormatID;
   end;
+  inherited Add(NewFormat);
 end;
 
 function TPicClipboardFormats.FindFormat(