Чем событие Button Click отличается от события Button Click или крах компилятора ассемблерных оптимизаций

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Grids, StdCtrls, Math;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
  private
 
  public
 
  end;
 
var
  Form1: TForm1;
 
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);/////////////////////////////////////////////////////////////////////////////////////////////
    procedure steps1;
  var
    Edge,altHead,altTail,logic,p:pointer;
    y,x, xf,yf, TracerX, TracerY, steps, stepsInString, stepRare, stepFrequent, stepsBig, StringDivTrunc, StringFinish, StringStart,Punctir, Nechto:integer;
    px,py:^integer;
     Biger, countPix, Ostatok, CaTanDegP, RazmerX, xRazmerX, RazmerY,yRazmerY,bigStep, runTime,steps1:integer;
    CaTanDeg,TanDeg, TracerYDiv, deg:Extended;
    TracBool:boolean;
    //вторичный блок переменных
    StringDiv, StringDiv1:Extended;
    znak:integer;
    label p1,p2,p3,p4;
      label logic1,logic2,logic3,logic4;
            label Edge1, Edge2,Edge3,Edge4;
              label altHead1, altHead2, altHead3;
                label alttail1,altTail2;
          procedure Vstavka;
          begin
           //CaTanDegP:=round(CaTanDeg);
           //StringDiv:=RazmerX / (CaTanDeg);
           stepFrequent:=round(CaTanDeg);//кол-во пикселей в частом штрихе
           StringDiv:=frac(CaTanDeg);//выборка дробной части катангенса
           znak:=sign(0.5-StringDiv)*sign(StringDiv);//указывает на увеличение или уменьшение результата суммирования этой дробной части при повторе частых штрихов
           stepsBig:=round(1/StringDiv)+1;//!!!!!!!!увеличил на единицу только потому что в коде применяется только в таком виде
           stepRare:=stepFrequent+znak;//количество пикселей в редком штрихе. промежуточный, пока не нужен.
           bigStep:= stepsBig*stepFrequent;//поправил
           if bigStep=0 then begin
           bigStep:=stepRare;
           stepRare:=0;
 
           end;
           end;
          begin
      deg:= StrToInt(Edit1.Text);
      RazmerX:= StrToInt(Edit2.Text);
      RazmerY:= StrToInt(Edit3.Text);
      StringGrid1.RowCount:= RazmerY+2;  { Установка количества строк компонента StringGrid}
      StringGrid1.ColCount:= RazmerX+2;
         TanDeg := Tan(DegToRad(deg));
         {%REGION 'ttt'}
         if TanDeg = 0 then begin
           CaTanDeg:=RazmerX;
           CaTanDegP:=Trunc(CaTanDeg);
           px:=@x;
           py:=@y;
           StringFinish:=0;
           Ostatok:=0;
           Vstavka;
           end
         else begin
         CaTanDeg:= 1/TanDeg;
         if CaTanDeg>=TanDeg then begin
           px:=@x;
           py:=@y;
           Vstavka;
          if CaTanDegP>28 then CaTanDegP:=27;
           end
         else begin
           px:=@y;
           py:=@x;
           Vstavka;
           if CaTanDegP>28 then CaTanDegP:=27;
            end;
                  end;
         if CaTanDegP=0 then begin
           StringFinish:=0;
           Ostatok:=0;
           end else begin
            StringDivTrunc:=Trunc(RazmerX div CaTanDegP);
          //StringFinish:=28-steps*CaTanDegP;
            Ostatok:=28-StringDivTrunc*CaTanDegP;
 
              end;
            Label1.Caption:=IntToStr(CaTanDegP);
            Label2.Caption:=FloatToStr(StringDiv);
            {%ENDREGION}
 
 x:=RazmerX-1;
 xRazmerX:=x;
 StringStart:=x;
 yRazmerY:=RazmerY-1;
 y:=0;
TracerY:=0;
TracerX:=0;
steps:=0;
logic:=@logic1;
p:=@p1;
Edge:=@Edge1;
steps1:=0;
xf:=0;
yf:=y+1;
// для отладки первой фазы--------------------------------------------------------------------------------------------------------
 runTime:=gettickcount64;
 repeat
 repeat
 asm
