Зарисовка фигуры

[shkolnik45]

Добрый день. Помогите пожалуйста. Задача такая: при одном нажатии часть круга (до границы) закрашивается в зеленый цвет (скрин 1,2) (если до этого был белый), при повторном нажатии снова закрашивается белым. Проблема в том, что при первом нажатии на область круга она закрашивается в зеленый, а при повторном нажатии ничего не происходит до тех пор, пока я не закрашу область за пределами круга.(скрин 3)

procedure TForm1.Image2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
 var
pt2:tPoint;
a:integer;
i,j:byte;
begin
pt2:=Mouse.CursorPos;
pt2 := ScreenToClient(pt2);
a:=GetPixel(Image2.Canvas.Handle, i, j);
Label9.Caption := inttostr(GetPixel(Image2.Canvas.Handle, i, j));
 if a  = 16777215
 then begin image2.Canvas.Brush.Color:=clgreen;
      Image2.Canvas.FloodFill(pt2.x-24,pt2.y-144,clblack,fsborder);     end;
       if a = 32768
          then  begin image2.Canvas.Brush.Color:=clwhite;
           Image2.Canvas.FloodFill(pt2.x-24,pt2.y-144,clblack,fsborder); end;
end;

[BDA]

Потому что точка старта закрашивания привязана к CursorPos, а цвет пикселя берется по координатам i и j, которые вообще не инициализированы. Во-вторых, а нужно ли так сложно доставать координаты клика, разве аргументы X, Y не подойдут?

[shkolnik45]

Сообщение от BDA

Потому что точка старта закрашивания привязана к CursorPos, а цвет пикселя берется по координатам i и j, которые вообще не инициализированы. Во-вторых, а нужно ли так сложно доставать координаты клика, разве аргументы X, Y не подойдут?

А не могли бы вы подсказать, как лучше сделать. Очень плохо в этой теме разбираюсь.

[BDA]

procedure TForm1.img1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  with (Sender as TImage) do
  begin
    if Canvas.Pixels[X, Y] = clWhite then
      Canvas.Brush.Color := clGreen
    else
      Canvas.Brush.Color := clWhite;
    Canvas.FloodFill(X, Y, clBlack, fsBorder);
  end;
end;

[shkolnik45]

BDA, Спасибо вам большое)