Единождое выполнение оператора в теле цикла, или виртуальный конвейер

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;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
  private
 
  public
 
  end;
 
var
  Form1: TForm1;
     type
  tracerRec = record
  ix:integer;
  yg:integer;
  bool:boolean;
end;
  var
    TtracerRec:tracerRec;
    Tracersloi: array of array of array of tracerRec;
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
    procedure Step1;
  var
    p:pointer;
    y,step,stepF,s,x, sl, fi1, fi, ri1, BasiY, MyCount:integer;
    px,py:^integer;
     FcountPix, countPix, FcountPix1, CaTanDegP:integer;
    CaTanDeg,TanDeg, deg:Extended;
    label l1,l2;
    begin
 
//      power:=TrackBar1.Position;
      sl:= StrToInt(Edit1.Text);
 //     SetLength(Tracersloi, sl, 28, 28);
      deg := (45 div sl)+1;
      for s:=0 to  1 do begin  //sl+1
        CaTanDegP:=0;
         TanDeg := Tan(DegToRad(s*deg ));
         if TanDeg = 0 then begin
           CaTanDeg:=27;
           px:=@x;
           py:=@y;
           FcountPix:=0;
           FcountPix1:=0;
           end
         else begin
         CaTanDeg:= 1/TanDeg;
 
         if CaTanDeg>=TanDeg then begin
           px:=@x;
           py:=@y;
          CaTanDegP:=Trunc(CaTanDeg);
          if CaTanDegP>28 then CaTanDegP:=27;
           end
         else begin
           px:=@y;
           py:=@x;
           CaTanDegP:=Trunc(TanDeg);
           if CaTanDegP>28 then CaTanDegP:=27;
            end;
                  end; //------------------------
         //CaTanDegP:= Trunc(CaTanDeg);
         if CaTanDegP=0 then begin
           fi:=0;
           FcountPix:=0;
           FcountPix1:=0;
           end else begin
            fi:=Trunc(28 div CaTanDegP);
            FcountPix:=CaTanDegP;
            FcountPix1:=27-fi*CaTanDegP; /////             FcountPix1:=28-fi*CaTanDegP; !!!!!!!!!!!!!!!!!!!
 
              end;
 
            stepF:=fi;
            fi1:= 28+fi;///////////////////////////////////
            BasiY:=0;
            repeat
            y:=BasiY;// тут начинается чтение ячеек
            step:=0;
            TtracerRec.bool:=true;
            p:=@l1;
            repeat
            x:=27;
            if BasiY>27 then  begin
            step:= fi1-BasiY;
            x:=27-(step*FcountPix);
            y:=BasiY-step;
            end;
            ri1:=BasiY-fi;
            if (FcountPix1>=1) then begin
            ri1:=ri1-1;
            stepF:=fi;
            end;
            if ri1<0 then begin
            step:=0-ri1;
            end;
            TtracerRec.yg:=y;
            countPix:=0;
            TtracerRec.ix:=x;
            MyCount:=0;
            repeat
            inc(MyCount);
            StringGrid1.Cells[1+px^,1+py^]:= IntToStr(TtracerRec.ix)+','+IntToStr(TtracerRec.yg) +','+BoolToStr(TtracerRec.bool, '1', '0');
            dec(x);
 //           Tracersloi[s,px^,pi1^]:=TtracerRec;
 //           StringGrid1.Cells[1+px^,1+pi1^]:= IntToStr(pi^)+','+IntToStr(pi1^);
            TtracerRec.ix:=x;
            asm
            jmp p
            end;
            l1:
            TtracerRec.bool:=false;
            p:=@l2;
            l2:
            until FcountPix > x;
            dec(y);
            inc(step);
            until (27-step*CaTanDegP>x);//////////////////////////////////////тут должен быть выход по иксу
            if FcountPix1>0 then begin
            //dec(i1); // вставка
            countPix:=0;
            TtracerRec.ix:=x;
            TtracerRec.yg:=y;
            while countPix < FcountPix1 do begin
            StringGrid1.Cells[1+px^,1+py^]:= IntToStr(TtracerRec.ix)+','+IntToStr(TtracerRec.yg) +','+BoolToStr(TtracerRec.bool, '1', '0');
            dec(x);
            inc(countPix);
   //         Tracersloi[pi^,pi1^,sl]:=TtracerRec;
            TtracerRec.ix:=x;
            end;
       end;
            //inc(TtracerRec.ix);
            //inc(x);
            ////inc(TtracerRec.yg);
            ////inc(y);
            //StringGrid1.Cells[1+px^,1+py^]:= IntToStr(TtracerRec.ix)+','+IntToStr(TtracerRec.yg) +','+BoolToStr(TtracerRec.bool, '1', '0');
            //dec(y);
            inc(BasiY);
            //dec(i1); // вставка
            until BasiY=fi1;
         end;
      end;
    begin
 Step1;
end;
 
end.