[walace_soy]

mira a ver si te vale eso. no deberia darte problemas para compilar. Si te los da busca copy en la ayuda de delphi y veras que tienes que incluir en el uses.

aux:=compras.items[compras.itemindex];
Valida:=copy(aux,Pos('(',aux)+1,Pos(')',aux)-1);