Can't use Bitmap Brush in FillRect

[OneChen]

procedure TForm1.PaintBox1Paint(Sender: TObject; Canvas: TCanvas);
var f: TBrush;
begin
     f := TBrush.Create(TBrushKind.Solid, TAlphaColorRec.Gray);
     f.Bitmap.Bitmap := Image1.Bitmap;
     f.Kind := TBrushKind.Bitmap;
     f.Bitmap.WrapMode := TWrapMode.Tile;

     Canvas.FillRect(PaintBox1.LocalRect, 0, 0, AllCorners, 1, f);
end;

[Eugene Kryukov]

Fixed at 0.903