[The Shadow]

Большое спасибо! Вот так сделал и все OK

Код:

function Ellipse(X, A, B: Integer): Integer;
begin
if A*A < X*X then
Result:=Round(b/a*sqrt(-(a*a-x*x))) else
Result:=Round(b/a*sqrt(a*a-x*x));
end;
var
i: Integer;
begin
for i:={Image1.Width}0 div 2 to Image1.Width div 2 do
begin
Image1.Canvas.Pixels[Image1.Width div 2 + i, Image1.Height div 2 + Ellipse(i, Image1.Width div 2, Image1.Height div 2)]:=clBlack;
Image1.Canvas.Pixels[Image1.Width div 2 - i, Image1.Height div 2 + Ellipse(i, Image1.Width div 2, Image1.Height div 2)]:=clBlack;
Image1.Canvas.Pixels[Image1.Width div 2 + i, Image1.Height div 2 - Ellipse(i, Image1.Width div 2, Image1.Height div 2)]:=clBlack;
Image1.Canvas.Pixels[Image1.Width div 2 - i, Image1.Height div 2 - Ellipse(i, Image1.Width div 2, Image1.Height div 2)]:=clBlack;
end;