Подскажите что исправить в коде

[Grisha248]

Построить круговую диаграмму для 4 параметров, значения которых указывает пользова-тель

Var
a,b,c,d,h,k,p,y,t:integer;
begin
a:=strtoint(edit1.Text);
b:=strtoint(edit2.Text);
c:=strtoint(edit3.Text);
d:=strtoint(edit4.Text);
Image1.Canvas.Brush.Color:=clNavy;
Image1.Canvas.FloodFill(0,0,clBlack,fsborder);

h:=2;

//-----------------------------------------------
k:=0;
p:=0;
y:=0;
t:=0;

Repeat
Image1.Canvas.Pen.Color:=clRed;
Image1.Canvas.MoveTo(0,450-k);
k:=k+h;
Image1.Canvas.LineTo(0,450-k);
Image1.Canvas.LineTo(40,450-k);
k:=k-h;
Image1.Canvas.LineTo(40,450-k);
k:=k+h;
Until k=a;

Repeat
Image1.Canvas.Pen.Color:=clYellow;
Image1.Canvas.MoveTo(42,450-p);
p:=p+h;
Image1.Canvas.LineTo(42,450-p);
Image1.Canvas.LineTo(82,450-p);
p:=p-h;
Image1.Canvas.LineTo(82,450-p);
p:=p+h;
Until p=b;

Repeat
Image1.Canvas.Pen.Color:=clLime;
Image1.Canvas.MoveTo(84,450-y);
y:=y+h;
Image1.Canvas.LineTo(84,450-y);
Image1.Canvas.LineTo(124,450-y);
y:=y-h;
Image1.Canvas.LineTo(124,450-y);
y:=y+h;
Until y=c;

Repeat
Image1.Canvas.Pen.Color:=clWhite;
Image1.Canvas.MoveTo(126,450-t);
t:=t+h;
Image1.Canvas.LineTo(126,450-t);
Image1.Canvas.LineTo(166,450-t);
t:=t-h;
Image1.Canvas.LineTo(166,450-t);
t:=t+h;
Until t=d;
end;

end.

[MaTBeu]

Да, это понятно, а ошибка в чем? Если не скажете в чем ошибка сразу тема на замок.

[Grisha248]

Проблема в том, что код строит вместо круговуй диаграммы ступенчатую. Помогите исправить код так, чтобы строилась круговая.

[Sazary]

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

Проблема в том, что код строит вместо круговуй диаграммы ступенчатую.

Мда.. Какая странная ошибка..

Ну так стройте окружность. Потом считайте отношения отдельных частей к общей площади. Затем заливайте каждый сектор.

Помогите исправить код так, чтобы строилась круговая.

Не исправлять надо, а переписывать.

[Grisha248]

Если бы я знал, то я бы переписал, но я не знаю как(((

[Sazary]

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

Если бы я знал, то я бы переписал, но я не знаю как(((

Читайте про работу с графикой в Делфи.
Можете еще глянуть вот эту темку:
http://programmersforum.ru/showthread.php?t=47030