O conceito do funcionamento é simples. Primeiro iremos substituir o caráter de quebra de linha "#13" pelo texto "$Quebra$", para evitar conflito caso exista uma quebra de linha na string. Depois substituímos todos os delimitadores pelo caracter de quebra de linha e definimos como texto de uma stringlist. Após isso, verificamos se o índice passado é valido, pegamos a string referente ao índice e retornamos o caracter "#13" no lugar do texto "$Quebra$".

ATENÇÃO! É necessário a declaração das units Classes e SysUtils na seção uses.

Segue abaixo a função:

function Split(Valor, Delimitador: String; Item: integer): String;
Var 
  s : TStringList;
begin
  if Valor = '' then exit;
  s := TStringList.Create;
  try
    Valor := StringReplace(Valor, #13, '$Quebra$', [rfReplaceAll]);
    s.Text := STringReplace(Valor, Delimitador, #13, [rfIgnoreCase, rfReplaceAll]);
    if (Item > 0) and (Item <= s.Count) then
      Result := StringReplace(s.Strings[item-1], '$Quebra$', #13, [rfReplaceAll])
    else
      Result := '';
  finally
    s.Free;
  end;
end;

Exemplo de funcionamento:

var
  Texto: String;
begin
  Texto := Split('Meu Nome é Renato', ' ', 2);
  ShowMessage(Texto);
end;

O resultado disso será uma mensagem com a palavra "Nome".

Um outro exemplo sobre separação de Strings com índices foi publicado pelo amigo Kelver Merlotti, no artigo Implode e Explode do PHP para o Delphi

Qualquer dúvida comente aqui.
Abraços!

Dica enviada pelo usuário: cruzeirense
Contato: cruzeirense@oi.com.br