ADOQuery.Parameters werden nicht übernommen?

[sx2008]

Jeder Parameter braucht einen eigenen Namen! Zwar nicht schön, ist aber leider so.

SQL-Code:

select tab1.title from tab1,tab2
where tab1.id=tab2.id and tab1.cod=:cod1
union 
select tab1.title from tab1,tab3
where tab1.id=tab3.id and tab1.cod=:cod2

Delphi-Quellcode:

Meinwert:='titel';
MyQuery.Close; // Zur Sicherheit, falls die Query noch aktiv ist
MyQuery.Parameters.ParamValues['cod1']:=Meinwert;
MyQuery.Parameters.ParamValues['cod2']:=Meinwert;
MyQuery.Open;