diff --git a/packages/rtl-objpas/src/inc/system.uitypes.pp b/packages/rtl-objpas/src/inc/system.uitypes.pp
index 02150cc71d..071e886719 100644
--- a/packages/rtl-objpas/src/inc/system.uitypes.pp
+++ b/packages/rtl-objpas/src/inc/system.uitypes.pp
@@ -32,6 +32,7 @@ Type
     TImageIndex = type Integer;
 
     TColorRec = record
+     class var ColorToRGB: function (Color: TColor): Longint;
                  class operator := (AColor : TColor): TColorRec; inline;
                  class operator := (AColor : TColorRec): TColor; inline;
       const
@@ -982,4 +983,11 @@ begin
   CR.B:=CC(B);
 end;
 
+function DefaultColorToRGB(Color: TColor): Longint;
+begin
+  Result:=Color;
+end;
+
+initialization
+  TColorRec.ColorToRGB:=@DefaultColorToRGB;
 end.