Fórum índice em paradox runtime #197472

with tblSINS0102 do
begin
Active := False;
DatabaseName := ´Dados´;
var
IndPri, IndSec : TIndexOptions;
begin
Screen.Cursor := crHourGlass;
IndPri := [ixPrimary, ixUnique];
IndSec := [ixCaseInsensitive];
TableName := ´SINS0102´;
TableType := ttDefault;
IndexDefs.Clear;
Addindex(´´ ,´CD_FUNCIONARIO´, IndPri);
Addindex(´admissaontx´ ,´DT_ADMISSAO´ , IndSec);
Addindex(´cargontx´ ,´NM_CARGO´ , IndSec);
Addindex(´enderecontx´ ,´NM_ENDERECO´ , IndSec);
AddIndex(´funcaontx´ ,´NM_FUNCAO´ , IndSec);
Addindex(´funcionariontx´,´NM_FUNCIONARIO´, IndSec);
Active := True;
end;
Screen.Cursor := crDefault;
end;
Antes de criar os índices apague-os em tempo de execução após fechar a tabela. No caso acima, o primeiro argumento é o nome do índice, o segundo é o campo da tabela ( se for mais de uma campo, separa-los por ponto e vígula. O valor ´´ é para a chave primária.

Desculpe, sou iniciante em delphi, ele da uma msg que não existe o se eu pedir pra apagar antes, e se eu não pedir pra apagar ele da uma msg que o índice existe. O que faço ?

Me ajudem please ?