Hola, el * no es el 106 (j) es el 42 (*)
Código Delphi
[-]
procedure Tventa.codigoproductoKeyPress(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=#42 then
begin
key:=#0;
cantidadproducto.Text:=codigoproducto.text;
codigoproducto.Text:='';
end;
Saluditos