jmp logic
end;
 logic1://пропускаем первую строку
 logic:=@logic2;
 goto logic4;
 logic2:
 Edge:=@Edge3;
 logic:=@logic3;
 logic3:
 TracerY:=y-steps1;//расчёт ячейки правого столбца
 TracerX:=0;
 if TracerY<0 then begin
   TracerX:=RazmerX-(stepFrequent*y+znak*trunc(y/(stepsBig)));//
   if TracerX<0 then TracerX:=0;
   TracerY:=0;
 end;
 logic4:
 altHead:=@altHead1;
 steps:=stepsBig;
 Biger:=x-stepFrequent+1;//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    repeat ///////////////////////////////////////////////////////////////////////////////////////
 dec(steps);
 repeat
 asm
 jmp altHead
 end;
 altHead1:
   Biger:=x-stepFrequent+1;
   goto altHead3;
 altHead2:
 altHead:=@altHead1;
 altHead3:
 if Biger<0 then begin
 Biger:=0;
 steps:=0;
 end;
 repeat
  {%REGION 'Engine'}
  xf:=x+1;//если раскомментироваnm строки После jmp p  то начнётся вывод данных в таблицу
 asm
 jmp p
 end;
 p1:
 StringGrid1.Cells[xf,yf]:= IntToStr(TracerX)+','+IntToStr(TracerY) +','+'1';//запись правого столбца
 p:=@p3;
 goto p4;
 p2:
 StringGrid1.Cells[xf,yf]:= IntToStr(xf)+','+IntToStr(yf)+',' +'0';//автоматическое забивание координат в местах скоса трассы
 p:=@p3;
 goto p4;
 p3:
 StringGrid1.Cells[xf,yf]:= IntToStr(xf)+','+IntToStr(y)+',' +'0';//автоматическое забивание координат трассы на прямых участках
 p4:
 dec(x);
 {%ENDREGION}
 until x<Biger;
 asm
 jmp Edge
 end;
 Edge1://подсчёт шагов в первой строке - других расчётов для первой строки не требуется и знание этого значения нужно для последней строки
 inc(steps1);
 Goto Edge3;
 Edge2://трассировку начальной ячейки каждого шага последней обрабатываемой строки кроме правого столбца
  dec(steps1);
 TracerY:=y-steps1;
 TracerX:=0;
 p:=@p1;
 Goto Edge4;
 Edge3:
 p:=@p2;
 Edge4:
 until steps=0;
  Biger:=x-stepRare+1;
 steps:=stepsBig;
  altHead:=@altHead2;
   until x<0;/////////////////////////////////////////////////////////////////////////////////////////////////////////////////
inc(y);
yf:=y+1;
p:=@p1;
x:=xRazmerX;
until y>yRazmerY-1;
Edge:=@Edge2;
until y>yRazmerY;
             runTime:=gettickcount64-runTime;
             Label5.Caption:=IntToStr(runTime);
         end;
    begin
 steps1;
end;
end.

 unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Grids, StdCtrls, Math;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
  private
 
  public
 
  end;
 
