Не закрашивается область. ( FloodFill)

[vedro-compota]

Всем привет
Почему-то не работает процедура FloodFill.
вот простенький код:

procedure TForm1.Button1Click(Sender: TObject);
var
  i,a,b,c: integer;
begin
for i := 1 to 1 do
begin
  RAndomize;
  a:= random(256);
  b:= random(256);
  c:= random(256);
  canvas.brush.color:=RGB( a, b,c );
  canvas.pen.color:=RGB( a, b,c );
  canvas.MoveTo(400,20);
  canvas.LineTo(400, 200);
  canvas.MoveTo(400,200);
  canvas.LineTo(350, 200);
  canvas.MoveTo(350,200);
  canvas.LineTo(350, 20);
  canvas.MoveTo(350,20);
  canvas.LineTo(400, 20);
  Canvas.FloodFill(390,19,RGB( a, b,c ),fsBorder);
end;
end;

Пожалуйста , подскажите в чём ошибка . ( цвет рамки меняется, а вот область не закрашиается)
Заранее благодарю ))
прикреплю архив.

[DeKot]

procedure TForm1.Button1Click(Sender: TObject);
var
  i,a,b,c: integer;
begin
//for i := 1 to 1 do  - зачем тут цикл? Абсолютно не нужен
//begin
  RAndomize;
  a:= random(256);
  b:= random(256);
  c:= random(256);
  canvas.brush.color:=RGB( a, b,c );
  canvas.pen.color:=RGB( a, b,c );
  canvas.MoveTo(400,20);
  canvas.LineTo(400, 200);
  //canvas.MoveTo(400,200);  -  эти MoveTo не нужны. Курсор и так находится в указанной точке.
  canvas.LineTo(350, 200);
  //canvas.MoveTo(350,200);
  canvas.LineTo(350, 20);
  //canvas.MoveTo(350,20);
  canvas.LineTo(400, 20);
  //Canvas.FloodFill(390,19,RGB( a, b,c ),fsBorder);
     // координата по У находитсе вне прямоугольника, а должна быть внутри
  Canvas.FloodFill(390,21,RGB( a, b,c ),fsBorder);
//end;
end;

[vedro-compota]

procedure TForm1.Button1Click(Sender: TObject);
var
  i,a,b,c: integer;
begin
for i := 1 to 1 do
begin
  RAndomize;
  a:= random(256);
  b:= random(256);
  c:= random(256);
  canvas.brush.color:=RGB( a, b,c );
  canvas.pen.color:=RGB( a, b,c );
  canvas.MoveTo(400,20);
  canvas.LineTo(400, 200);
  canvas.MoveTo(400,200);
  canvas.LineTo(350, 200);
  canvas.MoveTo(350,200);
  canvas.LineTo(350, 20);
  canvas.MoveTo(350,20);
  canvas.LineTo(400, 20);
  Canvas.FloodFill(390,21,RGB( a, b,c ),fsBorder);
end;

Всё равно не работает почему-то.....

[vedro-compota]

Кнопка закрывала точку (191, 21) и поэтому процедура не работала , даже после того как DeKot указал точку , находящуюся внутри замкнутой области.
Мораль темы- " кнопки влияют на FloodFill ".
DeKot , спасибо большое ))

[DeKot]

Мораль ...

надо четко указывать задание или формулировать задачу.

[vedro-compota]

Задача была сформулирована правильно, и Вы указали ошибку котора действительно была. Просто после исправления заливка всё равно не выполнялась , так как точка, координаты которой указывались в параметрах фудфила закрывала кнопка. Вот и всё )) Спасибо ))