[TBitmapData] Как скопировать в TBitmapData другое изображение?

[estra]

Всем привет.
 
Столкнулся с проблемкой. Есть структура с данными типа TBitmapData. Как из них получить изображение?
 

var
  Bitmap: TBitmap;
  BitmapData, M: TBitmapData;
begin
   ...
   Bitmap := TBitmap.Create;
   Bitmap.SetSize( Width, Height );
   if Bitmap.Map( TMapAccess.maRead, M ) then
   begin
      BitmapData := TBitmapData.Create( Width, Height, TPixelFormat.BGR_565 );
      BitmapData.Data := @ImageData[0];
      M.Copy( BitmapData );
      Bitmap.Unmap( M );
   end;
   Image1.Bitmap.Assign( Bitmap );
   ...
end;

В итоге никакого изображения не видно. Как из TBitmapData получить изображение?

[Brovin Yaroslav]

Хотелось бы увидеть проект с этим примером.