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;