Funcao - separa e ocorre

function Ocorre(const Palavra, Separador: string): Integer;

var

  I: Integer;

begin

  Result := 0;

  for I := 1 to Length(S) do If Copy(S,I,Length(Separador))=Separador then Inc(Result);

end;

function Separa(const S:String; const Separador:Char; Posicao: Integer):String;

var

  I, Contador: Integer;

  St         : String;

begin

  if (Posicao < 1) then Posicao := 1;

  Contador := 1;

  for I := 1 to Length(S) do

  begin

    if S[I] = Separador then

    begin

      if Contador = Posicao then

      begin

        Result := St;

        Break;

      end;

      Inc(Contador);

      St := '';

    end

    else

      St := St + S[I];

  end;

  if Posicao > Contador then St := '';

  Result := St;

end;