TWebPaintBox Fillrect

I'm looking for the TShape component
I need them to show different rectangles on the page.
Rectangles with and without frames.

Since I couldn't find it, I wanted to use TWebPaintBox.
With this component I can not use the procedure "canvas.fillrect ..."
because of the "TRect" type.

What other alternatives are there, or what is the solution with FillRect?

Add the unit Types to the uses list.