Графики функций

[Владилена]

Здравствуйте!
Осваиваю новую тему в Delphi - графика. Дали задание - построить графики на Canvas в Image.
С помощью данного кода:

procedure TForm1.Button1Click(Sender: TObject);
var
x,y: integer;
x2,y2: real;
step:real;
begin
x := Image1.Width div 2;
y := Image1.Width div 2;
x2:=-2;
step:=30;
while x2 < 2 do
begin
y2:=sqr(x2);
form1.Image1.canvas.Pixels[x+trunc(x2*step),y-trunc(y2*step)]:=clblack;
x2:=x2 + 0.001;
end;

была построена парабола y=-x^2.
Подскажите, как сделать так, чтобы он лежал на осях координат, и ветви её заканчивались в точках, как на рисунке