problemas para comparar 2 cadenas

[spyfenix]

que tal raza, tengo el siguiente problema

tengo una cadena fija con este nombre 'nombre'
y voy sacando mas cadenas pero diferentes cadenas por decir 'colonia tal', 'nombre felipe', 'carro rojo', 'nombre juan'

entonces lo que quiero hacer es que compare 'nombre' con todas las cadenas que le meta, y aquellas que tengan 'nombre' mediante un if entren a la validacion

yo lo estoy haciendo de esta forma, no se si sea la correcta, pero no me sale

var
  aConjunto : set of char;
  aValidar, aComparar : string; // la variable aComparar va tomando valores mediante un query
begin
  aConjunto  := ['n', 'o','m', 'b', 'r', 'e'];
  for i:= 1 to (Length(aValidar)) do
  begin
    if aValidar[i] in aConjunto then
    begin
      ShowMessage('Entra');
      edtSubNombre.SetFocus;
      Exit;
    end;
  end;
end;

mas o menos lo que quiero hacer, es usar tipo LIKE como en sql
que todas las palabras que tengan nombre mediante un if entre

muchas gracias de antemano y pues espero su ayudita

saludos

[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;

[spyfenix]

que tal DEC

muchas gracias por la ayuda, valla que si ayudo

saludos