[[Lepe]]

Yo usaría otro método para eso:

Código Delphi [-]
var grupoprueba : TStringList;
begin
  grupoprueba := TStringList.Create;
  try
  grupoprueba.CommaText:= '1,12,123';
  if grupoprueba.IndexOf('12') <>-1 then
    ShowMessage('si existe');
  finally
    grupoprueba.Free;
  end;

end;

Tambien puedes poner Grupoprueba.duplicates := dupError; y añadir directamente la cadena al StringList, si existe, saltaría una excepción que debes capturarla.

Tú eliges.

Saludos