Delphi-Assembler wie macht man ein "IF .. THEN ..."

[turboPASCAL]

Hi,

ich komm im Moment nicht weiter im "grünen" Bereich:

Delphi-Quellcode:

    procedure DepthByte_To_AlphaByte(pData: Pointer; Size: Integer);
  asm
    push ebx
    test edx,edx
    jz @@end

  @@loop :
    mov bl,[eax+0] // Blue Byte
    mov bh,[eax+1] // Green Byte
    mov cl,[eax+2] // Red Byte
    mov ch,[eax+3] // Alpha Byte

   // todo:
   // if Alpha > 0 then Alpha := 255;

    mov [eax+0],cl // Bits tauschen
    mov [eax+1],bh
    mov [eax+2],ch
    mov [eax+3],bl

    add eax, 4
    sub edx, 4
    jnle @@loop
  @@end:
    pop ebx
  end;