[dec]

Hola,

No sé si te valdría usar la función "AnsiPos":

Código Delphi [-]
if AnsiPos('nombre', cadena) <> 0) then
begin
  // Se encontró "nombre" en la cadena
end;