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.
