1/24=1/a+1/b,a和b的和最小是多少？

大富翁看到这么一个题目：
http://www.delphibbs.com/delphibbs/DispQ.asp?LID=3933374
用delphi实现如下：

引用

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j,a,b:integer;
  sTemp:array [0..1000] of integer;
begin
  i:=1;
  j:=10000;
  for a:=1 to 10000 do
  begin
    for b:=1 to 10000 do
    begin
      if a*b=24*(a+b) then
      begin
        sTemp[i]:=a+b;
        if sTemp[i]<j then
          j:=sTemp[i];
        i:=i+1;
      end;
    end;
  end;
  ShowMessage(IntToStr(j));
end;