Matematik i delphi

Hej

Jeg har følgende kode som giver fejl...

var
fre, hen, xl, U, I, M, Z, RI, IR, UR: double;
begin

if inthen.Text <> '' then begin
  if intfre.Text <> '' then begin
  fre := StrToInt(intfre.text);

  xl := 2*3.14*fre*StrToFloat(inthen.text);

  intxl.Text := FloatToStr(xl);
  end
  else if intxl.Text <> '' then begin
  fre := StrToFloat(intxl.text) / (2*3.14*StrToFloat(inthen.text));
  intfre.Text := FloatToStr(fre);
  end;
end;

Den skriver at talet i "intxl.text" (15,7) "is not a valid floating point"..

Hvorfor gør den det??