مساعدة في كود PGCD

السلام عليكم

اريد تصحيح هذا الكود لحساب القاسم المشترك الاكبر

procedure TForm1.Button1Click(Sender: TObject);
begin
 val1:=StrToInt(Edit1.Text);
 val2:=StrToInt(Edit2.Text);
   asm
            mov eax,val1;
            mov ebx,val2;
            jmp @clacul;
     @clacul:
            div ebx;
            cmp edx,0 ;
            jne @suitch ;
            jmp @fini ;

      @suitch:  mov eax,ebx;
            mov ebx,edx;
            jmp @clacul ;

      @fini:
      end;


  edit3.text:=IntToStr(val1);

end;

end.