asterisco (*) en keydown o keypress

[Neftali [Germán.Estévez]]

Prueba poniendo esto en el KeyPress.

Código Delphi [-]
  if key='*' then begin
    key:=#0;
    cantidadproducto.Text:=codigoproducto.text;
    codigoproducto.Text:='';
  end;

EDITO: Se me adelantó Caro.
Supongo que utiliza el 106, porque quiere detectar el * del teclado numérico (que ese sí el el 106).
Con la solución propuesta detectarás los dos *'s.