如何用TCanvas画出一个无边框的实心矩形

怎么用TCanvas画出一个无边框的实心矩形？
TCanvas的Rectangle方法屯画出的矩形怎么有边框？有什么办法去掉它？

[解决办法]
canvas.Pen.Style:=psClear;
[解决办法]
procedure TForm1.Button1Click(Sender: TObject);
begin
self.Canvas.Pen.Color := clRed;
self.Canvas.Brush.Color := clRed;
self.Canvas.Rectangle(Rect(20,20,100,100));
end;