var
  Form1: TForm1;
 
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);/////////////////////////////////////////////////////////////////////////////////////////////
    procedure steps1;
  var
    Edge,altHead,logic,p:pointer;
    y,x, xf,yf, TracerX, TracerY, steps, stepsInString, stepRare, stepFrequent, stepsBig, StringDivTrunc, StringFinish, StringStart,Punctir, Nechto:integer;
    px,py:^integer;
     Biger, countPix, Ostatok, CaTanDegP, RazmerX, xRazmerX, RazmerY,yRazmerY,bigStep, runTime,steps1:integer;
    CaTanDeg,TanDeg, TracerYDiv, deg:Extended;
    TracBool:boolean;
    //вторичный блок переменных
    StringDiv, StringDiv1:Extended;
    znak:integer;
    label p1,p2,p3,p4;
      label logic1,logic2,logic3,logic4;
            label Edge1, Edge2,Edge3,Edge4;
              label altHead1, altHead2, altHead3;
 //               label alttail1,altTail2;
          procedure Vstavka;
          begin
           //CaTanDegP:=round(CaTanDeg);
           //StringDiv:=RazmerX / (CaTanDeg);
           stepFrequent:=round(CaTanDeg);//кол-во пикселей в частом штрихе
           StringDiv:=frac(CaTanDeg);//выборка дробной части катангенса
           znak:=sign(0.5-StringDiv)*sign(StringDiv);//указывает на увеличение или уменьшение результата суммирования этой дробной части при повторе частых штрихов
           stepsBig:=round(1/StringDiv)+1;//!!!!!!!!увеличил на единицу только потому что в коде применяется только в таком виде
           stepRare:=stepFrequent+znak;//количество пикселей в редком штрихе. промежуточный, пока не нужен.
           bigStep:= stepsBig*stepFrequent;//поправил
           if bigStep=0 then begin
           bigStep:=stepRare;
           stepRare:=0;
 
           end;
           end;
          begin
      deg:= StrToInt(Edit1.Text);
      RazmerX:= StrToInt(Edit2.Text);
      RazmerY:= StrToInt(Edit3.Text);
      StringGrid1.RowCount:= RazmerY+2;  { Установка количества строк компонента StringGrid}
      StringGrid1.ColCount:= RazmerX+2;
         TanDeg := Tan(DegToRad(deg));
         {%REGION 'ttt'}
         if TanDeg = 0 then begin
           CaTanDeg:=RazmerX;
           CaTanDegP:=Trunc(CaTanDeg);
           px:=@x;
           py:=@y;
           StringFinish:=0;
           Ostatok:=0;
           Vstavka;
           end
         else begin
         CaTanDeg:= 1/TanDeg;
         if CaTanDeg>=TanDeg then begin
           px:=@x;
           py:=@y;
           Vstavka;
          if CaTanDegP>28 then CaTanDegP:=27;
           end
         else begin
           px:=@y;
           py:=@x;
           Vstavka;
           if CaTanDegP>28 then CaTanDegP:=27;
            end;
                  end;
         if CaTanDegP=0 then begin
           StringFinish:=0;
           Ostatok:=0;
           end else begin
            StringDivTrunc:=Trunc(RazmerX div CaTanDegP);
          //StringFinish:=28-steps*CaTanDegP;
            Ostatok:=28-StringDivTrunc*CaTanDegP;
 
              end;
            Label1.Caption:=IntToStr(CaTanDegP);
            Label2.Caption:=FloatToStr(StringDiv);
            {%ENDREGION}
 
 x:=RazmerX-1;
 xRazmerX:=x;
 StringStart:=x;
 yRazmerY:=RazmerY-1;
 y:=0;
TracerY:=0;
TracerX:=0;
steps:=0;
logic:=@logic1;
p:=@p1;
Edge:=@Edge1;
steps1:=0;
xf:=0;
yf:=y+1;
// для отладки первой фазы--------------------------------------------------------------------------------------------------------
 runTime:=gettickcount64;
 repeat
 repeat
 asm
