SQL-запрос в Delphi и в Access один и тот же, но в Delphi не работает

 with ADOQueryMain do
begin
Active:=false;
SQL.Clear;
SQL.Add('SELECT Code, FamilyOfColleague, NameOfColleague, PatronymicOfColleague, Birthday, BirthPlace, DateOfReceipt, NumberOfBook FROM RayAddress ');
SQL.Add(' GROUP BY Code, FamilyOfColleague, NameOfColleague, PatronymicOfColleague, Birthday, BirthPlace, DateOfReceipt, NumberOfBook HAVING FamilyOfColleague ');
If EditFamilyOfColleague.Text='' Then SQL.Add('Like "*" ')
Else SQL.Add('="'+EditFamilyOfColleague.Text+'" ');
SQL.Add(' AND NameOfColleague ');
If EditNameOfColleague.Text='' Then SQL.Add('Like "*" ')
Else SQL.Add('="'+EditNameOfColleague.Text+'" ');
SQL.Add(' AND PatronymicOfColleague ');
If EditPatronymicOfColleague.Text='' Then SQL.Add('Like "*" ;')
Else SQL.Add('="'+EditPatronymicOfColleague.Text+'" ;');
Active:=true;
End;