При измимении Button возникает ошибка с CheckBox

[Саня_]

у меня есть

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
stepen:=stepen+1;
if stepen mod 2=1 then Edit2.Visible:=true
                  else Edit2.Visible:=False;

Суть проблемы в том, что когда я меняю

procedure TForm1.Button17Click(Sender: TObject);
begin
a1:=strtofloat(Edit1.Text);
b1:=strtofloat(Edit2.Text);
c:=floattostr(exp(Ln(a1)*b1));
Edit1.Text:=c;
end;

на

procedure TForm1.Button17Click(Sender: TObject); {x^y}
Var g:integer;
plus,minus,ymnojit,delit,odin,dva:string;
begin
a1:=strtofloat(Edit1.Text);
a:=Edit2.Text;
b:='';
plus:='+';
minus:='-';
ymnojit:='*';
delit:='/';
g:=1;
 while g<length(a) do
  while (a[g]<>plus) do
   begin
    b:=b+a[g];
    g:=g+1;
    odin:=b;
    Memo1.Lines.Add(odin);
   end;
  end;
 end.
Delete(a,1,g);
Dva:=a;
Memo1.Lines.Add(dva);
end;

выделяется красным procedure CheckBox1Click(Sender: TObject); в стиске type и ещё при двойном нажатии на CheckBox1 на форме пишет "Cannot find implementation of method CheckBox1Click"

Что я сделал не так?

[Alex2391]

Смущает, что

Delete(a,1,g);
Dva:=a;
Memo1.Lines.Add(dva);
end;

стоит после

 end.

Это должно находиться в процедуре.

[Саня_]

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

Смущает, что

Delete(a,1,g);
Dva:=a;
Memo1.Lines.Add(dva);
end;

стоит после

 end.

Это должно находиться в процедуре.

спасибо) это не то, но натолкнуло на мысль и я исправил ошибки))

[Человек_Борща]

 end.

Этого вообще недолжно хадодиться ни в еначале ни к конце процедур/фенкций. Это должно находится только в конце pas файла.

И означает оно конец файла. В вашем случае метод не закрыт, и завершается концом файла. Что есть ошибка.

[evg_m]

 while g<length(a) do
  while (a[g]<>plus) do
   begin
    b:=b+a[g];
    g:=g+1;
    odin:=b;
    Memo1.Lines.Add(odin);
   end;
  end;
 end.

число begin <> число end