Функция StrtoFloat не правильно возвращает число

[Ra88it]

Значит из файла считывается строка и преобразуется в вещественное число

...
const
IFC1='C:\C1.txt';
IFC1='C:\C1.txt';
var
fl:TextFile;
stroka:string;
C1,C2:Single;

begin

DecimalSeparator = '.';

C1:=0;
C2:=0;

// C1
AssignFile(fl,IFC1);
Reset(fl);
Readln(fl, stroka);
if Length(stroka)<>0 then C1:=StrToFloat(stroka) else C1:=1;
CloseFile(fl);

// C2
AssignFile(fl,IFC2);
Reset(fl);
Readln(fl, stroka);
if Length(stroka)<>0 then C2:=StrToFloat(stroka) else C2:=1;
CloseFile(fl);
...
end;

файлы C1.txt и C2.txt содержат по одной строке C1.txt -- '0.6', C2.txt -- '0.5'

Результат: C1 = 0.600000023841858, C2 = 0.5.

Не пойму в чем может быть дело %) ?

[madmot]

все ок, используй для вывода format, это машинка так считает

[Ra88it]

Не знаю нормально ли ето, но три трассировке тож показывает не правильно...