Add(FileTools,6314939,294,161)
{
 DelToRecycle=1
 link(FileName,14291368:Var2,[])
}
Add(Memory,1737307,294,56)
{
 Default=String(1.txt)
}
Add(Button,16203227,140,168)
{
 Left=105
 Top=165
 link(onClick,14364151:doEvent1,[])
}
Add(StrList,7248883,252,126)
{
 Strings=#5:12345|
 link(FileName,14291368:Var1,[(265,107)])
}
Add(Hub,14364151,196,168)
{
 link(onEvent1,7248883:doSave,[(240,174)(240,167)])
 link(onEvent2,6314939:doDelete,[])
}
Add(GetDataEx,14291368,287,98)
{
 link(Data,1737307:Value,[])
}

DeleteFiles(PChar(F1));

function StrScan(Str: PChar; Chr: Char): PChar; assembler;
asm
        PUSH    EDI
        PUSH    EAX
        MOV     EDI,EAX
        OR      ECX, -1
        XOR     AL,AL
        REPNE   SCASB
        NOT     ECX
        POP     EDI
        XCHG    EAX, EDX
        REPNE   SCASB
        XCHG    EAX, EDI
        POP     EDI
        JE      @@1
        XOR     EAX, EAX
        RET
@@1:    DEC     EAX
end {$IFDEF F_P} [ 'EAX', 'EDX', 'ECX' ] {$ENDIF};

        JE      @@1
        XOR     EAX, EAX
        JMP @@2
@@1:    DEC     EAX
@@2:

DEC EAX
JNE @@1
XOR EAX, EAX
@@1: