Automatische Erkennung ob Pixel in Kreis funktioniert nicht

[MisterKnister]

Hallo,
ich möchte dass mein Programm automatisch erkennt ob ein Pixel im Kreis liegt oder nicht und diesen gegebenenfalls einfärbt.
(soll nicht per fill geschehen).
Leider funktioniert nur die manuelle Eingabe, aber nicht die komplette suche über das ganze Bild.

Wäre nett, wenn mir jemand helfen oder einen Tipp geben könnte damit ich es hinbekomme.

Code:

procedure TForm1.Button4Click(Sender: TObject);
var
i, j : Integer;
A : TPoint;

begin
try
A.X := i; //StrToInt (Edit3.Text) ; // i;
A.Y := j; //StrToInt (Edit4.Text) ; // j;

for i := 0 to Breit-1 do
 for j := 0 to Hoch-1 do
 begin
 if  sqrt(sqr(A.X - M.X) + sqr(A.Y - M.Y)) <= Radius1
 then
 Image1.Picture.Bitmap.Canvas.Pixels[A.X,A.Y] := clBlack ;
end;
 except
ShowMessage ('Fuck my Life!');

end;
end;