Умные люди проверьте что не так????

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
  procedure GrOfFunc;
  var
    y1, y2: real;
    x, y: real;
    a: integer;
    x1,x2:real;
    dx: real;
    l, b: integer;
    w, h: integer;
    mx, my: real;
    x0, y0: integer;
    i:integer;
    x5,sd,sds,sdy:real;
    y5,cd:real;
    df,dy,yt: real;
    inty,intx: real;
    Function f5(x:real):real;
  begin
   f5:=0.15*x-a/ln((a*a)-(x*x));
  begin
 
    l := 10;                      // ëåâî
    w := Form1.ClientWidth - 20;  // ïðàâî
    b := Form1.ClientHeight - 10; // íèç
    h := Form1.ClientHeight - 50; // âåðõ
 
    dx := 0.0001;  //øàã
 
    y1 := f5(x1); // âû÷èñëåíèå ìèí ó
    y2 := f5(x2); // âû÷èñëåíèå ìàê ó
 
    x := x1;
   repeat        //y1,y2
    y := f5(x);
     if y < y1 then y1 := y;
     if y > y2 then y2 := y;
    x := x + dx;
   until (x >= x2);
           my := h /(Abs(y2) + Abs(y1)) ; // ìàñøòàá ïî îñè Y
           mx := w /(Abs(x2) + Abs(x1)) ; // ìàñøòàá ïî îñè X
           x0 := l - Round(x1 * mx);
           y0 := b + Round(y1 * my);
   sd:=-2; df:=0;
    with form1.Canvas do
     begin
      Pen.Style:=psSolid; // ñïëîøíàÿ ëèíèÿ
       MoveTo(x0, b); LineTo(x0, b - h); //îñü ó
       MoveTo(l, y0); LineTo(l + w, y0); //îñü õ
         x:=x1;
         intX:=(Abs(y2-y1))/10;
          repeat  // ïîñòðîåíèå ñåòêè è âûâîä ðàçìåòêè
           y := f5(x);
           x := x + dx;
 
           If ((trunc(x)-1)=x1) and  (trunc(x)<>0) Then  begin
            Pen.Style:=psDot;
            TextOut(l+2 ,y0+2,FloatToStr(trunc(x1)));  // ëèíèÿ ñåòêè
             If (df=0) and (x1<>0) Then  begin
              MoveTo(l, b + 2 ); LineTo(l,b-h);
              df:=1;
             end;
            end;
 
            If Trunc(x)<>Trunc(x5) then begin
              x5:=x;
              Pen.Style:=psDot;
              sds:=sds+1;
            end;
            If sds=10 then  begin
             sds:=0;
             TextOut(x0 + Round(x * mx)+2,y0+1,FloatToStr(trunc(x)));
            If  trunc(x)<>0 Then begin
              MoveTo(x0 + Round(x * mx), b + 2 ); LineTo(x0 + Round(x * mx),b-h); // ëèíèÿ ñåòêè
            end;
            end;
          until (x >= x2); // çàâåðøåíèå ïîñòðîåíèå ñåòêè è âûâîä ðàçìåòêè
 
///////////////////////////////////////////////////////////////////////////////
          x:=x1;
           repeat  // ïîñòðîåíèå ñåòêè è âûâîä ðàçìåòêè
           y := f5(x);
           x := x + dx;
 
            { If ((trunc(y)-1)=y1) and (trunc(y)<>0) Then  begin
            Pen.Style:=psDot;
            TextOut(x0 +2,y0 - trunc(y * my),FloatToStr(Round(y1)));  // ëèíèÿ ñåòêè
             If (df=0) and (y1<>0) Then  begin
              MoveTo(l, y0 - Round(y * my));LineTo(l + w,y0 - Round(y * my));
              df:=1;
             end;
            end; }
 
 
              If trunc(y)<>trunc(y5) then begin
                y5:=y;
                sdy:=sdy+1;
               end;
              If sdy=1 Then begin
              sdy:=0;
               If trunc(y)<>0 then  begin
                //TextOut(x0 +2,y0 - Round(y * my),FloatToStr(Round(y)));
                If trunc(y)>0 then TextOut(x0 +2,y0 -Round(y * my),FloatToStr(Round(y)));
                If trunc(y)<0 then TextOut(x0 +2,y0 - Round(y * my),FloatToStr(Round(y)));
                MoveTo(l, y0 - Round(y * my));LineTo(l + w,y0 - Round(y * my));
               end;
              end;
              until (y >= y2);
 
 
 
 
 
           x:=x1;
            repeat   // ïîñòðîåíèå ãðàôèêà
             y := f5(x);
             Pixels[x0 + Round(x * mx), y0 - Round(y * my)] := clRed;
             x := x + dx;
            until (x >= x2); // çàâåðøåíèå ïîñòðîåíèå ãðàôèêà
 
 
      // x := x1;
          {  repeat
             Pen.Style:=psDot;
              y := f5(x);
              x := x + dx;
              //inty:=(y2+y1)/10;
              inty:=inty+(y2+y1)/10;
 
              {If trunc(y)<>trunc(y5) then begin
                y5:=y;
                sds:=sds+1;
               end;
               //If (sds=1) and (y<>0) then  begin
                TextOut(x0 - 8,b- Round(inty),FloatToStr(trunc(y)));
                //  MoveTo(l, y0 - Round(y * my) ); LineTo(l + w,y0 - Round(y * my));
                sds:=0;
              // end;
              until (y >= y2); }
 
 
      { If trunc(x)<>trunc(x5) then
        begin
         x5:=x;
         sd:=sd+1;
        end;
       If ((trunc(x)-1)=x1) and  (trunc(x)<>0) Then  begin
         Pen.Style:=psDot;
        TextOut(l ,y0+ Round(y1 * my)+2,FloatToStr(trunc(x1)));  // ëèíèÿ ñåòêè
         If (df=0) and (x1<>0) Then  begin
         MoveTo(x0 + Round(x * mx), b + 2 );
         LineTo(x0 + Round(x * mx),y0-h);
         df:=1;
         end;
         end;
       If sd=5 then
        begin
         TextOut(x0 + Round(x * mx),y0+ Round(y1 * my)+2,FloatToStr(trunc(x)));
         If  trunc(x)<>0 Then begin
         MoveTo(x0 + Round(x * mx), b + 2 ); LineTo(x0 + Round(x * mx),y0-h);  // ëèíèÿ ñåòêè
         end;
         sd:=0;
        end;  }
end;
 
 
 
 
 
 
end.