Delphi - Poner password a una tabla

Tango un programa que crea una tabla de tipo paradox y quisiera saber como puedo hacer para que al crearla me pusiera el password para que no se pueda acceder desde ningún otro programa que no tenga el pass como puede ser el Database Desktop. Muchas gracias.

Ahi va un procedimiento para adicionar un Password a una tabla Paradox.
En el Uses deben figurar .....BDE, DB, DBTables y SysUtils

procedure AddMasterPassword(Table: TTable; pswd: string);
const
RESTRUCTURE_TRUE = WordBool(1);
var
TblDesc: CRTblDesc;
hDb: hDBIDb;

begin
if (Table.Active = False) or (Table.Exclusive = False) then
raise EDatabaseError.Create('La Tabla debe estas abierta en modo exclusivo.....');
FillChar(TblDesc, SizeOf(CRTblDesc), 0);
with TblDesc do
begin
StrPCopy(szTblName, Table.TableName);
StrCopy(szTblType, szPARADOX);
StrPCopy(szPassword, pswd);
bProtected := RESTRUCTURE_TRUE;
end;

Check(DbiGetObjFromObj(hDBIObj(Table.Handle), objDATABASE, hDBIObj(hDb)));
Table.Close;
{Asicionar el PW a la Tabla}
Check(DbiDoRestructure(hDb, 1, @TblDesc, nil, nil, nil, FALSE));
{Adicionar el PW a Session}
Session.AddPassword(pswd);
{ Abrir nuevamente la tabla}
Table.Open;
end;

Saludos