Почему не компилируется код?

[subsonic]

public
    book,ini:tinifile;
     cen,list:textfile; c,l:string;
     censh,col,sum:real;
  end;

.............................

procedure TForm1.FormCreate(Sender: TObject);
   var i:integer;
begin
ini:=TIniFile.Create('c:\ini.ini');
assignfile(list,'c:\list.txt');
assignfile(cen,'c:\cen.txt');
reset(list); reset(cen);
for i:=1 to 18 do
begin
Readln(list,l);
Readln(cen,c);
ini.Writestring('a',l,c);
end;
CloseFile(list); CloseFile(cen);
ini.free;
end;

procedure TForm1.Button1Click(Sender: TObject);
  var q:integer; s:string;
begin
assignfile(cen,'c:\cen.txt');
reset(cen);
for q:=1 to 18 do
  begin
  Readln(cen,s);
  sum:=strtofloat(edit1.Text)*strtofloat(s);
  edit2.Text:=floattostr(sum);
  end;
closefile(cen);
end;

точнее компилируеться, но по событию кнопки, говорит: ненравиться дробное число.

[mihali4]

А какой разделитель вводится в дробном числе?
Точка или запятая?
А в системе что установлено?
Точка или запятая?

[subsonic]

Спасибо. Уже разобрался.