Ca peut aussi se résumer en :
  case key of
   '0'..'9' : Edit1.Text := Key; //remplace le contenu éventuel
   #8, #13 : exit; //traitement normal
   else
    Key := #0; //annuler la touche frappée
  end;
Un seul test réalisé au lieu de 2. C'est toujours quelques nanosecondes de gagnées ! ;o)

J'allais le dire...merci Yves.
Quoique le mien n'envoie pas de messages à une autre application mais à l'application elle-même.
Ton code source est donc complémentaire.
L'utilisation du message WM_COPYDATA n'était-elle pas plus intéressante ?
"The WM_COPYDATA message is sent when an application passes data to another application."

Merci pour ces exemples magistraux sur la manipulation des chaînes de caractères.
Tu aurais pu intituler ce cours "Chapitre 1".
Car maintenant, tu te vois contraint d'aller plus loin et de nous proposer quelque chose de plus difficile et qui pose souvent d'énormes problèmes aux débutants : la manipulation des PChar et leur cortège de fonctions bizarres. Ce serait très utile pour passer des arguments aux API ou l'inverse, c'est à dire exploiter des valeurs transmises par Windows.
Connaissant tes talents de pédagogue, je ne doute pas un seul instant que tu sauras relever le défi et nous sortir quelque chose de très bien fait.
Alors, je mets ça sur ma liste pour le père Noël ? ;-)

Juste un minuscule commentaire dans le code source (// Poker Machine (jp deBiars)) pour rappeler l'auteur, c'est un peu mince.
Debiars mérite LAR-GE-MENT plus de considération.

J'espère qu'il s'exprimera sur cette place publique et nous donnera son ressenti.
C'est pas sympa avec les potes qui se décarcassent pour relever le niveau de ce site !

Et les auteurs sont...?

Nous sommes alors tout à fait d'accord, Japee.
Merci pour ces précisions.

Rectification : le composant TOutlookApplication est disponible dans l'onglet "Serveurs" de Delphi 6 entreprise !

Autrement, je me suis amusé à réaliser un test comparatif des performances entre le méthode de LoOnEy et la mienne.
Y a pas photo, la méthode de LoOnEy est au moins deux fois plus rapide.

Félicitations à LoOnEy !

Bien vu LoOnEy !
En réalité, il faut lire :
function PPCM(const a, b : integer):integer;
var i,j : integer;
begin
  result:= -1; //not found
  for i:=1 to 20 do
    for j:=1 to 20 do
       if (a * i) = (b * j) then
       begin
          Result:= a * i;
          exit; // <== c'est toute la différence
       end;
end;

Un court instant de distraction !

Le réseau codes-sources nous offre une grande liberté. Toutefois, les abus de quelques-uns finiront par nuire à tous si personne ne respecte les règles du jeu :
1/- ne pas mettre d'éxécutable dans le zip
2/- inutile de mettre les fichiers *.dcu, *.~*
3/- ne publier que des projets aboutis. Les débutants n'ont pas besoin d'embryons d'applications. Ca ne leur apporte pas grand'chose.