type StrArr=array of String;

function Split(var StringParam: String; var DelimChar: String; out ResultArray: StrArr): boolean; overload;
var
  n,i,y       : Integer;
  x,z         : Integer;
  Index,Count : Integer;
  s           : string;
begin

  try
  try
    x:=Q_PosStr(DelimChar,StringParam,1);

    if x=0 then begin
          SetLength(ResultArray,1);
          ResultArray[0]:=StringParam;
          Result:=True;
          Exit;
    end; {if}

          y:=Length(DelimChar);
          s:=Copy(StringParam,1,x-1);

    n:=1;
    i:=x;

  while Not (i=0) do begin
    n:=n+1;
    i:=Q_PosStr(DelimChar,StringParam,i+y);
  end;{while True}

    SetLength(ResultArray,n);
    ResultArray[0]:=s;

  n:=1;
  i:=x;

   while Not (i=0) do begin
      i := Q_PosStr(DelimChar,StringParam,i+y);

      if i=0 then break;

      count :=  i-x-y;
      index :=  x+y;
      ResultArray[n]:=Copy(StringParam,index,count);

      n:=n+1;
      x:=i;

   end;{while True}

   z:=length(StringParam)-(x);
   If z>0 then ResultArray[n]:=Copy(StringParam,x+y,z);

      Result:=True;
  except
      Result:=False;
  end;{except}
  finally

      If Result then Result:=True;
  end;{finally}
end;

function Split(const Extension: String; DelimChar: Char; out  StrArrRes: StrArr): Boolean;
  var
  p,sp:PChar;
  Delimiters: set of Char;
  str:String;
  Ca:Cardinal;
  n:integer;
  bw:Boolean;
begin
bw:=True;
n:=1;
Delimiters:=[];

try
try
 include(Delimiters,DelimChar);
 include(Delimiters,#0); //чтоб уж наверняк
 p:=pointer(Extension);

while bw do
  begin
   //пропускаем все разделители в начале
   while (p^ in Delimiters) do
      if p^=#0 then begin
            bw:=False;{while bw}
            break; {while p^}
          end else begin
            n:=n+1;
            inc(p);
      end;{if}{while p^ }
   while not (p^ in Delimiters) do inc(p);
end;{while dw}

p:=pointer(Extension);
SetLength(StrArrRes, n);
n:=0;
bw:=True;
                  while bw do begin

                          sp:=p;
                        //пока не кончилось слово.
                          while not (p^ in Delimiters) do inc(p);
                            //запоминаем слово
                            ca:=Cardinal(p)-Cardinal(sp);
                            SetLength(str,ca);
                            Move(sp^,pointer(str)^,ca);
                            StrArrRes[n]:=String(str);

                       //пропускаем все разделители в начале
                         while (p^ in Delimiters) do
                          if p^=#0 then begin
                                bw:=False;{while bw}
                                break; {while p^}
                            end else begin
                              n:=n+1;
                              //StrArrRes[n-1]:=String(str);
                              inc(p);
                          end;{if}{while p^}

                          //if not bw then break;

                  end; {while bw}

    except
        SetLength(StrArrRes,0);
        Result:=False;
    end;{except}
finally
      If Result then Result:=True;
end;{finally}
end;{function}

function Q_PosStr(const FindString, SourceString: string; StartPos: Integer): Integer;
asm
        PUSH    ESI
        PUSH    EDI
        PUSH    EBX
        PUSH    EDX
        TEST    EAX,EAX
        JE      @@qt
        TEST    EDX,EDX
        JE      @@qt0
        MOV     ESI,EAX
        MOV     EDI,EDX
        MOV     EAX,[EAX-4]
        MOV     EDX,[EDX-4]
        DEC     EAX
        SUB     EDX,EAX
        DEC     ECX
        SUB     EDX,ECX
        JNG     @@qt0
        XCHG    EAX,EDX
        ADD     EDI,ECX
        MOV     ECX,EAX
        JMP     @@nx
@@fr:   INC     EDI
        DEC     ECX
        JE      @@qt0
@@nx:   MOV     EBX,EDX
        MOV     AL,BYTE PTR [ESI]
@@lp1:  CMP     AL,BYTE PTR [EDI]
        JE      @@uu
        INC     EDI
        DEC     ECX
        JE      @@qt0
        CMP     AL,BYTE PTR [EDI]
        JE      @@uu
        INC     EDI
        DEC     ECX
        JE      @@qt0
        CMP     AL,BYTE PTR [EDI]
        JE      @@uu
        INC     EDI
        DEC     ECX
        JE      @@qt0
        CMP     AL,BYTE PTR [EDI]
        JE      @@uu
        INC     EDI
        DEC     ECX
        JNE     @@lp1
@@qt0:  XOR     EAX,EAX
@@qt:   POP     ECX
        POP     EBX
        POP     EDI
        POP     ESI
        RET
@@uu:   TEST    EDX,EDX
        JE      @@fd
@@lp2:  MOV     AL,BYTE PTR [ESI+EBX]
        CMP     AL,BYTE PTR [EDI+EBX]
        JNE     @@fr
        DEC     EBX
        JE      @@fd
        MOV     AL,BYTE PTR [ESI+EBX]
        CMP     AL,BYTE PTR [EDI+EBX]
        JNE     @@fr
        DEC     EBX
        JE      @@fd
        MOV     AL,BYTE PTR [ESI+EBX]
        CMP     AL,BYTE PTR [EDI+EBX]
        JNE     @@fr
        DEC     EBX
        JE      @@fd
        MOV     AL,BYTE PTR [ESI+EBX]
        CMP     AL,BYTE PTR [EDI+EBX]
        JNE     @@fr
        DEC     EBX
        JNE     @@lp2
@@fd:   LEA     EAX,[EDI+1]
        SUB     EAX,[ESP]
        POP     ECX
        POP     EBX
        POP     EDI
        POP     ESI
end;