Concevoir un ERP

Valeur est un entier 
RésultatSélection est un booléen

Valeur = RVB(10, 17, 69)
Info("Couleur de départ : " + Valeur)
RésultatSélection = SelectCouleur(Valeur, scInit)
Info("Couleur d'arrivée : " + Valeur)

uses Classes, SysUtils, Forms, Dialogs;//Paquets à utiliser, si tu apprend le Delphi tu verra que c'est très utile
//**
procedure exemple;//Nom de la procedure
var//Var le bloc var permet dans le cas d'une procedure de déclarer les variables
valeur:TColor;//TColor est Integer qui est un entier
ResultatSelection:Boolean;//En Boolean True = Vrai/False = Faux.
DlgColor:TColorDialog;//Boîte de dialogue de couleur. Normalement sur la fiche on en crée un mais je l'ai mit ici
Begin//Permet de dire que on commence le code de la procedure
TColorDialog.Create(DlgColor);//Initialise DlgColor, TColorDialog est un descendant de TPersistent, ils doivent être initialisé
valeur := RGB(10,17,69);//Le ; dit que l'instruction est terminé. 
MessageBox(Pchar('Couleur de départ : '+ColorToStr(valeur)),'Couleur',MB_ICONINFORMATION);
//PChar permet la transition de la valeur type chaine String (je suis sérieux) à la valeur chaine de type PChar. MB_ICONINFORMATION est une constante Integer.
DlgColor.Color := valeur;//Définit la couleur de base
DlgColor.Execute;//Lance le dialogue
valeur := DlgColor.Color;//Mets dans valeur la couleur sélectionner
MessageBox(Pchar('Couleur d''arrivé : '+ColorToStr(valeur)),'Couleur',MB_ICONINFORMATION);//dans d''a le double ' insère dans la chaine un '
DlgColor.Free;//Libère la mémoire alloué à DlgColor. On utilise jamais Destroy.
end;//Permet de dire que on termine le code de la procedure