res:=(StrToFloat(Edit1.Text)+StrToFloat(Edit2.Text)+StrToFloat(Edit3.Caption))/StrToFloat(Edit4.Text); Edit5.Text:=FloatToStr(res);