Работа с графикой - крафик на координатной оси (Delphi 7)

[sergio212]

Нужно сделать засечки и оцифровку осей.
У меня сейчас вот так:



А нужно чтобы было что-то на подобии вот этого:

.................
{$R *.dfm}

// Функция, график которой надо построить
Function f(x:real):real;
begin
  f:=2*Sin(x)*exp(x/5);
end;

// строит график функции
procedure GrOfFunc;
var
  x1,x2:real; // границы изменения аргумента функции
  y1,y2:real; // границы изменения значения функции
  x:real; // аргумент функции
  y:real; // значение функции в точке x
  dx:real; // приращение аргумента
  l,b:integer; // левый нижний угол области вывода графика
  w,h:integer; // ширина и высота области вывода графика
  mx,my:real; // масштаб по осям X и Y
  x0,y0:integer; // точка - начало координат

begin
  // область вывода графика
  l:=10; // X - координата левого верхнего угла
  b:=Form1.ClientHeight-20; // Y - координата левого верхнего угла
  h:=Form1.ClientHeight-40; // высота
  w:=Form1.Width-400; // ширина
  x1:=0; // нижняя граница диапазона аргумента

  x2:=25; // верхняя граница диапазона аргумента
  dx:=0.01; // шаг аргумента

  // найдем максимальное и минимальное значения
  // функции на отрезке [x1,x2]
  y1:=f(x1); // минимум
  y2:=f(x1); // максимум
  x:=x1;
  repeat
    y := f(x);
    if y < y1 then y1:=y;
    if y > y2 then y2:=y;
    x:=x+dx;
  until (x>=x2);
  // вычислим масштаб
  my:=h/abs(y2-y1); // масштаб по оси Y
  mx:=w/abs(x2-x1); // масштаб по оси X
  // оси
  x0:=1;
y0:=b-Abs(Round(y1*my));
with form1.Canvas do
begin

  //оси
  MoveTo(l,b);LineTo(l,b-h);
  MoveTo(x0,y0);LineTo(x0+w,y0);
  TextOut(1+5,b-h,FloatToStrF(y2,ffGeneral,6,3));
  TextOut(1+5,b,FloatToStrF(y1,ffGeneral,6,3));

  // построение графика
  x:=x1;
  repeat
    y:=f(x);
    Pixels[x0+Round(x*mx),y0-Round(y*my)]:=clRed;
    x:=x+dx;
  until (x>=x2);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
GrOfFunc;
end;

end.

На втором рисунке я рисовал в paint, там должны быть другие числа, т.е, соответствовать действительности, как например максимальное 121,151 и минимальное -227,103

Буду рад любой помощи.

[Serge_Bliznykov]

а у меня сейчас вот так:

[Stilet]

а у меня сейчас вот так:

Я выбираю приватный доступ.

[sergio212]

Сообщение от Serge_Bliznykov

а у меня сейчас вот так:

Прошу прощения ((
На сайте на котором я разместил свои рисунки, были помечены "могу видеть только я"

[sergio212]

До этого я не выходил из кабинета, поэтому сразу не заметил, что изображения не видны.

[sergio212]

Сообщение от Stilet

Я выбираю приватный доступ.

Прошу прощения ((
На сайте на котором я разместил свои рисунки, были помечены "могу видеть только я"