Вычислить значение выражения: ((2*c)-(d/3)) / (b-(a/4))

procedure TForm1.BitBtn1Click(Sender: TObject);
var
c:word;
begin
  asm
  // умножение 2 на 10
  mov al,2
  mov cl,10
  imul cl
  mov bl,al
  
  //деление 30 на 3
  mov ax,30
  mov cl,3
  div cl
  mov dl,al
 
  // подсчёт числителя
  sub bl,dl
 
  // деление 20 на 4
  mov ax,20
  mov cl,4
  div cl
  mov dl,al
 
  //разница 10 и предыдущего слагаемого
  mov al,10
  sub al,dl
 
  // подсчёт знаменателя
  idiv bl
 
  // передача значения переменной
  mov c,bl
  end;
  form1.Edit1.text:=inttostr(c);
end;

procedure TForm1.BitBtn11Click(Sender: TObject);
var
e,f:longint;
begin
  e:=strtoint(form1.LabeledEdit5.text);
  f:=strtoint(form1.LabeledEdit6.text);
  asm
    mov eax,e
    mov ebx,f
    add eax,ebx
    sub ebx,eax
    neg ebx
    sub eax,ebx
    mov e,eax
    mov f,ebx
  end;
  form1.LabeledEdit5.text:=inttostr(e);
  form1.LabeledEdit6.text:=inttostr(f);
end;

    ;((2*c)-(d/3))
    mov eax, c
    mov ebx, 2
    imul ebx
    push eax
    push edx
 
    mov  eax, d
    cdq
    mov  ebx, 3
    idiv ebx
    cdq
 
    pop  ebx
    pop  ecx
    sub  ecx, eax
    sbb  ebx, edx
    push ecx
    push ebx
 
    ;(b-(a/4))
    mov  eax, a
    cdq
    mov  ebx, 4
    idiv ebx
    mov  ebx, b
    sub  ebx, eax
 
    ;((2*c)-(d/3)) / (b-(a/4))
    pop  edx
    pop  eax
    idiv ebx
 
    mov r, eax

    ;((2*c)-(d/3)) / (b-(a/4))
    pop  edx
    pop  eax
 
    cmp  ebx, 0
    jne  Cont
 
    какие-то действия при делении на 0
 
Cont:
    idiv ebx
 
    mov r, eax