function CompStr(const S1, S2: string): Integer;
asm
       TEST    EAX,EAX
       JE      @@2
       TEST    EDX,EDX
       JE      @@3
       PUSH    EAX
       MOVZX   EAX,BYTE PTR [EAX]
       MOVZX   ECX,BYTE PTR [EDX]
       SUB     EAX,ECX
       JE      @@m
       POP     ECX
       RET
@@m:    POP     EAX
       INC     EAX
       INC     EDX
@@0:    TEST    CL,CL
       JE      @@5
       MOV     CL,BYTE PTR [EAX]
       MOV     CH,BYTE PTR [EDX]
       CMP     CL,CH
       JNE     @@ne
       TEST    CL,CL
       JE      @@5
       MOV     CL,BYTE PTR [EAX+1]
       MOV     CH,BYTE PTR [EDX+1]
       CMP     CL,CH
       JNE     @@ne
       TEST    CL,CL
       JE      @@5
       MOV     CL,BYTE PTR [EAX+2]
       MOV     CH,BYTE PTR [EDX+2]
       CMP     CL,CH
       JNE     @@ne
       TEST    CL,CL
       JE      @@5
       MOV     CL,BYTE PTR [EAX+3]
       MOV     CH,BYTE PTR [EDX+3]
       ADD     EAX,4
       ADD     EDX,4
       CMP     CL,CH
       JE      @@0
@@ne:   MOVZX   EAX,CL
       MOVZX   EDX,CH
       SUB     EAX,EDX
       RET
@@2:    TEST    EDX,EDX
       JE      @@7
       MOV     CH,BYTE PTR [EDX]
       TEST    CH,CH
       JE      @@7
       NOT     EAX
       RET
@@3:    MOV     CL,BYTE PTR [EAX]
       TEST    CL,CL
       JE      @@5
       MOV     EAX,1
       RET
@@5:    XOR     EAX,EAX
@@7:
end;