begin
    With Query1 do begin
      close;
      Active:=false;
      SQL.Clear;

       SQL.Add('select T.*');
       SQL.Add('from bd.db T');
       SQL.Add('where T.Name=(');
       SQL.Add('select T1.Name');
       SQL.Add('from bd.db T1, bd2.db P1');
       SQL.Add('Group by T1.Name');
       SQL.Add('Having count(P1.Supplier)>=all(');
       SQL.Add('select count(P2.Supplier)');
       SQL.Add('from bd.db T2, bd2.db P2');
       SQL.Add('Group by T2.Name))');

      Active:=true;
      open;
    end;
  end;