class BitmapInfoX {
public:
	BITMAPINFOHEADER bmiHeader;
	DWORD bmiColors[3];
};

// Blit the drawing surface to the window.
BitmapInfoX bm;
bm.bmiHeader.biSize = sizeof(BITMAPINFOHEADER);
bm.bmiHeader.biWidth = bmp->Width();
bm.bmiHeader.biHeight = -bmp->Height();
bm.bmiHeader.biPlanes = 1;
bm.bmiHeader.biBitCount = 32;
bm.bmiHeader.biCompression = BI_BITFIELDS;
bm.bmiHeader.biSizeImage = 0;
bm.bmiHeader.biXPelsPerMeter = 1000;
bm.bmiHeader.biYPelsPerMeter = 1000;
bm.bmiHeader.biClrUsed = 0;
bm.bmiHeader.biClrImportant = 0;
bm.bmiColors[0] = 0xFF000000;
bm.bmiColors[1] = 0xFF0000;
bm.bmiColors[2] = 0xFF00;
const void * bitmap_data = bmp->Data();
unsigned int lines = ::StretchDIBits(hDC,
	left, top, width, height,
	0, 0, bmp->Width(), bmp->Height(),
	bitmap_data, (BITMAPINFO *)(&bm), DIB_RGB_COLORS, SRCCOPY
);

procedure TForm1.DrawBitmapFromStream;
type
  TBitmapInfoX = record
    bmiHeader: BITMAPINFOHEADER;
    bmiColors: array[0..2] of DWORD;
  end;
var
  LMemStrm: TMemoryStream;
  LIStrm: IStream;
  LHeight, LWidth: Integer;
  LBitsPerPixel: Integer;
  LBmpInfo: TBitmapInfoX;
  LLines: DWORD;
begin
  LMemStrm := TMemoryStream.Create;
  try
    LIStrm := TStreamAdapter.Create(LMemStrm, soReference);
    FMap.SaveBitmap(LIStrm, LWidth, LHeight, LBitsPerPixel);
    //
    LBmpInfo.bmiHeader.biSize := SizeOf(BITMAPINFOHEADER);
    LBmpInfo.bmiHeader.biWidth := LWidth;
    LBmpInfo.bmiHeader.biHeight := -LHeight;
    LBmpInfo.bmiHeader.biPlanes := 1;
    LBmpInfo.bmiHeader.biBitCount := LBitsPerPixel;
    LBmpInfo.bmiHeader.biCompression := BI_BITFIELDS;
    LBmpInfo.bmiHeader.biSizeImage := 0;
    LBmpInfo.bmiHeader.biXPelsPerMeter := 1000;
    LBmpInfo.bmiHeader.biYPelsPerMeter := 1000;
    LBmpInfo.bmiHeader.biClrUsed := 0;
    LBmpInfo.bmiHeader.biClrImportant := 0;
    LBmpInfo.bmiColors[0] := $FF000000;
    LBmpInfo.bmiColors[1] := $FF0000;
    LBmpInfo.bmiColors[2] := $FF00;
    LLines := StretchDIBits(
      FMapBitmap.Canvas.Handle,
        0, 0, FMapBitmap.Width, FMapBitmap.Height,
        0, 0, LWidth, LHeight,
        LMemStrm.Memory, PBitmapInfo(@LBmpInfo)^, DIB_RGB_COLORS, SRCCOPY
    );
    case LLines of
      0: raise EOSError.Create('Draw failed');
      GDI_ERROR: raise EOSError.Create('Unsupported format');
    end;
  finally
    LMemStrm.Free;
  end;
end;