Помогите создать программу раскраску(заливка замкнутых контуров)

[sinobithug]

procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Picture.LoadFromFile('C:\Ape x\A.bmp');
end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);


begin
If colordialog1.Execute then
Image1.Canvas.Brush.Color:=colorDia log1.Color;
Image1.Canvas.Brush.Style:=bsSolid;
Image1.Canvas.FloodFill( X,Y,clBlack,fsBorder);
end;


Работает, Программа работает Спасибо тебе товарищ VadEr спасибо