Hiperboliczny problem :(

hallo, udalo sie komus narysowac hiperbole uzywajac canvasu ? ja nad tym siedze juz pare dni i nie mam pomyslu jak to zrobic [stuk]

for x := -n to n do
begin
  y := Sqrt(Sqr(b*x/a)-1);
  Canvas.Pixels[x+OffsetX, OffsetY+y] := clRed;
  Canvas.Pixels[x+OffsetX, OffsetY-y] := clRed;
end;

nie pamiętam czy tak wygląda hiperbola, ale nawet jeśli nie to nie problem już sobie samemu zmienić funkcję obliczania wartości
oto moja propozycja:

procedure TForm1.Button3Click(Sender: TObject);
var i:integer;
begin
  Form1.Canvas.MoveTo(-15+100,300-(-15)*(-15));
  for i := -15 to 15 do
    begin
      form1.Canvas.lineto(i+100,300-i*i); //gdzie wierzchołek znajduje się w pkt(100,300)
    end;
end;

chyba hiperbola to funckja kwadratowa :)

Nie kwadratowa, tylko wymierna :). Od kwadratowej jest parabola :).