ПроцеДура > )...

[Katus]

procedure SoulWriter(var Img: TImage);
	procedure WriteShape(var Img: TImage; Distance: Integer; Color: TColor);
	var
		i,j,m,c: byte;
	begin
		c := Img.Width div 2 - Distance;
		for j := Img.Height - Img.Width + c to Img.Height - Img.Width div 2 do begin
			i := round(sqrt(sqr(Distance) - sqr(Img.Width / 2 - (j - (Img.Height - Img.Width)))));
			m := Img.Height - (j - (Img.Height - Img.Width));
			for i:=i to Img.Width - i do begin
				Img.Canvas.Pixels[i,j]:=Color;
				Img.Canvas.Pixels[i,m]:=Color;
			end;
		end;
	end;
begin
WriteShape(Img, Img.Width div 2 - 1, $400000);
end;

Нифига не работает....... Готов разломать ноутбук, но вспомнил про форум... можете помочь? ....