как нарисовать Elipse в делфи 7

[xJohnx]

Нужно нарисовать элиипс в делфи

Вот парабола...
такой код

 procedure TForm1.x2py1Click(Sender: TObject); 
 var 
 i,y:integer; 
 p,x:real; 
 s:string; 
 begin 
 p:=1; 
 y:=30; 
 x:=-4; 
 ChartFX1.OpenDataEx(COD_VALUES,1,y) ; 
 for i:=0 to y-1 do 
 begin 
 ChartFX1.Value:=x*x/(2*p); 
 x:=x+0.3; 
 end;

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Sparkman]

Form1.Canvas.Ellipse(0,0,200,100);