Como testar se uma substring está contida em uma string usando as funções ContainsStr() e AnsiContainsStr() do Delphi

function ContainsStr(const AText, ASubText: 
  string): Boolean;
function AnsiContainsStr(const AText, ASubText: 
  string): Boolean;

procedure TForm1.Button1Click(Sender: TObject);
var
  frase: string;
begin
  frase := 'Gosto muito de Delphi, PHP e Java';

  // vamos verificar se a string contém a substring "PHP"
  if AnsiContainsStr(frase, 'PHP') then
    ShowMessage('A frase contem a substring indicada')
  else
    ShowMessage('A frase NÃO contem a substring indicada')
end;