Применить Format и итогу сложения нескольких Edit

[Gover]

Сегодня провозился больше половины дня в поисках ответа на сабж.
Никак не получается реализовать.
Результат умножения форматируется, а результат сложения не хочет
Вот картинка для нагладности:

Если я начинаю форматировать результат то получаю ошибку.
Может я с преобразованием форматов разобраться не могу, а может еще его...
Буду признателен за подсказки.

[Stilet]

А код где? Как форматируешь?

[Gover]

Вот моя процедурка на один из эдитов

procedure TZagruzForm.Edit3Change(Sender: TObject);
var
  a,b,c: Real;
  z: Integer;
  //d,e: string;
  Ini: Tinifile;
begin
  a := StrToFloat(Edit2.Text);
  b := StrToFloatDef(Edit3.Text, 0);
  c := a*b;
  Edit4.Text:=Format('%0.0n', [c]);

  Ini := TiniFile.Create(extractfilepath(paramstr(0)) + 'config.ini');
  z := StrToInt(Ini.ReadString('MAIN', 'MaxKup', ''));
  if b > z then begin
      ShowMessage('Столько купюр в кассету не влезет!');
      Edit3.Text := '0';
    end;

  if Label18.Caption = 'G' then begin
      Edit18.Text := FloatToStr(StrToFloatDef(Edit2.Text,0)*StrToFloatDef(Edit3.Text,0));
      //d:=FloatToStr(StrToFloat(edit18.text));
      //Edit18.Text := Format('%0.0n', [d]);
      Edit17.Text := FloatToStr(StrToFloatDef(Edit6.Text,0)*StrToFloatDef(Edit7.Text,0)+ StrToFloatDef(Edit10.Text,0)*StrToFloatDef(Edit11.Text,0)+ 
StrToFloatDef(Edit14.Text,0)*StrToFloatDef(Edit15.Text,0));
      //e:=FloatToStr(StrToFloat(edit17.text));
      //Edit17.Text := Format('%0.0n', [e]);
    end
  else begin
      Edit18.Text := FloatToStr(0);
      Edit17.Text := FloatToStr(StrToFloatDef(Edit2.Text,0)*StrToFloatDef(Edit3.Text,0)+ StrToFloatDef(Edit6.Text,0)*StrToFloatDef(Edit7.Text,0)+ 
StrToFloatDef(Edit10.Text,0)*StrToFloatDef(Edit11.Text,0)+ StrToFloatDef(Edit14.Text,0)*StrToFloatDef(Edit15.Text,0));
    end;
end;