diff --git a/lcl/lcltaskdialog.pas b/lcl/lcltaskdialog.pas
index a6846f19a4..6c62bfe4f1 100644
--- a/lcl/lcltaskdialog.pas
+++ b/lcl/lcltaskdialog.pas
@@ -884,7 +884,9 @@ begin
       Image.ImageIndex := GetDialogImages.DialogIndexes[LCL_IMAGES[aDialogIcon]];
       Image.SetBounds(IconBorder,IconBorder, 32, 32);
       Image.Stretch := True;
+      Image.StretchOutEnabled := False;
       Image.Proportional := True;
+      Image.Center := True;
       X := Image.Width+IconBorder*2;
       Y := Image.Top;
       if aEmulateClassicStyle then
@@ -1080,7 +1082,9 @@ begin
         Image.ImageWidth := 16;
         Image.ImageIndex := GetDialogImages.DialogIndexes[LCL_FOOTERIMAGES[aFooterIcon]];
         Image.Stretch := True;
+        Image.StretchOutEnabled := False;
         Image.Proportional := True;
+        Image.Center := True;
         Image.SetBounds(24,Y,16,16);
         X := 40+Image.Width;
       end else