function IntToStr(Value: Integer): string;
asm
        PUSH ESI
        MOV ESI, ESP
        SUB ESP, 16
        XOR ECX, ECX // base: 0 for signed decimal
        PUSH EDX // result ptr
        XOR EDX, EDX // zero filled field width: 0 for no leading zeros
        CALL CvtInt
        MOV EDX, ESI
        POP EAX // result ptr
        CALL System.@LStrFromPCharLen
        ADD ESP, 16
        POP ESI
end;