(Resolvido) Sistema lento para salvar registro

[Vivendo&Aprendendo]

Olá pessoal, na minha aplicação quando cadastro ou altero um registro, e mando salvar ele demora muito para efetuar o procedimento e o engraçado é que isso só ocorre em um form, o de Alunos.

Segue abaixo o código que uso no botão salvar:

If ActiveMDIChild = FrmAlunos Then
  begin
    DSBotoes.DataSet.Post;
    DmDados.Log.Active := True;
    DmDados.Log.Append;
    DmDados.LogUsuario.value := Usu;
    DmDados.LogDataHora.Value := DateToStr(Date)+' - '+TimeToStr(Time);
    DmDados.LogAcessos.Value := DmDados.LogAcessos.Value + 'Alunos (Salvar); ';
    DmDados.LogMovimento.Value := 'Código: '+FrmAlunos.EdtCodigo.Text +' - '+ DmDados.AlunosNome.Value;
    DmDados.Log.Post;
    DmDados.Log.Active := False;
    for i := 0 to FrmAlunos.ComponentCount - 1 do
      if FrmAlunos.Components[i]is TCustomEdit then
      begin
        (FrmAlunos.Components[i] as TCustomEdit).Enabled := False;
      end;
    FrmAlunos.EdtBusca.Enabled := True;
    FrmAlunos.DbCbbMembro.Enabled := False;
    FrmAlunos.DBCbbEscolaridade.Enabled := False;
    FrmAlunos.DbCbbEstCivil.Enabled := False;
    FrmAlunos.DBCbbCargosIgreja.Enabled := False;
    FrmAlunos.DBCbbUltimosDias.Enabled := False;
    FrmAlunos.DBCbbNormalmente.Enabled := False;
    FrmAlunos.DBCbbComprometimento.Enabled := False;
    FrmAlunos.DBCbbFrequencia.Enabled := False;
    FrmAlunos.DBCbbPgto.Enabled := False;
    FrmAlunos.DBCbbSibin.Enabled := False;
    FrmAlunos.DbCbbUf.Enabled := False;
    FrmAlunos.DblCidades.Enabled := False;
    FrmRelAlunos.AdoAlunos.Close;
    FrmRelAlunos.AdoAlunos.Open;    
  end;

Uso banco de dados Access e delphi 7.

Por favor alguém ai me ajude...

Abraços

Alexandre

Editado Março 5, 2008 por Vivendo&Aprendendo

[Vivendo&Aprendendo]

Resolvido, era o Close/Open do final do código acima....