[flips]

Что нужно дописать чтобы в Memo выводило количество знаков после запятой согласно введенному eps?
Вот код программы:

Код:

procedure TfrmWhileRepeat.Button2Click(Sender: TObject);
 var u,sum,eps:real; i:integer; s:string;
begin
  Memo1.Clear;
  eps:=strtofloat(edtEps2.Text);
  u:=1/2;
  sum:=2+1/2;
  i:=1;
  while u>eps do
  begin
   i:=i+1;
   u:=u/(i+1);
   sum:=sum+u;
   if CheckSteps.Checked then
    begin
     s:=format('%10.7f %10.7f',[u,sum]);
     Memo1.Lines.Add(s);
    end;
   end;
   edtResult2.Text:=floattostr(sum);
   edtControl2.Text:=floattostr(exp(1));
end;