diff --git a/lcl/include/cursorimage.inc b/lcl/include/cursorimage.inc
index 1a903c0e6c..3477eb0b82 100644
--- a/lcl/include/cursorimage.inc
+++ b/lcl/include/cursorimage.inc
@@ -100,7 +100,7 @@ begin
   IconInfo.yHotSpot := H.Y;
   IconInfo.hbmMask := MaskHandle;
   IconInfo.hbmColor := BitmapHandle;
-  FSharedImage.FHandle := WidgetSet.CreateCursor(@IconInfo);
+  FSharedImage.FHandle := WidgetSet.CreateIconIndirect(@IconInfo);
 end;
 
 
diff --git a/lcl/include/intfbasewinapi.inc b/lcl/include/intfbasewinapi.inc
index e2a03920eb..b363702144 100644
--- a/lcl/include/intfbasewinapi.inc
+++ b/lcl/include/intfbasewinapi.inc
@@ -129,11 +129,6 @@ begin
   Result := 0;
 end;
 
-function TWidgetSet.CreateCursor(ACursorInfo: PIconInfo): HCURSOR;
-begin
-  Result := CreateIconIndirect(ACursorInfo);
-end;
-
 function TWidgetSet.CreateDIBSection(DC: HDC;
   const BitmapInfo: tagBitmapInfo; Usage: UINT;
   var Bits: Pointer; SectionHandle: THandle; Offset: DWORD): HBITMAP;
diff --git a/lcl/include/winapi.inc b/lcl/include/winapi.inc
index 896325f1f5..83938b0e82 100644
--- a/lcl/include/winapi.inc
+++ b/lcl/include/winapi.inc
@@ -115,11 +115,6 @@ begin
   Result := WidgetSet.CreateCompatibleDC(DC);
 end;
 
-function CreateCursor(ACursorInfo: PIconInfo): hCursor;
-begin
-  Result := WidgetSet.CreateCursor(ACursorInfo);
-end;
-
 function CreateFontIndirect(const LogFont: TLogFont): HFONT;
 begin
   Result := WidgetSet.CreateFontIndirect(LogFont);
diff --git a/lcl/include/winapih.inc b/lcl/include/winapih.inc
index 34adc02a1d..a4a5da994a 100644
--- a/lcl/include/winapih.inc
+++ b/lcl/include/winapih.inc
@@ -54,7 +54,6 @@ function CreateBrushIndirect(const LogBrush: TLogBrush): HBRUSH; {$IFDEF IF_BASE
 function CreateCaret(Handle: HWND; Bitmap: hBitmap; width, Height: Integer): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
 function CreateCompatibleBitmap(DC: HDC; Width, Height: Integer): HBITMAP; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
 function CreateCompatibleDC(DC: HDC): HDC; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
-function CreateCursor(ACursorInfo: PIconInfo): HCURSOR; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
 function CreateDIBitmap(DC: HDC; var InfoHeader: TBitmapInfoHeader;
   dwUsage: DWORD; InitBits: PChar; var InitInfo: TBitmapInfo;
   wUsage: UINT): HBITMAP; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
diff --git a/lcl/interfaces/fpgui/fpguiwinapih.inc b/lcl/interfaces/fpgui/fpguiwinapih.inc
index 94a0cacfcb..29bfad4152 100644
--- a/lcl/interfaces/fpgui/fpguiwinapih.inc
+++ b/lcl/interfaces/fpgui/fpguiwinapih.inc
@@ -55,7 +55,6 @@ function CreateBrushIndirect(const LogBrush: TLogBrush): HBRUSH; override;
 function CreateCaret(Handle : HWND; Bitmap : hBitmap; Width, Height : Integer) : Boolean; override;
 function CreateCompatibleBitmap(DC: HDC; Width, Height: Integer): HBITMAP; override;
 function CreateCompatibleDC(DC: HDC): HDC; override;
-function CreateCursor(ACursorInfo: PIconInfo): hCursor; override;
 function CreateEllipticRgn(p1, p2, p3, p4: Integer): HRGN; override;
 function CreateFontIndirect(const LogFont: TLogFont): HFONT; override;
 function CreateFontIndirectEx(const LogFont: TLogFont; const LongFontName: string): HFONT; override;
diff --git a/lcl/interfaces/wince/wincelclintf.inc b/lcl/interfaces/wince/wincelclintf.inc
index 7493d9e89b..ecde6ab889 100644
--- a/lcl/interfaces/wince/wincelclintf.inc
+++ b/lcl/interfaces/wince/wincelclintf.inc
@@ -424,7 +424,7 @@ begin
     crSqlWait..crDrag,
     crHandPoint: 
       begin
-        // will be created later by CreateCursor
+        // will be created later by CreateIconIndirect
       end;
   else
     Result := Windows.LoadCursorW(0, LclCursorToWin32CursorMap[ACursor]);