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