[[duilioisola]]

Yo creo que deberías poner todo en el evento OnChange.

Código Delphi [-]
procedure TForm1.Edit1(Sender: TObject);
var
   cantidad : integer;
begin
   // Si hay u *
   if (pos('*',Edit1.Text) > 0) then
   begin
      // Obtengo el numero entre la posicion 1 y el *
      cantidad := StrToIntDef(copy(Edit1.Text,1,Length(Edit1.Text)-1))
      Edti1.Clear;
   end;
end;