Dudas con un DBlistbox

[rufo]

Buenas tardes amigos antes que nada quiero desearles anticipadamente una feliz navidad y un mejor año nuevo.

Bueno les comento que estoy haciendo un programa en el cual quiero meterle a un edit un codigo de productos y cuando le ingrese dicho codigo me visualiza tanto la imagen del producto, nombre y precio, mi problema radica en cuando meto dicho codigo solo me visualiza la imagen y no me muestra el nombre del producto ni el precio, estoy utilizando un edit para ingresar el codigo y dos DBlistbox en el cual ya esta conectados al datasource y al datafield de sus propiedades, les anexo el codigo que estoy usando

Este codigo es el que esta en el evento Onkeypress del edit

procedure TPunto_venta.Edit1KeyPress(Sender: TObject; var Key: Char);
Var
  LCad :String;
begin
 with dm1.Q_codigos do
  begin
  LCad :='%'+Edit1.Text+'%';
  SQL.Text:='SELECT codigo,producto,foto,precio_unidad FROM codigos WHERE codigo LIKE :''N'';';
  ParamByName('N').AsString:=LCad;
  Open;
  end;

end;

Este codigo siguiente esta en el evento Onkeyup

DBImage1.Picture.LoadFromFile(dm1.Q_codigos.fieldbyname('foto').asstring);
 dblistbox1.Items(dm1.Q_codigos.FieldByName('producto').asstring);// aqui es donde no me muestra el nombre del producto

O tambien si me pueden ayudar en como hacerlo o con que otros objetos, gracias de antemano y estoy usando delphi 5.