Function Pos

uses Unit System

A função Pos retorna a posição da primeira ocorrência da substring do parâmetro Substr dentro da String do parâmetro S.

Sintaxe da sua utilização:

Pos(SubString,Texto);

Ex:

procedure TForm1.BitBtn9Click(Sender: TObject);begin
       Label1.Caption:=IntToStr(Pos('voce', 'Eu adoro voce')); //Retornar a posição da letra ou palavra numa string
end;