Código Delphi [-] if Pos(inttostr(Grupo)+',',Grupoprueba+',')>0 then ...
if Pos(inttostr(Grupo)+',',Grupoprueba+',')>0 then ...