como paso parametros con TAdoQuery ..?

[saul saldaña]

hola , mira ya delcare mi variable y cheque todo lo demas, el caso esta asi.. es que en mi programa utilizo el TADOCOnnection la cual le asigno la bse de datos que esta en MS Acess 2000, y el TADOQuery le asigno en la propiedad conncection el Name de mi TADOConnection.

y el codigo es el sig:
//si esta conectado que lo desconecte
if TADOCOnnection.Connected then TADOCOnnection.Connected := False;
TADOQuery.Close; //cierro el TADOQuery
vSql := '';
vSql := 'Select * from producto where codigo =:vParametro ';
TADOCOnnection.Connected := True; //abra la conexion con la bd
TADOQuery.SQL.Add (vSql);
TADOQuery.Parameters.ParamByName('vParametro').Value := StrToint(Edit1.text);
TADOQuery.Open;
//** fin de mi programa...

espero contar con tu ayuda .. gracias.....!!!