Округление значений в Memo

[.FROST.]

Здравствуйте, не могу разобраться, как округлить получившиеся значения. Вроде просто, если округляются числовые типы данных, и мне нужно округлить числа в строках Мемо, чтобы не было такого:

4.0E+0000    3.0E+0000   -1.0E+0000   
 0.0E+0000    4.8E+0000    1.3E+0000   
 0.0E+0000    0.0E+0000    7.5E+0000

Пробовал переводить 's' в Float, округлять, а потом опять в строку, но отладчик ругается, мол 4.8E+0000, например, is not a valid floating point value. Кучу методов округления перебрал, все равно такая ошибка. подскажите, если знаете.

Memo1.Font.Name:='Courier New';
Memo1.Lines.Add('Новая матрицаÍ');
for i:=0 to n-1 do
 begin
  s:='';
  for j:=0 to n-1 do
   begin
   a[i,j]:=strtofloat(StringGrid2.Cells[j,i]);
    str(a[i,j]:2,s1);
    s:=s+s1+'  ';
   end;
   Memo1.Lines.Add(s);
 end;
 end;
end;

[Аватар]

Небось strtofloat ругается на десятичную точку и очень хочет, что бы там запятая стояла

[.FROST.]

Понял свою ошибку.

[eval]

вряд ли .

[.FROST.]

Если всё работает, то да, вряд ли.

[eval]

смени локаль на машине и перестанет работать, а прога то как была так и осталась, так что как ли или не ли?