jmp logic
end;
 logic1://пропускаем первую строку
 logic:=@logic2;
 goto logic4;
 logic2:
 Edge:=@Edge3;
 logic:=@logic3;
 logic3:
 TracerY:=y-steps1;//расчёт ячейки правого столбца
 TracerX:=0;
 if TracerY<0 then begin
   TracerX:=RazmerX-(stepFrequent*y+znak*trunc(y/(stepsBig)));//
   if TracerX<0 then TracerX:=0;
   TracerY:=0;
 end;
 logic4:
 altHead:=@altHead1;
 steps:=stepsBig;
 Biger:=x-stepFrequent+1;//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    repeat ///////////////////////////////////////////////////////////////////////////////////////
 dec(steps);
 repeat
 asm
 jmp altHead
 end;
 altHead1:
   Biger:=x-stepFrequent+1;
   goto altHead3;
 altHead2:
 Biger:=x-stepRare+1;
 steps:=stepsBig;
 altHead:=@altHead1;
 altHead3:
 if Biger<1 then begin
 Biger:=0;
 steps:=0;
 end;
 repeat
  {%REGION 'Engine'}
  xf:=x+1;//если раскомментироваnm строки После jmp p  то начнётся вывод данных в таблицу
 asm
 jmp p
 end;
 p1:
 //StringGrid1.Cells[xf,yf]:= IntToStr(TracerX)+','+IntToStr(TracerY) +','+'1';//запись правого столбца
 p:=@p3;
 goto p4;
 p2:
 //StringGrid1.Cells[xf,yf]:= IntToStr(xf)+','+IntToStr(yf)+',' +'0';//автоматическое забивание координат в местах скоса трассы
 p:=@p3;
 goto p4;
 p3:
 //StringGrid1.Cells[xf,yf]:= IntToStr(xf)+','+IntToStr(y)+',' +'0';//автоматическое забивание координат трассы на прямых участках
 p4:
 dec(x);
 {%ENDREGION}
 until x<Biger;
 asm
 jmp Edge
 end;
 Edge1://подсчёт шагов в первой строке - других расчётов для первой строки не требуется и знание этого значения нужно для последней строки
 inc(steps1);
 Goto Edge3;
 Edge2://трассировку начальной ячейки каждого шага последней обрабатываемой строки кроме правого столбца
  dec(steps1);
 TracerY:=y-steps1;
 TracerX:=0;
 p:=@p1;
 Goto Edge4;
 Edge3:
 p:=@p2;
 Edge4:
 until steps=0;
 
 
  altHead:=@altHead2;
 
 
   until x<0;/////////////////////////////////////////////////////////////////////////////////////////////////////////////////
inc(y);
yf:=y+1;
p:=@p1;
x:=xRazmerX;
until y>yRazmerY-1;
Edge:=@Edge2;
until y>yRazmerY;
             runTime:=gettickcount64-runTime;
             Label5.Caption:=IntToStr(runTime);
         end;
    begin
 steps1;
end;
end.

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Grids, StdCtrls, Math;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
  private
 
  public
 
  end;
 
var
  Form1: TForm1;
 
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);/////////////////////////////////////////////////////////////////////////////////////////////
    procedure steps1;
  var
    Edge,altHead,logic,p:pointer;
    y,x, xf,yf, TracerX, TracerY, steps, stepsInString, stepRare, stepFrequent, stepsBig, StringDivTrunc, StringFinish, StringStart,Punctir, Nechto:integer;
    px,py:^integer;
     Biger, countPix, Ostatok, CaTanDegP, RazmerX, xRazmerX, RazmerY,yRazmerY,bigStep, runTime,steps1:integer;
    CaTanDeg,TanDeg, TracerYDiv, deg:Extended;
    TracBool:boolean;
    //вторичный блок переменных
    StringDiv, StringDiv1:Extended;
    znak:integer;
    label p1,p2,p3,p4;
      label logic1,logic2,logic3,logic4;
            label Edge1, Edge2,Edge3,Edge4;
              label altHead1, altHead2, altHead3;
 //               label alttail1,altTail2;
          procedure Vstavka;
          begin
           //CaTanDegP:=round(CaTanDeg);
           //StringDiv:=RazmerX / (CaTanDeg);
           stepFrequent:=round(CaTanDeg);//кол-во пикселей в частом штрихе
           StringDiv:=frac(CaTanDeg);//выборка дробной части катангенса
           znak:=sign(0.5-StringDiv)*sign(StringDiv);//указывает на увеличение или уменьшение результата суммирования этой дробной части при повторе частых штрихов
           stepsBig:=round(1/StringDiv);//!!!!!!!!увеличил на единицу только потому что в коде применяется только в таком виде
           stepRare:=stepFrequent+znak;//количество пикселей в редком штрихе. промежуточный, пока не нужен.
           bigStep:= stepsBig*stepFrequent;//поправил
           if bigStep=0 then begin
           bigStep:=stepRare;
           stepRare:=0;
 
           end;
           end;
          begin
      deg:= StrToInt(Edit1.Text);
      RazmerX:= StrToInt(Edit2.Text);
      RazmerY:= StrToInt(Edit3.Text);
      StringGrid1.RowCount:= RazmerY+2;  { Установка количества строк компонента StringGrid}
      StringGrid1.ColCount:= RazmerX+2;
         TanDeg := Tan(DegToRad(deg));
         {%REGION 'ttt'}
         if TanDeg = 0 then begin
           CaTanDeg:=RazmerX;
           CaTanDegP:=Trunc(CaTanDeg);
           px:=@x;
           py:=@y;
           StringFinish:=0;
           Ostatok:=0;
           Vstavka;
           end
         else begin
         CaTanDeg:= 1/TanDeg;
         if CaTanDeg>=TanDeg then begin
           px:=@x;
           py:=@y;
           Vstavka;
          if CaTanDegP>28 then CaTanDegP:=27;
           end
         else begin
           px:=@y;
           py:=@x;
           Vstavka;
           if CaTanDegP>28 then CaTanDegP:=27;
            end;
                  end;
         if CaTanDegP=0 then begin
           StringFinish:=0;
           Ostatok:=0;
           end else begin
            StringDivTrunc:=Trunc(RazmerX div CaTanDegP);
          //StringFinish:=28-steps*CaTanDegP;
            Ostatok:=28-StringDivTrunc*CaTanDegP;
 
              end;
            Label1.Caption:=IntToStr(CaTanDegP);
            Label2.Caption:=FloatToStr(StringDiv);
            {%ENDREGION}
 
 x:=RazmerX-1;
 xRazmerX:=x;
 StringStart:=x;
 yRazmerY:=RazmerY-1;
 y:=0;
