Código: Seleccionar todo

function SSplit(Cadena:string;Delimitador:string;Index:integer):string;
var
N:Integer;
begin
 if index = 0 then
   begin
     if ansipos(delimitador,cadena) > 0 then
       begin
         ssplit:= copy(cadena,1,ansipos(delimitador,cadena) -1);
           exit
            end;
       end;
for n:= 1 to index -1 do
begin
delete(cadena,ansipos(delimitador,cadena),1);
end;
 if copy(cadena,length(cadena) - length(delimitador),length(cadena)) <> delimitador then
  begin
     cadena := cadena + delimitador
    end;
  ssplit := (copy((copy(cadena,ansipos(delimitador,cadena) + length(delimitador),length(cadena))),1,(ansipos(delimitador,(copy(cadena,ansipos(delimitador,cadena) + length(delimitador),length(cadena)))) - 1)));
end;