Delphi - Pesquisar dentro de uma String

procedure TForm1.Button1Click(Sender: TObject);
begin
   if (pos('Teste','abcdTeste012345')) then
      ShowMessage('Texto encontrado!');
end;