funktion zeichen

[freaky-girl]

ich möchte eine funktion anzeigen lassen. aber ich komm einfach nicht weiter. bei y=x und y=3x etc klappt es, auch bei x*x aber sobald ich zB x+5 versuche, wird der graph total schief. von anderen möglichen funktionen mal abgesehen (probleme mit y-achse)

hier mein code:
----------------------------------------------------------------

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var i,xn,yn, fx, fy:integer;                   //i=x,
begin
xn:=image1.Canvas.PenPos.X;                    // Koordinatenursrung bei (100,100)
yn:=image1.Canvas.PenPos.Y;
image1.Canvas.Pen.Color:=clRed;

begin                                          // f(i)=y
for i:=-100 to 150 do
fx:=i;                                         // x wert setzen
fy:=round(i*5);                                  // y wert setzen (funktion i*5, zum testen andere funktion eintragen)

image1.Canvas.moveTo(xn,yn);                   // mitte auf koord. ursprung setzen
Image1.Canvas.LineTo(xn+fx,yn-fy);            // linie zeichnen

----------------------------------------------------------------

ich bin mit sicher, es lässt sich ganz einfach lösen


[edit=Matze][delphi]-Tags eingefügt. Zukünftig bitte selbst daran denken. MfG, Matze[/edit]