编程实现:求所有的7位数.它的十六进制值等于每位数字7次方的和.
Hex(abcdefg)=a7+ b7+ c7+ d7+ e7+ f7+ g7
有什么最快的方法

下面的方法需要三、四分钟，而且不知道答案是否正确：
function cacl(a: integer): integer;  //求六次方的函数
  var
    b:integer;
  begin
      b:=0;
      asm
      xor eax,eax
      xor esi,esi
      mov eax,a
      mov ecx,eax
      mov esi,$6
    @:
      imul eax,ecx
      dec esi
      jne @
      mov b,eax
      end;
      Result := b;
  end;

procedure TForm1.Button1Click(Sender: TObject);
var
   s,i:integer;
   c:string;
   d:string;
begin
    repeat
    i := 1000000 + Random(9999999);
    d:=inttostr(i);
    s:=cacl(strtoint(midstr(d,1,1)))+
       cacl(strtoint(midstr(d,2,1)))+
       cacl(strtoint(midstr(d,3,1)))+
       cacl(strtoint(midstr(d,4,1)))+
       cacl(strtoint(midstr(d,5,1)))+
       cacl(strtoint(midstr(d,6,1)))+
       cacl(strtoint(midstr(d,7,1)));

     until
      s=i;

      edit1.Text:=inttostr(i);
end;

end.

[培训]内核驱动高级班，冲击BAT一流互联网大厂工作，每周日13:00-18:00直播授课