Index: unit1.pas
===================================================================
--- unit1.pas	(revision 12763)
+++ unit1.pas	(working copy)
@@ -67,7 +67,6 @@
 
 procedure TForm1.FormCreate(Sender: TObject);
 var
-  IntfImage: TLazIntfImage;
   ScanLineImage: TLazIntfImage;
   y: Integer;
   ImgFormatDescription: TRawImageDescription;
@@ -89,13 +88,10 @@
   // create IntfImage with the format of the current LCL interface
   MyBitmap.Width:=ScanLineImage.Width;
   MyBitmap.Height:=ScanLineImage.Height;
-  IntfImage:=MyBitmap.CreateIntfImage;
   // convert the content from the very specific to the current format
-  IntfImage.CopyPixels(ScanLineImage);
-  MyBitmap.LoadFromIntfImage(IntfImage);
+  MyBitmap.LoadFromIntfImage(ScanLineImage);
 
   ScanLineImage.Free;
-  IntfImage.Free;
 end;
 
 procedure TForm1.FormDestroy(Sender: TObject);