label1.caption := FloatToStr(StrToFloat(Edit1.text)-StrToFloat(edit2.Text));