TracerY:=0;
TracerX:=0;
steps:=0;
logic:=@logic1;
p:=@p1;
Edge:=@Edge1;
steps1:=0;
xf:=0;
yf:=y+1;
// для отладки первой фазы--------------------------------------------------------------------------------------------------------
 runTime:=gettickcount64;
 repeat
  dec(steps);
 repeat
 asm
jmp logic
end;
 logic1://пропускаем первую строку
 logic:=@logic2;
 goto logic4;
 logic2:
 Edge:=@Edge3;
 logic:=@logic3;
 logic3:
 TracerY:=y-steps1;//расчёт ячейки правого столбца
 TracerX:=0;
 if TracerY<0 then begin
   TracerX:=RazmerX-(stepFrequent*y+znak*trunc(y/(stepsBig+1)));//
   if TracerX<0 then TracerX:=0;
   TracerY:=0;
 end;
 logic4:
 altHead:=@altHead1;
 steps:=stepsBig;
 //Biger:=x-stepFrequent+1;//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    repeat ///////////////////////////////////////////////////////////////////////////////////////
    repeat
    dec(steps);
//  if steps=0 then   altHead:=@altHead2;
 asm
 jmp altHead
 end;
 altHead1:
   Biger:=x-stepFrequent+1;
   goto altHead3;
 altHead2:
 altHead:=@altHead1;
 altHead3:
 if Biger<1 then begin
 Biger:=0;
 steps:=0;
 end;
 repeat
  {%REGION 'Engine'}
  xf:=x+1;//если раскомментироваnm строки После jmp p  то начнётся вывод данных в таблицу
 asm
 jmp p
 end;
 p1:
 StringGrid1.Cells[xf,yf]:= IntToStr(TracerX)+','+IntToStr(TracerY) +','+'1';//запись правого столбца
 p:=@p3;
 goto p4;
 p2:
 StringGrid1.Cells[xf,yf]:= IntToStr(xf)+','+IntToStr(yf)+',' +'0';//автоматическое забивание координат в местах скоса трассы
 p:=@p3;
 goto p4;
 p3:
 StringGrid1.Cells[xf,yf]:= IntToStr(xf)+','+IntToStr(y)+',' +'0';//автоматическое забивание координат трассы на прямых участках
 p4:
 dec(x);
 {%ENDREGION}
 until x<Biger;
 asm
 jmp Edge
 end;
 Edge1://подсчёт шагов в первой строке - других расчётов для первой строки не требуется и знание этого значения нужно для последней строки
 inc(steps1);
 Goto Edge3;
 Edge2://трассировку начальной ячейки каждого шага последней обрабатываемой строки кроме правого столбца
  dec(steps1);
 TracerY:=y-steps1;
 TracerX:=0;
 p:=@p1;
 Goto Edge4;
 Edge3:
 p:=@p2;
 Edge4:
    until steps=0;
    altHead:=@altHead2;
     Biger:=x-stepRare+1;
     steps:=stepsBig;
   until x<0;/////////////////////////////////////////////////////////////////////////////////////////////////////////////////
