sqr показывает неверно

[Ragnarek45]

procedure TForm1.Button1Click(Sender: TObject);
var
x1,x2,xsr,xsr1,xsr2,s:extended;
begin
if edit1.Text<>'' then
  if edit2.text<>'' then
begin
i:=i+1;
table.Cells[0,i]:=inttostr(i);
table.Cells[1,i]:=(Edit1.Text);
table.Cells[2,i]:=(Edit2.Text);
x1:=strtofloat(table.Cells[1,i]);
x2:=strtofloat(table.Cells[2,i]);
xsr:=(x1+x2)/2;
table.Cells[3,i]:=floattostr(xsr);
xsr1:=sqr(x1-xsr);
table.Cells[4,i]:=floattostr(xsr1);

функция sqr при разнице в значениях х1 и х2 в 0,01 возвращает значение в виде 2,5E -5. Можно ли решить эту проблему как нибудь?

[Stilet]

table.Cells[4,i]:=format('%2.3f',[xsr1]);

Юзай.

[Ragnarek45]

О! =) Благодарю. Теперь проблема с sqrt. =( пойду новую тему открывать

[InternetStranger]

Как вариант предложу FloatToStrF:

table.Cells[4,i]:= FloatToStrF(xsr1, ffFixed, 3,2);