delphi迭代的收敛

Question

我要想求m,但是该式子的迭代收敛式（if  a=b then
 begin
Edit5.Text:=floattostr(m);
）好像不对，求高人指点。我希望a值与b值相差越小越好；而且任给一组数，该程序都执行了的，且能得出一个结果procedure TForm1.BitBtn1Click(Sender: TObject);
var
p1,p2,a,X,Y,b,m:real;begin
p1:=StrToFloat(Edit1.Text);
p2:=StrToFloat(Edit2.Text);
a:=p2/p1;
Edit4.Text:=floattostr(a);
while (m>=1) and (m<=7)do
begin
X:= Power((2.38)*sqr(m)/(2+0.38*sqr(m)),1.38/0.38);
Y:= Power((2*1.38)/2.38*sqr(m)-(0.38+2.38),1/0.38);
 b:=X/Y;
 if  a=b then
 begin
Edit5.Text:=floattostr(m);
  end;
  end;
  end;

Answer 1

if abs(a-b)<0.000000001 then
  .......

Answer 2

而且还没有初始值 (是不是以为while (m>=1) and (m<=7)do 有步进赋值功能？)