wie kann ich diesen code optimieren

[Skyruner2]

Delphi-Quellcode:

procedure TDBform.TableAccessChanging(Sender: TObject;
  var AllowChange: Boolean);
begin
dbnavigator.DataSource.DataSet.Active:=false;
end;

procedure TDBform.testEnter(Sender: TObject);
begin
adoquery_test.Active:=true;
dbnavigator.DataSource:=datasource_test;
end;

procedure TDBform.test2Enter(Sender: TObject);
begin
adoquery_test2.Active:=true;
dbnavigator.DataSource:=datasource_test2;
end;

procedure TDBform.newsEnter(Sender: TObject);
begin
adoquery_news.Active:=true;
dbnavigator.DataSource:=datasource_news;
end;

procedure TDBform.usersEnter(Sender: TObject);
begin
adoquery_useres.Active:=true;
dbnavigator.DataSource:=datasource_useres;
end;

titel sagt schon alles...