Как создать файл NTX

[MegaMax]

Помогите пожалуйста. Есль файл с расширением DBF который нужно проиндексировать и создать индексный файл с расширением NTX.
Ниже написаным кодом у меня получилось проиндексировать файл и создать файл с расширением CDX.

procedure TForm1.Button1Click(Sender: TObject); 
var 
  bActive, bExclusive: Boolean; 
begin 
  bActive := Table1.Active; 
  bExclusive := Table1.Exclusive; 
  Table1.IndexDefs.Update; 
  with Table1 do 
  begin 
    Close; 
    {таблица dBASE должна быть открыта в монопольном (exclusive) режиме} 
    Exclusive := TRUE; 
    Open; 
    if Table1.IndexDefs.IndexOf('FNAME') <> 0 then 
      Table1.AddIndex('FNAME', 'FNAME', []); 
    Close; 
    Exclusive := bExclusive; 
    Active := bActive; 
  end; 
end;

P.S. Есть такой компонент для создания NTX-файлов (вроде DBFNTX называется), но я незнаю как его связать и что прописывать. Помогите пожалуйста.

[nataly_ukr]

Я всегда указываю так Table2.AddIndex('ind4.mdx','kfio',[ixExpression]); При работе с Dbf файлами индексный файл создаю с расширением MDX .