Fórum Array Dinaminco no FindKey #290656

Não consigo utilizar um Array Dinamico emum FindKey;
Hoje, tenho isso, mas não funciona:

procedure TForm1.Button1Click(Sender: TObject);
Var
v_CH : Array Of Variant;
begin
SetLength( v_CH , 0 );

If ( Trim( Edit1.Text ) <> ´´ ) Then Begin
SetLength( v_CH , Length( v_CH ) + 1 );
v_CH[ Length( v_CH ) - 1 ] := Edit1.Text;
End;

If ( Trim( Edit2.Text ) <> ´´ ) Then Begin
SetLength( v_CH , Length( v_CH ) + 1 );
v_CH[ Length( v_CH ) - 1 ] := Edit2.Text;
End;

If ( Trim( Edit3.Text ) <> ´´ ) Then Begin
SetLength( v_CH , Length( v_CH ) + 1 );
v_CH[ Length( v_CH ) - 1 ] := Edit3.Text;
End;

Find( v_CH );
end;

Procedure TForm1.Find( pCH : Array Of Variant );
Begin
Label1.Caption := ´´;

If Tab.FindKey([ pCH ]) Then
Label1.Caption := ´Ok´
Else
Label1.Caption := ´Não Ok´;
End;

Mas dá erro na compilação no Tab.FindKey([ pCH ])
Já tentei sem os ´[´ ´]´ mas tb não funciona.

-------------------
Preciso utlizar isso, pq tenho uma chave mutante( dados diferentes para chaves diferentes )
-------------------

Desde já grato.