Очень странная работа с параметрами.

По хорошему надо:
1. Написать запрос с параметрами.
2. Очистит список параметров (навсякий).
3. Заполнить его в соотв. с именем и типом параметров.
4. Присвоить параметру значение ParamByName('aaa').AsInteger := men; Но лучше не по имени, а по номеру.
5. Открыть запрос
6. (профит)

В АДО одноименные параметры нельзя присваивать по имени, т.к. второй тупо не будет присвоен.

зы: men это множественное число. Не ? :)