procedure TForm1.Button1Click(Sender: TObject);
function Perimetr(a1,b1,h1,a2,b2,h2:real):real;
begin
  Perimetr:=2*(sqrt(sqr((b1-a1)/2)+sqr(h1)))+a1+b1+
  2*(sqrt(sqr((b2-a2)/2)+sqr(h2)))+a2+b2;
end;
 
var
  a1,b1,h1,a2,b2,h2:real;
begin
  a1:=StrToInt(Edit1.Text);
  b1:=StrToInt(Edit2.Text);
  h1:=StrToInt(Edit3.Text);
  a2:=StrToInt(Edit4.Text);
  b2:=StrToInt(Edit5.Text);
  h2:=StrToInt(Edit6.Text);
 
  Label1.Caption:='Perimtr='+FloatToStrF(Perimetr(a1,b1,h1,a2,b2,h2),ffFixed,5,2);
end;