Ассемблер в делфи

[danekne]

Вообщем задача вот в чем: нужно в делфи сделать ас-ю вставку,которая решает след. задачу: z=w+c*b
Если результат <=30 тогда
n=f + (a – b) * c / (a + b) + a;
иначе N = (a + b) + (b + c) / w + c * w
Наработал:

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,w,f,n,z:byte;
rez:real;
begin
a:=strtoint(edit1.Text);
b:=strtoint(edit2.Text);
c:=strtoint(edit3.Text);
w:=strtoint(edit4.Text);
f:=strtoint(edit5.Text);
asm
  mov al,c
  mul b
  add al,w
//  mov z,al
  cmp al,30
  jle @t30
  mov al,b
  add al,c
  div c
  mov bl, al
  mov al,c
  mul w
  add al,bl
  mov bl,a
  add bl,b
  add al,bl
  jmp @end_pr
@t30:
  mov al,a
  sub al,b
  mul a
  mov bl,a
  add bl,b
  div al,bl
  mov bl,f
  sub bl,al
  add bl,c
  mov al,bl
@end_pr:
mov n,al
end;
Label5.caption:=Inttostr(n);
//label7.Caption:=inttostr(n);
end;

В итоге - label5. caption вообще не меняется.

Помогите, где ошибка??
P.S.
уже башня пухнет!

[Stilet]

mov byte ptr [n],al

Это же переменная, и записывать нужно по адресу на который она указывает.