Problemas con Variant

[Mystery]

Hola a todos....
bueno pues resulta que estoy tratando de utilizar un locate para ello creo una variable de tipo variant le doy la longitud en tiempo de ejecucion y sus respectivos valores pero cuando el compilador llega al locate me envia este error. "could not conver variant of type (Array Variant) into type (String)"... he estado leyendo en internet pero todavia no doy con la solucion OK...
aqui les dejo el codigo que he realizado...

Código Delphi [-]
var
  i:integer;
  arr:variant;
begin
  DMDatos.UtilMD.Active:=False;
  DMDatos.UtilMD.IndexName:='primaryKey';
  DMDatos.UtilMD.Active:=True;
  arr:=VarArrayCreate([0, DMDatos.UtilMD.IndexFieldCount], varVariant);
  DMDatos.Util.First;
  while not DMDatos.Util.Eof do begin
    for i:=0 to  DMDatos.UtilMD.IndexFieldCount-1 do
     arr[i]:=DMDatos.Util.FieldByName(DMDatos.UtilMD.IndexFields[i].FieldName).AsString;
    CAD1:=Keys(@DMDatos.Conn, DMDatos.UtilMD.TableName);
    if not DMDatos.UtilMD.Locate(CAD1, arr, [])then
     begin
      //aqui debe o no debe entrar segun el locate.. mas nada...//
     end;

chaooo
sin mas
Mystery