Непонятки со String

d:=d+1;

procedure TForm1.Button1Click(Sender: TObject);
type
  varOperat =(Plus,Minus,Mult,Divide,None);
var gama,ga,ga2,ga3:string;
    leto,i,j,k,k1,g,warning,warningHigh,dec1,dec2,dec3,dec4,dec5:integer;
    k2,k3,k4:Byte;
    Operat:varOperat;
    C,C1,Csp,Csp2:char;
    R,R1,R2,R3:real;
 
procedure AlphaA;                       {ПРОЦЕДУРА АЛЬФА. НАЧАЛО}
var i,j:integer;
begin
  dec1:=0; {Поиск знака + - * /. Начало}
  For j:=1 to leto do
    begin
      if (gama[j]='+') then Csp:=gama[j];
      if (gama[j]='-') then Csp:=gama[j];
      if (gama[j]='*') then Csp:=gama[j];
      if (gama[j]='/') then Csp:=gama[j];
      if (gama[j]='+') or (gama[j]='-') or (gama[j]='*') or (gama[j]='/')  then
        begin
          dec1:=j;
          break;
        end;
    end; {Поиск знака + - * /. Конец "dec1" - позиция}
 
{Определение числа слева\справа от знака. Начало}
  R1:=0;
  R2:=0;
  dec1:=dec1-1;
  ga:=copy(gama,1,dec1);
  R1:=(StrToFloat(ga));
  dec2:=dec1+2;
  k:=0;
  k1:=0;
  For J:= dec2 to leto do
    if (gama[j]='+') or (gama[j]='-') or (gama[j]='*') or (gama[j]='/')  then
      begin
        dec3:=j;
        break;
      end;
  For J:= dec2 to leto do
    begin
      k:=k+1;
      if (gama[j]='+') or (gama[j]='-') or (gama[j]='*') or (gama[j]='/') then
        begin
          g:=j;
          k1:=1;
          break;
        end;
    end;
  if k1 = 1 then k:=k-1;
  ga:=copy(gama,dec2,k);
  R2:=(StrToFloat(ga));
{Определение числа слева\справа от знака. Конец}
{Выполнение арифметической операции. Начало}
  If Csp = '+' then R:=R1+R2;
  If Csp = '-' then R:=R1-R2;
  If Csp = '*' then R:=R1*R2; If Csp = '/' then R:=R1/R2;
{Выполнение арифметической операции. Конец}
{Выполнение изменений гамы. Начало}
  gama:=copy(gama,g,leto);
  ga:=FloatToStr(R);
  gama:=ga+gama;
{Выполнение изменений гамы. Конец}
end;      {ПРОЦЕДУРА АЛЬФА. КОНЕЦ}
 
begin        {НАЧАЛО ПРОЦЕДУРЫ НАЖАТИЯ КНОПКИ}
  gama:=edit1.Text;  {формула}
  leto:=(length(gama)); {длина ф-лы}
  warning:=0; {Определение количества цыклов операционирования. Начало "leto" - количество}
  For i:=1 to leto do
    begin
      c:=gama[i];
      if (c='+') or (c='-') or (c='*') or (c='/') then warning:=warning+1;
    end; {Определение количества цыклов операционирования. Конец}
  For i:=1 to warning do
    begin {Тело главного кода. Начало}
      dec1:=0; {Поиск знака + - * /. Начало}
      For j:=1 to leto do
        begin
          if (gama[j]='+') then Csp:=gama[j];
          if (gama[j]='-') then Csp:=gama[j];
          if (gama[j]='*') then Csp:=gama[j];
          if (gama[j]='/') then Csp:=gama[j];
          if (gama[j]='+') or (gama[j]='-') or (gama[j]='*') or (gama[j]='/')  then
            begin
              dec1:=j;
              break;
            end;
        end;     {Поиск знака + - * /. Конец "dec1" - позиция}
{Обработка правил умножения. Начало.}
    k4:=0;
    k2:=0;
    k3:=0;
    if (Csp = '+') or (Csp = '-') then
      begin
        dec5:=dec1+1;
        for j:=dec5 to leto do
          begin
            if (gama[j]='*') or (gama[j]='/') then k2:=1;
            if (gama[j]='+') or (gama[j]='-') then k3:=1;
            if k2>k3 then
              begin
                k4:=1;
                break;
              end;
          end;
      end;
    if k4=1 then
      begin  {Изменения над гамой до Альфы. Начало}
        ga2:=copy(gama,1,dec1);
        dec4:=dec1+1;
        ga3:=copy(gama,dec4,leto);
        gama:=ga3;
        Edit4.Text:=ga2;
        Label3.Caption:=inttostr(dec1);
        Label4.Caption:=inttostr(dec4);
        Edit3.Text:=gama;
      end;
    Edit2.Text:=gama;
{Изменения над гамой до Альфы. Конец}
{Обработка правил умножения. Конец. "к4" применять протокол "1"}
    alphaA;  {Процедура Альфа}
{Изменения над гамой после Альфы. Начало}
    gama:=ga2+gama;
{Изменения над гамой после Альфы. Конец}
  end; {Тело главного кода. Конец}
  Edit5.Text:=floattostr(R);
end;
 
end.