Var
Valor1,Valor2,Total : double;
Begin
Valor1:= StrtoFloat(edit1.text);
Valor2:= strtoFloat(edit2.text);
total:= Valor1 + Valor2;
Label1.caption := Floattostr(Total);
end;