Funktionen mit Paintbox zeichnen

[Konstantin H.]

Hallo!

ich habe eine Aufgabe bekommen, ein Programm soll in einem Paintbox(400x400) ein nicht statisches Koordinatensystem und liniare Funktionen mit Angabe von "m" und "n" zeichnen. Ich habe ein bewegliches KS hingekriegt.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

var       x1,x2,y1,y2,gx,gy,zx,zy,t:integer;

begin
          //t:=0;

          x1:=strtoint(edit1.text);
          x2:=strtoint(edit2.text);
          y1:=strtoint(edit3.text);
          y2:=strtoint(edit4.text);

          gx:=round(400/(x1-x2));
          gy:=round(400/(y1-y2));

          zx:=gx*x1;
          zy:=gy*y1;


          paintbox1.canvas.pen.color:=clblack;
          paintbox1.canvas.Pen.Width:=2;
          paintbox1.canvas.moveto(0,zy);
          paintbox1.canvas.lineto(400,zy);


          paintbox1.canvas.pen.color:=clblack;
          paintbox1.canvas.Pen.Width:=2;
          paintbox1.canvas.moveto(zx,0);
          paintbox1.canvas.lineto(zx,400);

          {repeat
          t:=t+1;
          paintbox1.canvas.pen.color:=clblack;
          paintbox1.canvas.Pen.Width:=2;
          paintbox1.canvas.moveto(zx,gx*t);
          paintbox1.canvas.lineto(zx-10,gx*t);
          until (gx*t)<=400;}
end;

Zuerst bitte ich euch mir zu helfen die Striche, die x und y Werte anzeigen, hinzukriegen.
So soll das Programm aussehen.