CURProps, DBIGetCursorProps, DBIPackTable 需uses什么? (急! 多谢!)(100分)

我试运行以下PackTable, 但不能运行.
错误为:
[Error] Unit1.pas(51): Undeclared identifier: 'CURProps'
[Error] Unit1.pas(54): Undeclared identifier: 'DBIGetCursorProps'
[Error] Unit1.pas(56): Undeclared identifier: 'DBIPackTable'
是否要uses什么?

procedure PackTable(Table: TTable);
var
Props: CURProps;
begin
if (not Table.Active) or (not Table.Exclusive) then Exit;
Check(DBIGetCursorProps(Table.Handle, Props));
if Props.szTableType <> szDBASE then Exit;
Check(DBIPackTable(Table.DBHandle, Table.Handle, nil, szDBASE, True));
Table.Open;
end

bde 的api当然是uses bde啦.

接受答案了.