var
 db: TDatabase;
 Desc: CRTblDesc;
begin
 db := PriceTable.OpenDatabase;
 FillChar( Desc, SizeOf( Desc ), #0 );
 StrCopy( Desc.szTblName, PChar( PriceTable.TableName ) );
 StrCopy( Desc.szTblType, szParadox );
 StrCopy( Desc.szPassword, 'password' );
 Desc.bProtected := TRUE;
 Check( DbiDoRestructure( db.Handle, 1, @Desc, nil, nil, nil, FALSE ) );
end;