Измените значения указанных свойств формы :

• Caption =арифметический калькулятор
• Position = poScreenCenter
• Color = clMenu
• Height= 155
• Width =325
• Border Style = bsToolWindow  (невозможность изменения размеров формы пользователем)  
• Кнопки окна формы  - BorderIcons=[biSystemMenu,biMinimize]

В  этой  строке  указано  имя  одной  переменной  Forml  типа TForm.  Эта  переменная  соответствует  форме,  которая  используется  в  проекте. В этой строке указываются имена и типы тех переменных, которые являются  доступными  в  любой  части  программы.  Такие  переменные  называются  глобальными.  В  отличие  от  глобальных  переменных,  те  переменные,  имена  и  типы  которых  объявлены  в  строке  заголовка  процедуры  и в  строке  var  в  тексте  определенной  процедуры,  доступны  только  командам этой  процедуры.  Такие  переменные  называются  локальными.

1. Объектам,  которые  мы  размещаем  на  форме,  также  соответствуют  переменные,  имена  которых  совпадают  с  именами  соответствующих  объектов,  например  Buttonl,  Editl.
    
2.  Каждая  из  этих  переменных  тоже  имеет свой  тип,  например  переменная  Buttonl  имеет  тип  TButton,  а  переменная Editl  -  тип  TEdit.
3.  Имена  и  типы  этих  переменных  среда  разработки  вносит в текст проекта автоматически в раздел type (англ. type -тип)

Вариант 1

procedure TForm1.Button1Click(Sender: TObject);
   var a, b,s,p,d,r: real; // объявление локальных переменных
begin
  a:=strtofloat(edit1.text);
  b:=strtofloat(edit2.text);
  s:= a + b;
  label4.Caption:= floattostr(s);
end;

procedure TForm1.Button2Click(Sender: TObject);
   var a, b,s,p,d,r: real; // объявление локальных переменных
   begin
      a:=strtofloat(edit1.text);
     b:=strtofloat(edit2.text);
     r:= a - b;
     label4.Caption:= floattostr(r);
end;

procedure TForm1.Button3Click(Sender: TObject);
var a, b,s,p,d,r: real; // объявление локальных переменных
begin
   a:=strtofloat(edit1.text);
  b:=strtofloat(edit2.text);
  p:= a * b;
  label4.Caption:= floattostr(p);
end;

procedure TForm1.Button4Click(Sender: TObject);
var a, b,s,p,d,r: real; // объявление локальных переменных
begin
  a:=strtofloat(edit1.text);
  b:=strtofloat(edit2.text);
  if b <> 0  then
            begin
               d:= a / b;
                label4.Caption:= floattostrF(d,ffFixed,5,2);
                 label5.Caption:= floattostr(d); //для наглядности выполним вывод без использования формата
           end
             else  label4.Caption:='деление на ноль недопустимо' ;

end;

var
  Form1: TForm1;
   var a, b,s,p,d,r: real; //переводим локальные переменные в статус глобальных переменных
implementation
{$R *.lfm}
{ TForm1 }        

  Вариант 2

procedure TForm1.Button1Click(Sender: TObject);
begin
  a:=strtofloat(edit1.text);
  b:=strtofloat(edit2.text);
  s:= a + b;
  label4.Caption:= floattostr(s);
end;

procedure TForm1.Button2Click(Sender: TObject);
 begin
      a:=strtofloat(edit1.text);
     b:=strtofloat(edit2.text);
     r:= a - b;
     label4.Caption:= floattostr(r);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  a:=strtofloat(edit1.text);
  b:=strtofloat(edit2.text);
  p:= a * b;
  label4.Caption:= floattostr(p);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  a:=strtofloat(edit1.text);
  b:=strtofloat(edit2.text);
  if b <> 0  then
      begin
          d:= a / b;
          label4.Caption:= floattostrF(d,ffFixed,5,2);
           label5.Caption:= floattostr(d);
    end
                 else  label4.Caption:='деление на ноль недопустимо' ;
end;