Edit2.Text := 0.5; // Цена по умолчанию Edit3.Text := FloatToStr(StrToFloat(Edit1.Text) * StrToFloat(Edit2.Text));