inc(y);
yf:=y+1;
p:=@p1;
x:=xRazmerX;
until y>yRazmerY-1;
Edge:=@Edge2;
until y>yRazmerY;
             runTime:=gettickcount64-runTime;
             Label5.Caption:=IntToStr(runTime);
         end;
    begin
 steps1;
end;
end.

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Grids, StdCtrls, Math;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
  private
 
  public
 
  end;
 
var
  Form1: TForm1;
 
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);/////////////////////////////////////////////////////////////////////////////////////////////
    procedure steps1;
  var
    Edge,altHead,logic,p:pointer;
    y,x, xf,yf, TracerX, TracerY, steps, stepsInString, stepRare, stepFrequent, stepFrequentD, stepsBig, StringDivTrunc, StringFinish, StringStart,Punctir, Nechto:integer;
    px,py:^integer;
     Biger, countPix, Ostatok, CaTanDegP, RazmerX, xRazmerX, RazmerY,yRazmerY,bigStep, runTime,steps1:integer;
    CaTanDeg,TanDeg, TracerYDiv, deg, stepsBigD:Extended;
    TracBool:boolean;
    //вторичный блок переменных
    StringDiv, StringDiv1:Extended;
    znak:integer;
    label p1,p2,p3,p4;
      label logic1,logic2,logic3,logic4;
            label Edge1, Edge2,Edge3,Edge4;
              label altHead1, altHead2, altHead3;
          procedure Vstavka;
          begin
           //CaTanDegP:=round(CaTanDeg);
           //StringDiv:=RazmerX / (CaTanDeg);
           stepFrequent:=round(CaTanDeg);//кол-во пикселей в частом штрихе
           StringDiv:=frac(CaTanDeg);//выборка дробной части катангенса
           znak:=sign(0.5-StringDiv)*sign(StringDiv);//указывает на увеличение или уменьшение результата суммирования этой дробной части при повторе частых штрихов
           stepsBig:=round(1/StringDiv);//
           stepRare:=stepFrequent+znak;//количество пикселей в редком штрихе. промежуточный, пока не нужен.
           bigStep:= stepsBig*stepFrequent;//поправил
           if bigStep=0 then begin
           bigStep:=stepRare;
           stepRare:=0;
 
           end;
           end;
          begin
      deg:= StrToInt(Edit1.Text);
      RazmerX:= StrToInt(Edit2.Text);
      RazmerY:= StrToInt(Edit3.Text);
      StringGrid1.RowCount:= RazmerY+2;  { Установка количества строк компонента StringGrid}
      StringGrid1.ColCount:= RazmerX+2;
         TanDeg := Tan(DegToRad(deg));
         {%REGION 'ttt'}
         if TanDeg = 0 then begin
           CaTanDeg:=RazmerX;
           CaTanDegP:=Trunc(CaTanDeg);
           px:=@x;
           py:=@y;
           StringFinish:=0;
           Ostatok:=0;
           Vstavka;
           end
         else begin
         CaTanDeg:= 1/TanDeg;
         if CaTanDeg>=TanDeg then begin
           px:=@x;
           py:=@y;
           Vstavka;
          if CaTanDegP>28 then CaTanDegP:=27;
           end
         else begin
           px:=@y;
           py:=@x;
           Vstavka;
           if CaTanDegP>28 then CaTanDegP:=27;
            end;
                  end;
         if CaTanDegP=0 then begin
           StringFinish:=0;
           Ostatok:=0;
           end else begin
            StringDivTrunc:=Trunc(RazmerX div CaTanDegP);
          //StringFinish:=28-steps*CaTanDegP;
            Ostatok:=28-StringDivTrunc*CaTanDegP;
 
              end;
            Label1.Caption:=IntToStr(CaTanDegP);
            Label2.Caption:=FloatToStr(StringDiv);
            {%ENDREGION}
 
 x:=RazmerX-1;
 xRazmerX:=x;
 StringStart:=x;
 yRazmerY:=RazmerY-1;
 y:=0;
