знайти периметр прямокутника якщо дано дві сторони цілі числа що вводяться в текстових полях edit1 і edit2 значення периметра вивести в текстове поле edit 3

В Form1 , создаете 7 объектов, (Edit1,Edit2,Edit3,Label1,Label2,Label3,Button1),2 кликк по кнопке (button1)
в созданную процедуру вставляйте код:
procedure TForm1.Button1Click(Sender: TObject);var a,b:integer;begin  a:=StrToInt(Edit1.Text);  b:=StrToInt(Edit2.Text);  Edit3.Text:= IntToStr((a+b)*2)end;

1. procedure TForm1.Button1Click(Sender: TObject);
   var a,b:integer;
   begin
   a:=StrToInt(Edit1.Text);
   b:=StrToInt(Edit2.Text);
   Edit3.Text:= IntToStr((a+b)*2)
   end;