Zuersteinmal würde ich den redundanten Code entfernen und Parameter verwenden.
Global Abfrage deklarieren und vorbereiten:
Delphi-Quellcode:
adoquery1.connection:=adoconnection1;
adoquery1.SQL.Text := 'SELECT a.Name, a.Vorname FROM Arbeitnehmer as a, Berufsgruppen as b Where a.bgident=:bgident';
Was steht in BGIdent? (Welcher Typ)