diff --git a/lcl/interfaces/win32/win32winapi.inc b/lcl/interfaces/win32/win32winapi.inc
index e8a6f3caa3..d18930dc1a 100644
--- a/lcl/interfaces/win32/win32winapi.inc
+++ b/lcl/interfaces/win32/win32winapi.inc
@@ -1795,6 +1795,19 @@ begin
   Result := Windows.CreateDIBSection(DC, Windows.PBitmapInfo(@p2)^,  p3, p4, p5, p6)
 end;
 
+{------------------------------------------------------------------------------
+  Method:  CreateEllipticRgn
+  Params:  p1, p2 = X1 and Y1 top-left position of the ellipse
+  Params:  p3, p4 = X2 and Y2 bottom-right position of the ellipse
+  Returns: The handle of the region created
+
+  Creates an elliptic region.
+ ------------------------------------------------------------------------------}
+function TWin32WidgetSet.CreateEllipticRgn(p1, p2, p3, p4: Integer): HRGN;
+begin
+  Result := Windows.CreateEllipticRgn(p1, p2, p3, p4);
+end;
+
 {------------------------------------------------------------------------------
   Method:  GetFocus
   Params:  none
diff --git a/lcl/interfaces/win32/win32winapih.inc b/lcl/interfaces/win32/win32winapih.inc
index 85cfc607e3..9161813390 100644
--- a/lcl/interfaces/win32/win32winapih.inc
+++ b/lcl/interfaces/win32/win32winapih.inc
@@ -53,6 +53,7 @@ function CreateCompatibleBitmap(DC: HDC; Width, Height: Integer): HBITMAP; overr
 function CreateCompatibleDC(DC: HDC): HDC; override;
 function CreateDIBSection(DC: HDC; const p2: tagBitmapInfo; p3: UINT;
   var p4: Pointer; p5: THandle; p6: DWORD): HBITMAP; override;
+function CreateEllipticRgn(p1, p2, p3, p4: Integer): HRGN; override;
 function CreateFontIndirect(const LogFont: TLogFont): HFONT; override;
 function CreateIconIndirect(IconInfo: PIconInfo): HICON; override;
 function CreatePatternBrush(ABitmap: HBITMAP): HBRUSH; override;