TGraphic.Draw(Canvas, Rect) does not work : I need to insert an image into an ImageList. The image is in a descendant of TGraphicControl (see source code below). The insertion seems to work. However, I get only a white rectangle in the ImageList:

    function InsertCloudImageIntoImageList(AdvCloudImage1: TAdvCloudImage): Integer;
    // TAdvCloudImage = class(TGraphicControl)
    // WebPicture is TCloudPicture = class(TGraphic)
    var
      TempBitmap: TBitmap;
      R: TRect;
    begin
      Result := 0;
      TempBitmap := TBitmap.Create;
      try
        TempBitmap.SetSize(16, 16);
        R.Width  := 16;
        R.Height := 16;
        R.Top := 0;
        R.Left := 0;
    
        AdvCloudImage1.WebPicture.Draw(TempBitmap.Canvas, R);
        Result := Form1.ImageList1.Add(TempBitmap, nil);
      finally
        TempBitmap.Free;
      end;
    end;

I suspect the bug is in the drawing on the bitmap canvas?