diff --git a/lcl/interfaces/customdrawn/customdrawn_winproc.pas b/lcl/interfaces/customdrawn/customdrawn_winproc.pas
index b57526df5f..7d058a6c31 100644
--- a/lcl/interfaces/customdrawn/customdrawn_winproc.pas
+++ b/lcl/interfaces/customdrawn/customdrawn_winproc.pas
@@ -612,9 +612,7 @@ end;
 procedure FillRawImageDescription(const ABitmapInfo: Windows.TBitmap; out ADesc: TRawImageDescription);
 begin
   ADesc.Init;
-
   ADesc.Format := ricfRGBA;
-
   ADesc.Depth := ABitmapInfo.bmBitsPixel;             // used bits per pixel
   ADesc.Width := ABitmapInfo.bmWidth;
   ADesc.Height := ABitmapInfo.bmHeight;
diff --git a/lcl/interfaces/fpgui/fpguiobject.inc b/lcl/interfaces/fpgui/fpguiobject.inc
index 93c7e49752..5546963b1f 100644
--- a/lcl/interfaces/fpgui/fpguiobject.inc
+++ b/lcl/interfaces/fpgui/fpguiobject.inc
@@ -398,8 +398,8 @@ end;
 
 procedure FillRawImageDescription(const ABitmapInfo: TfpgImage; out ADesc: TRawImageDescription);
 begin
+  ADesc.Init;
   ADesc.Format := ricfRGBA;
-
   ADesc.Depth := 32;             // used bits per pixel
   ADesc.Width := ABitmapInfo.Width;
   ADesc.Height := ABitmapInfo.Height;
@@ -417,7 +417,6 @@ begin
   end
   else ADesc.PaletteColorCount := 0;
 
-
   FillRawImageDescriptionColors(ADesc);
 
   ADesc.MaskBitsPerPixel := 8;
diff --git a/lcl/interfaces/win32/win32proc.pp b/lcl/interfaces/win32/win32proc.pp
index 422bddc149..4350a5243a 100644
--- a/lcl/interfaces/win32/win32proc.pp
+++ b/lcl/interfaces/win32/win32proc.pp
@@ -1127,8 +1127,8 @@ end;
 
 procedure FillRawImageDescription(const ABitmapInfo: Windows.TBitmap; out ADesc: TRawImageDescription);
 begin
+  ADesc.Init;
   ADesc.Format := ricfRGBA;
-
   ADesc.Depth := ABitmapInfo.bmBitsPixel;             // used bits per pixel
   ADesc.Width := ABitmapInfo.bmWidth;
   ADesc.Height := ABitmapInfo.bmHeight;
@@ -1146,7 +1146,6 @@ begin
   end
   else ADesc.PaletteColorCount := 0;
 
-
   FillRawImageDescriptionColors(ADesc);
 
   ADesc.MaskBitsPerPixel := 1;
diff --git a/lcl/interfaces/wince/winceproc.pp b/lcl/interfaces/wince/winceproc.pp
index 076edde618..18267d1e60 100644
--- a/lcl/interfaces/wince/winceproc.pp
+++ b/lcl/interfaces/wince/winceproc.pp
@@ -560,9 +560,7 @@ end;
 procedure FillRawImageDescription(const ABitmapInfo: Windows.TBitmap; out ADesc: TRawImageDescription);
 begin
   ADesc.Init;
-
   ADesc.Format := ricfRGBA;
-
   ADesc.Depth := ABitmapInfo.bmBitsPixel;             // used bits per pixel
   ADesc.Width := ABitmapInfo.bmWidth;
   ADesc.Height := ABitmapInfo.bmHeight;