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