Bonsoir à tous ,  
 
j'ai fais une procedure, mais elle ne marche pas correctement.La procedure doit afficher , en cas de mauvais chiffre, le  premier chiffre superieur à celui entrer dans l'edit qui est divisible par 3 : la voici  
 

 
le probleme , comment afficher le bon chiffre du premier coup en cliquant qu'une fois sur le bouton .Si je rentre le chiffre "13" par exemple , il m'affiche "14" , je reclique et il m'affiche "15". mais comment lui faire afficher "15" sans recliquer ?    
 
Merci

procedure TForm1.TesterClick(Sender: TObject);
var
  Chiffre: Integer;
begin
  Chiffre := StrToInt(Edit1.Text);
  Inc(Chiffre, Chiffre mod 3);
  Edit1.Text := IntToStr(Chiffre);
end;

j'ai failli crier de joie  .
 Si je rentre le chiffre "11" il me met "13" au lieu de "12" . Si je mets "13" il met "14" , je reclique et il passe à "16" .
 
Merci

Ha ouais j'ai fait le truc à l'envers.
Il faut ajouter ce qu'il manque pour en faire un multiple de 3, et non pas ajouter ce qu'il a de plus que le multiple inférieur
 
var
  Chiffre: Integer;
begin
  Chiffre := StrToInt(Edit1.Text);
  if (Chiffre mod 3) <> 0 then
    Inc(Chiffre, 3 - (Chiffre mod 3));
  Edit1.Text := IntToStr(Chiffre);
end;

   chapeau bas . tant dans l'optimisation que dans la competence du code  

oups , j'oubliais ,  
 
Merci antp