procedure TForm1.Button1Click(Sender: TObject);
function Umnojenie(x, z: integer): integer;
asm
  mov ebx,z
  mov eax,x
  imul ebx
  Mov Result,eax
end;
Begin
ShowMessage(IntToStr(Umnojenie(15,345)));//Возвращает   5 175
end;