[Professor Farnsworth]

Сообщение от Horror

а здесь если ничего не вводить в Edit1 то будет выдавать ошибку (is not a valid floating point value)

Конечно будет Это уже детали

Код:

if edit.text<>'' then
begin
  s:=s+StrToFloat(edit1.text);
  ST:= FloatToStr(s);
  STR(S:12:2, st);
  Label6.Caption:= 'Сумма заказа составляет  '+ st+'р.';
  Label6.Visible:= True;
end
else 
begin
  ST:= FloatToStr(s);
  STR(S:12:2, st);
  Label6.Caption:= 'Сумма заказа составляет  '+ st+'р.';
  Label6.Visible:= True;
end;