schnelstmöglich dividieren?

[gammatester]

Hier ein Beispiel (Anzeigewert ist jeweils 12345):

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  res,test, wert, iwert: longint;
begin
  wert := 10000;
  iwert := (int64(1) shl 32) div wert;
  test := 123456789;
  ShowMessage('Div: '+inttostr(test div wert));
  asm
    mov  eax,[test]
    mul  [iwert]
    mov  [res],edx
  end;
  ShowMessage('Mul: '+inttostr(res));
end;