Como descobrir a posição de um carácter dentro de uma string a partir de uma posição inicial?

Esta função é uma extensão da função Pos, que permite
procurar ocorrências de texto dentro de uma string,
depois de determinada posição.

É necessário estar declarado StrUtils na seção uses,
em versões unicode declare System.StrUtils;

Função do Delphi: PosEx(SubString, String, posição inicial)
Retorno: Integer;

Exemplos de uso

1
2
3
4
5
6
7
8
9
10

procedure TForm1.Button1Click(Sender: TObject);
begin
  { Neste exemplo a função vai procurar a primeira
  ocorrência de "t" a partir da terceira letra. }
  ShowMessage(IntToStr(PosEx('t', 'texto', 3)));
 
  { Neste caso retorna 0 porque não há ocorrência de
  "w" após o sexto caractere }
  ShowMessage(IntToStr(PosEx('w', 'Show Delphi', 6)));
end;