гипербола в делфи

[xJohnx]

procedure TForm1.x1Click(Sender: TObject);

var
i,y:integer;
p:real;
s:string;
begin
MediaPlayer1.FileName:='Tada.wav';
MediaPlayer1.Open;
MediaPlayer1.Play;
p:=0;
y:=10;
ChartFX1.OpenDataEx(COD_VALUES,1,y) ;
for i:=0 to y-1 do
begin
что сюда добавить что рисовало гиперболу кривых второго порядка
ибо за такой формулой(x^=2py and x^=-2py )
img115.jpg
Вот фотка
{ChartFX1.Value[i]:=2*p*y;
str((2*p*y):1:2,s);
ChartFX1.Legend[i]:=s;}

end;
ChartFX1.CloseData(COD_VALUES);
StatusBar1.Panels[2].Text:='Побудова графіка '
end;
вот исходник всего
1.rar