Da Error al crear un indice una tabla DBF

[Antuan]

Trato de crear un indice con una tabla AMIGOS.DBF en tiempo ejecucion con un boton y me da error diciendo que el fichero amigos.MDX no exite.
Algo estoy haciendo mal y no veo donde tengo el fallo.
Utilizo un componente Ttable en modo diseño y un boton donde tengo el codigo.
Esto esta solo en un Form.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Table1: TTable;
begin
  Table1 := nil;
  try
    // Abro la tabla
    Table1 := TTable.Create(nil);
    Table1.DatabaseName:= ExtractFilePath(Application.ExeName);
    Table1.TableName :='amigos.dbf';
    Table1.Name := 'Table1';
    with Table1 do begin
      AddIndex('Nombre', 'Nombre',[ixPrimary, ixUnique]);
      IndexName := 'Nombre';
      First;
      ShowMessage(FieldByName('amigos').AsString);
      IndexName := '';
      Close;
      Exclusive := True;
      Open;
      DeleteIndex('Nombre');
    end;
  except
    Table1.Free;
    raise;
  end;
  Table1.Free;
end;

La tabla tiene 3 campos "NOMBRE, APELLIDO1, APELLIDO2"
Trato de crear un fichero que se llame NOMBRE.MDX y me es imposible.
Y al mismo tiempo quiero que me cree el indice APELLIDO1.MDX y APELLIDO2.MDX.
Pongo en un zip el ejemplo por si me lo pueden corregir
Es que estoy aprendiendo y cuando lo termine he prometido subirlo al foro.
Muchas gracias.