Ayuda con Delphi

[danielDelphi]

Buenos dias,
Si alguien me pudiera colaborar con este problema les agradeceria de por vida
tengo un inconveniente al hacer la captura y entrega de un parametro desde una caja de texto a un Tquery
miren

Código Delphi [-]
Procedure TForm1.searchbtnClick(Sender: TObject); begin QryMostrar.Close; DataSource.DataSet := QryBuscar; QryBuscar.Params[0].Value := codetxt.Text; QryBuscar.Open; end;

luego de esto

la sentencia de la TQuery esta asi



Select * from comments where codigo = ":codigo"


Me presenta un error Q no he podido solucionar es el list index out of bounds (0) alguna idea


Muchas gracias de antemano

[rgstuamigo]

Código Delphi [-]
Procedure TForm1.searchbtnClick(Sender: TObject);
begin 
 QryMostrar.Close; 
 DataSource.DataSet := QryBuscar;
 QryBuscar.ParamByName('codigo').AsInteger:=StrToInt(codetxt.Text);//aqui modifique
 QryBuscar.Open;
end;

Aparte te aconsejo que la sentencia SQL lo tengas asi:

Código SQL [-]
Select * from comments where codigo =:codigo;

No pongas las comillas para el parámetro codigo.