Function sSplit(texto,Sdel1,Sdel2:string):string;
  var
     p1,p2,tm: Integer;
   begin
     p1 := pos (Sdel1, texto);
     p2 := pos (Sdel2, texto);
     tm := p2+ Length(Sdel2);
     if Sdel2 <> '' then
      Result := copy(texto, p1 + Length(Sdel1), tm - (p1+Length(Sdel1) + length(Sdel2)))
     else
      Result := copy(texto, p1 + Length(Sdel1), Length(texto) - (p1 + Length(Sdel1)));

   End;