asterisco (*) en keydown o keypress

[pborges36]

Holas. Creo que esta pregunta es simple, solo que no le encuentro la vuelta.
La idea es que en un TEdit el usuario carga codigo de producto. Pero antes de cargar el codigo carge la cantidad ingresando el numero seguido de *.
Poe ejemplo: 2*.
hice lo siguiente:

Código Delphi [-]
procedure Tventa.codigoproductoKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState); 
   if key=106 then
      begin
          key:=0;
          cantidadproducto.Text:=codigoproducto.text;
          codigoproducto.Text:='';
          
      end;

el problema es que al salir del evento, en el codigoproducto solo queda el *, deberia quedar vacio.

Tambien intente hacerlo en el keypress.
pero en:

Código Delphi [-]
if key='*' then
  begin 
 
  end;

cualquiera sea la tecla presionada, siempre entraba al if.
creo que la mejor opcion es el keydown, pero como hago para dejar el TEdit vacio?
Gracias. Saludos.