Alguien Me Puede Orientar?

[linuz]

Walace, tengo una duda.

Estoy haciendo un programilla muy muy mini, que lo unico que hace es un drag drop para pasar una cadena de una lista a otra. Lo quiero es que solo me pase una parte de la cadena, en este caso lo que hay entre los dos parentesis.

procedure TForm1.comprasDragDrop(Sender, Source: TObject; X, Y: Integer);
var
valida: string;
i: integer;
enc,j,a: integer;
begin
j:= length(almacen.items[almacen.itemindex]);
a:=1;
enc:=0;
		for i:=1 to j-1 do
				if compras.items[compras.itemindex][i] = '(' then
				begin
				showmessage(valida);
						enc:=1;
				end;
		if enc=1 then
		begin
		valida[a]:= compras.items[compras.itemindex][i];
		a:=a+1;
		showmessage(valida);
		end;
		end;

Si me puedes decir que es lo que falla te lo agradecería.

GRACIAS