Procedure......

Var a, b, p, s: real;

Begin

edit1.text:= strtofloat(a);

edit2.text:= strtofloat(b);

p:= (a+b) *2;

s:= a*b;

edit3.text:= floattostr(p);

edit4.text:= floattostr(s);

end;