[Mystery]

Aquí les dejo una función que me resuelve el problema expuesto.....

Código Delphi [-]
function keys(Conn: PConn; Tabla: String): string;
var
  i:integer;
  CAD:String;
begin
  CAD:='';
  with TADOTable.Create(nil)do
  try
    Active:=False;
    Connection:=Conn^;
    IndexName:='PrimaryKey';
    TableName:=Tabla;
    Active:=True;
    for i:=0 to IndexFieldCount-1 do
      if ithen
        CAD:=CAD+IndexFields[i].FieldName+';'
      else
        CAD:=CAD+IndexFields[i].FieldName;
  finally
    Free;
    Result:=CAD;
  end;
end;

los parámetros son un puntero a la conexión el nombre de la Tabla de la cual queremos obtener el listado de Claves y esta función nos devuelve una cadena con las llaves de la tabla separadas por ';', lista para usar en un locate jejejejee...
algo así... CAD:=key1;key2;etc...

bueno muchas gracias por su ayuda. Sin más
Mystery