Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Умножение больших целых чисел

01.01.2007
type
   
IntNo = record
     Low32
, Hi32: DWORD;
   
end;
 
 
function Multiply(p, q: DWORD): IntNo;
 
var
   x
: IntNo;
 
begin
   
asm
     MOV EAX
,[p]
     MUL
[q]
     MOV
[x.Low32],EAX
     MOV
[x.Hi32],EDX
   
end;
   
Result := x
 
end;
 
 
 
// Test the above with:
// So kannst du es testen
 
var
   r
: IntNo;
 
begin
    r
:= Multiply(40000000, 80000000);
   
ShowMessage(IntToStr(r.Hi32) + ', ' + IntToStr(r.low32))
 
end;

Взято с сайта: https://www.swissdelphicenter.ch