[Aristarh Dark]

Код:

procedure TForm6.RavnoClick(Sender: TObject);
begin
  case mode of
    2:begin
        b:=StrToFloat(edit1.Text);
        c:=a+b;
        Edit1.Text:=FloatToStr(c);
      end;
    3:begin
        b:=StrToFloat(edit1.Text);
        c:=a-b;
        Edit1.Text:=FloatToStr(c);
       end;
    4:begin
        b:=StrToFloat(edit1.Text);
        c:=a/b;
        Edit1.Text:=FloatToStr(c);
       end;
    5:begin
        b:=StrToFloat(edit1.Text);
        c:=a/b;
        Edit1.Text:=FloatToStr(c);
       end;
  end; //Этот end заверщает оператор case ... of ... end;
end;  //Этот end добавил я, он завершает процедуру

Видимо эта ошибка.

ЗЫЖ Я подправил твое сообщение, но на будущее, для кода есть специальный тег