Hola
Lo que paso es que cuando copie tu codigo el SQL tenia todos los campos con la sentencia.
Código Delphi
[-]
adoquery1.SQL.Text:='select * from compras where numreferencia = :Num';
Despues hice una sentencia con solo los campos que necesitaba pero no me percate de que me faltaban los dos puntos despues del igual ( = Num).
de hecho en el codigo que puse de list out bonus esta el error..
Gracias caral por el apoyo!!