PROPRIEDADES DE UM DBF

Pessoal
a rotina abaixo retorna informacoes sobre uma tabela e salva em um string.

var
Prop : CURProps;
begin
Check(DbiGetCursorProps(hTmpCur, Prop));
with CurList do
begin
Add(´Table Name: ´ + Prop.szName);
Add(´Table Type: ´ + Prop.szTableType);
Add(´Fields: ´ + IntToStr(Prop.iFields));
Add(´Record Buffer Size: ´ + IntToStr(Prop.iRecBufSize));
Add(´Indexes: ´ + IntToStr(Prop.iIndexes));
Add(´Validity Checks: ´ + IntToStr(Prop.iValChecks));
Add(´Referential Integ Checks: ´ +IntToStr(Prop.iRefIntChecks));
Add(´Table Level: ´ + IntToStr(Prop.iTblLevel)); <--- Esta aqui
Add(´Language Driver: ´ + Prop.szLangDriver);
end;
end;

AGORA COMO EU FACO PRA ALTERAR A PROPRIEDADE [ iTbLevel ]
da tabela
obs: nao e do BDE e sim da tabela.

Obrigado