diff --git a/lcl/graphutil.pp b/lcl/graphutil.pp
index 85e5585f19..645d6d7611 100644
--- a/lcl/graphutil.pp
+++ b/lcl/graphutil.pp
@@ -41,7 +41,6 @@ procedure DrawGradientWindow(Canvas: TCanvas; WindowRect: TRect; TitleHeight: In
 { Stretch-draw a bitmap in an anti-aliased way }
 procedure AntiAliasedStretchDrawBitmap(SourceBitmap, DestBitmap: TCustomBitmap;
   DestWidth, DestHeight: integer);
-procedure AntiAliasedStretchBitmap(ABitmap: TCustomBitmap; AWidth, AHeight: Integer);
 
 { Draw arrows }
 type TScrollDirection=(sdLeft,sdRight,sdUp,sdDown);
@@ -445,38 +444,6 @@ begin
   DrawVerticalGradient(Canvas, WindowRect, GetHighLightColor(BaseColor), GetShadowColor(BaseColor));
 end;
 
-procedure AntiAliasedStretchBitmap(ABitmap: TCustomBitmap;
-  AWidth, AHeight: Integer);
-var
-  SrcImg, DestImg: TLazIntfImage;
-  DestCanvas: TLazCanvas;
-begin
-  SrcImg := ABitmap.CreateIntfImage;
-  try
-    DestImg := TLazIntfImage.Create(0, 0); 
-    DestImg.LoadFromBitmap(ABitmap.Handle, ABitmap.MaskHandle);
-    try
-      DestCanvas := TLazCanvas.Create(DestImg);
-      try
-        DestCanvas.Interpolation := TFPBaseInterpolation.Create;
-        try
-          DestCanvas.StretchDraw(0, 0, AWidth, AHeight, SrcImg);
-          ABitmap.LoadFromIntfImage(DestImg);
-          ABitmap.SetSize(AWidth, AHeight);
-        finally
-          DestCanvas.Interpolation.Free;
-        end;
-      finally
-        DestCanvas.Free;
-      end;
-    finally
-      DestImg.Free;
-    end;
-  finally
-    SrcImg.Free;
-  end;
-end;
-
 procedure AntiAliasedStretchDrawBitmap(SourceBitmap, DestBitmap: TCustomBitmap;
   DestWidth, DestHeight: integer);
 var