[Flashton]

Здравствуйте, пожалуйста, помогите дописать программу! Нужно сделать оси координат и масштаб.
Программа строит график, я задал функцию, организовал цикл, теперь не могу построить оси в Canvas и решить проблему с масштабом.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53

unit Unit1;    interface    uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, ExtCtrls;    type   TForm1 = class(TForm)     Edit1: TEdit;     Edit2: TEdit;     Button1: TButton;     Label1: TLabel;     Label2: TLabel;     Edit3: TEdit;     Label3: TLabel;     Edit4: TEdit;     Image1: TImage;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public   x,y:integer;   end;    var   Form1: TForm1;    implementation    {$R *.dfm}    procedure TForm1.Button1Click(Sender: TObject); const e=2.72; var a,t1,t2,shag,z,itoe,i,nakop:real; begin nakop:=0; a:=StrToFloat(Edit1.Text); t1:=StrToFloat(Edit2.Text); t2:=StrToFloat(Edit3.Text); shag:=StrToFloat(Edit4.Text); shag:=abs(shag); repeat/// Тут цикл, к первому пределу прибавляет шаг, записывает в переменную nakop, как переменная станет равна второму пределу цикл прервётся. ///Отметка точки. x:=Trunc(a*(exp(t1*ln(e)))); /// Считаю x. y:=Trunc(a*t1*(exp(t1*ln(e)))); /// Считаю y. Form1.Canvas.MoveTo(x,y); /// Отмечаю полученные значения на графике. nakop:=t1+shag+nakop; until nakop=t2; end;    end.

-------------------------
Спасибо.