Parayı çarpma ve toplama işlemi

[meko]

     Items.BeginUpdate;
    try
      for I := Items.Count - 1 downto 0 do
      begin
        Fiyat := StrToFloat(NoktaConvert(Items[I].SubItems[2]));
        Adet := StrToFloat(Items[I].SubItems[3]);

//         Items[I].SubItems[4] := FloatToStr(Fiyat * Adet);  // eski hali
          Items[I].SubItems[4] := formatfloat('###.##0,000',Fiyat * Adet); //deneme hali
      end;
    finally
      Items.EndUpdate;
    end;

binlik ayıracı = . (nokta)
ondalık ayıracı = , (virgül)
kodu bir de böyle deneyin