TracerY:=0;
TracerX:=0;
steps:=0;
logic:=@logic1;
p:=@p1;
Edge:=@Edge1;
steps1:=0;
xf:=0;
yf:=y+1;
stepFrequentD:=stepFrequent;
stepsBigD:=1/(stepsBig+1);
// для отладки первой фазы--------------------------------------------------------------------------------------------------------
 runTime:=gettickcount64;
 repeat
  dec(steps);
 repeat
 asm
jmp logic
end;
 logic1://пропускаем первую строку
 logic:=@logic2;
 goto logic4;
 logic2:
 Edge:=@Edge3;
 logic:=@logic3;
 logic3:
 TracerY:=y-steps1;//расчёт ячейки правого столбца
 TracerX:=0;
 if TracerY<0 then begin
   TracerX:=RazmerX-(stepFrequentD+znak*trunc(stepsBigD));//
    stepFrequentD:=stepFrequentD+stepFrequentD;
 stepsBigD:=stepsBigD+stepsBigD;
   if TracerX<0 then TracerX:=0;
   TracerY:=0;
 end;
 logic4:
 altHead:=@altHead1;
 steps:=stepsBig;
    repeat
    repeat
    dec(steps);
 asm
 jmp altHead
 end;
 altHead1:
   Biger:=x-stepFrequent+1;
   goto altHead3;
 altHead2:
 altHead:=@altHead1;
 altHead3:
 if Biger<1 then begin
 Biger:=0;
 steps:=0;
 end;
 repeat
  {%REGION 'Engine'}
  xf:=x+1;//если раскомментироваnm строки После jmp p  то начнётся вывод данных в таблицу
 asm
 jmp p
 end;
 p1:
 StringGrid1.Cells[xf,yf]:= IntToStr(TracerX)+','+IntToStr(TracerY) +','+'1';//запись правого столбца
 p:=@p3;
 goto p4;
 p2:
 StringGrid1.Cells[xf,yf]:= IntToStr(xf)+','+IntToStr(yf)+',' +'0';//автоматическое забивание координат в местах скоса трассы
 p:=@p3;
 goto p4;
 p3:
 StringGrid1.Cells[xf,yf]:= IntToStr(xf)+','+IntToStr(y)+',' +'0';//автоматическое забивание координат трассы на прямых участках
 p4:
 dec(x);
 {%ENDREGION}
 until x<Biger;
 asm
 jmp Edge
 end;
 Edge1://подсчёт шагов в первой строке - других расчётов для первой строки не требуется и знание этого значения нужно для последней строки
 inc(steps1);
 Goto Edge3;
 Edge2://трассировку начальной ячейки каждого шага последней обрабатываемой строки кроме правого столбца
  dec(steps1);
 TracerY:=y-steps1;
 TracerX:=0;
 p:=@p1;
 Goto Edge4;
 Edge3:
 p:=@p2;
 Edge4:
    until steps=0;
    altHead:=@altHead2;
     Biger:=x-stepRare+1;
     steps:=stepsBig;
   until x<0;/////////////////////////////////////////////////////////////////////////////////////////////////////////////////
inc(y);
yf:=y+1;
p:=@p1;
x:=xRazmerX;
until y>yRazmerY-1;
Edge:=@Edge2;
until y>yRazmerY;
             runTime:=gettickcount64-runTime;
             Label5.Caption:=IntToStr(runTime);
         end;
    begin
 steps1;
end;
end.