canvas画图，如何为一个菱形区域填色？

Question

var
  P:Array [1..4] of TPoint;
begin
  p[1]:=point(0,10);
  p[2]:=point(10,0);
  p[3]:=point(20,10);
  p[4]:=point(10,20);
  canvas.Pen.Style := psClear;
  canvas.Brush.Color := clRed;
  canvas.Polygon(p);
end;==================================================
PhotoMark：一款快速图片水印添加工具，支持多个水印同时添加！支持批处理，支持透明水印和半透明水印，支持水印的平铺等等。是您保护图片的利器。 下载地址：
http://www.skycn.com/soft/9031.html
http://www.onlinedown.com/photo.htm
生成的图片示例:
http://www.ncu94.com/keyzsoft/pm_exam.htm

Answer 1

Easy!!~~~~~~~with Image1 do begin
  Canvas.Brush.Color := clred;
  Canvas.Polygon([Point(50, 10), Point(90, 50),
  Point(50, 100), Point(10, 50)]);
end;
//
“Polygon”用来画封闭的多边型，方法很简单只要依次给出顶点就可以。
“Brush”用来填充颜色。