procedure TFCompacta.CompactaMDB(Sender: TObject);
 var db: OleVariant;
 PathDb: string;
begin
    PathDb := 'c:\scej\dados\' + FPrincipio.TEmpresaAlias.Value + '.mdb';
    db := GetADOObject('JRO.JetEngine');
    db.CompactDatabase('Provider=Microsoft.Jet.OLEDB.4.0;' +
    'Data Source=' + PathDb + ';Jet OLEDB:Database Password="";',
    'Provider=Microsoft.Jet.OLEDB.4.0;' +
    'Data Source=' + ExtractFilePath(PathDb) + 'novobd.mdb' +
    ';Jet OLEDB:Database Password=""' +
    ';Jet OLEDB:Engine Type=5'); // 4 se for Access 97
    if not DeleteFile(PathDb) then
// file://deleta bd antigo
begin
    ShowMessage('Ocorreram problemas renomeando os arquivos temporários!'
    + #13 + 'A operação foi cancelada.');
    DeleteFile(ExtractFilePath(PathDb) + 'novobd.mdb');
// file://deleta arquivos temporarios
    exit;
end;
    RenameFile(ExtractFilePath(PathDb) + 'novoBD.mdb', PathDb);
//file://renomeia bd compactado
    DeleteFile(ExtractFilePath(PathDb) + 'novobd.mdb');
//file://deleta arquivos temporarios
// ShowMessage('Processo Concluído com sucesso!');
    { except 
    on e: Exception do
    ShowMessage(E.Message);
end;
    finally
    db := unassigned;
// file://limpa variaveis de objetos
    end;}
    end; function TFCompacta.GetADOObject(ADOClass: string): OLEVariant;
    var o: OLEVariant;
begin
    try
    o := CreateOLEObject(ADOClass);
    except on EOleException do
    o := unassigned
end;
    Result := o;
end;