[artemavd]

Thrasher, спасибо). С точкой мы разобрались. А почему если я меняю это код:

Код:

 var
  f1,k1,a1,b1,c1,d1: real;
begin
DecimalSeparator:=','; 
 a1:=StrToFloat(Edit1.Text);
b1:=StrToFloat(Edit2.Text);
c1:=StrToFloat(Edit3.Text);
d1:=StrToFloat(Edit4.Text);
  k1:=(a1+b1+c1+d1);
      f1:=(2* a1+3* b1+4* c1+5* d1)/k1;
DecimalSeparator:='.'; 
       label1.Caption:=FloatToStrF(f1,ffFixed,1,1);

и другие подобные ему на вот так:

Код:

var
  f1,k1,a1,b1,c1,d1: integer;
begin
DecimalSeparator:=','; 
 a1:=StrToInt(Edit1.Text);
b1:=StrToInt(Edit2.Text);
c1:=StrToInt(Edit3.Text);
d1:=StrToInt(Edit4.Text);
  k1:=(a1+b1+c1+d1);
      f1:=(2* a1+3* b1+4* c1+5* d1)/k1;
DecimalSeparator:='.'; 
       label1.Caption:=FloatToStrF(f1,ffFixed,1,1);

то у меня при рассчете суммы в таблицы выдается ошибкка: "3.5 is not valid floating value". Почему?)