[Mauro®]

Hola a todos, como están? espero que bien!!
Escribo para ver si alguno de Uds. me puede dar una mano.
Estoy utilizando un procedimiento para realizar la compactación de unas tablas paradox las cuáles tengo protegidas con password, pero a relizar la compactación las tablas quedan sin contraseña.
El procedimiento es el siguiente:

Código Delphi [-]
procedure PackParadox(Const ADatabase, ATable : String);
var 
 ADB :TDataBase;
  SaveKC : Boolean;
  PdxStruct : CRTblDesc;
begin 
with TTable.Create(nil) do 
  try
   DatabaseName := ADatabase;
    TableName := ATable;
    Exclusive := True;
    Open;
    ADB := DAtabase;
    SaveKC := ADB.KeepConnection;
    ADB.KeepConnection := True;
    try
     Close;
      FillChar(PdxStruct,SizeOF(PdxStruct),0);
      StrPCopy(PdxStruct.szTblName,ATable);
      PdxStruct.bPack := True;
      Check(DbiDoRestructure(ADB.Handle,1,
@PdxStruct,nil,nil,nil,False));
    finally
     ADB.KeepConnection := SaveKC;
    end; 
  finally
   Free;
  end; 
end;

Alguien tiene idea de como puedo solucionar este problema.
Desde ya les agradezco por leer este hilo.
Saludos,
Mauro.-