Encontrar una palabra dentro de una frase

[[David]]

Quiero poner un if ... then , de tal manera que si encuentra una palabra en una frase , haga una opción u otra .

Hay algún procedimiento que te diga si una palabra esta contenida en una frase ??

[roman]

Código Delphi [-]
if Pos('palabra', 'palabra en una frase') <> 0 then
  ...

// Saludos