Проблема с появлением чисел в StringGrid!

[sasptb]

Здавствуйте!
я задан массив и их значения x[0]...x[100] где x[i+1]:=x[i]+0.05
при получении x[74]...x[100] не правильно было.Посмотрите код и результат и помогите мне пожалуйста!

procedure TForm1.Button1Click(Sender: TObject);
var x:array[0..1000] of real;
i:integer;
begin
x[0]:=0;
for i:=1 to 100 do
begin
x[i]:= x[i-1]+ 0.05;
stringgrid1.Cells[1,i]:=inttostr(i);
stringgrid1.Cells[2,i]:=floattostr(x[i]);
end;
stringgrid1.Cells[1,0]:='i';
stringgrid1.Cells[2,0]:='x[i]';
end;

[SERG1980]

procedure TForm1.Button1Click(Sender: TObject);
var x:array[0..1000] of real;
  i:integer;
begin
 x[0]:=0;
for i:=1 to 100 do
begin
x[i]:= x[i-1]+ 0.05;
   stringgrid1.Cells[1,i]:=inttostr(i);
   stringgrid1.Cells[2,i]:=formatfloat('0.00',x[i]);
 end;
  stringgrid1.Cells[1,0]:='i';
  stringgrid1.Cells[2,0]:='x[i]';
  edit1.Text:=floattostr(x[80]);
 end;

[sasptb]

@SERG1980:Спасибо SERG1980!Но Если так делал то только x[i] в формате '0.00',а почему значение x[i] в этом случае :x[74]...x[100] не правильно получилось.

[A-IX-2]

Хз почему, но так работает. Наверно округляются числа.

for i:=1 to 100 do
begin
x[i]:= x[i-1]+ 0.05;
   stringgrid1.Cells[1,i]:=inttostr(i);
   stringgrid1.Cells[2,i]:=formatfloat('0.###',x[i]);
 end;
  stringgrid1.Cells[1,0]:='i';
  stringgrid1.Cells[2,0]:='x[i]';
  edit1.Text:=formatfloat('0.###',x[80]);

[sasptb]

Знаете ли Вы как получить значения x[i] правильны?Я так делал:
x[i]:=strtofloat(formatfloat('0.###',x[i]));
но это не очень хорошо,потому что нам не известно что десятичный раздел числа включает сколько шифр.(h=0.05,h=0.005,h=0.000005...)