Floodfill为啥不填充

Floodfill为什么不填充？
Floodfill为什么不填充？

一个试验程序如下：
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
const
  n=5;
  p:array[0..n] of tpoint=
  ((x:10),(y:10),(x:100),(y:100),(x:100),(y:50));
var i:integer;
begin
 with form1.Image1.Canvas do
 begin
  //画一红色封闭三角形：
    pen.Color:=clred;
    moveto(p[0].X,p[1].y);          //到起点
    for i:=1 to 3 do                //画2条边         
      lineto(p[2*i].x,p[2*i+1].y);
    lineto(p[0].X,p[1].y);          //再画一边回起点
  //填充
   floodfill(50,40,clred,fsBorder);
 end;
end;

end.

[解决办法]
http://blog.csdn.net/simonhehe/article/details/8721797