J'ai un doute : au lieu de HSL, ne s'agit-il pas plutôt de TSL  (Teinte, Saturation, Luminosité) ?

Je dirais : plus qu'un simple code, une interface habilement conçue pour permettre de visualiser immédiatement l'impact de l'utilisation de telle ou telle chaine de formatage.
C'est bien pensé et utile.
Bravo Japee.

Pour Kenavo : on a tous nos préférences et nos habitudes. Si les deux fonctions sont équivalentes, pourquoi apprendrions-nous les deux ?

Great job !
Un code propre clair et efficace comme on aimerait en voir à chaque fois.
10/10 sans hésitation.

Ca me parait un peu lourd comme système pour trouver la nouvelle valeur d'une clé du type entier.
Avec un tout petit peu de code et une simple requête du genre :
Select Max(Id)+1 as NewKey from Sysd;
On obtient directement une valeur incrémentée.

Quant à écrire : "'SELECT * FROM SysID WHERE ..." juste pour récupérer la valeur d'un champ, on peut se demander si le chapitre optimisation n'a pas été escamoté.

C'est super top !
Génial le coup du clin d'oeil ;o)
Bravo.

Une suggestion : au lieu d'imposer que le premier pixel soit de couleur clFuschia, pourquoi ne pas faire l'inverse, c'est à dire prendre la couleur du premier pixel comme couleur de transparence ?

Je ne vois absolument pas où il manque une affectation, du moins dans le code que j'ai téléchargé hier.

Je viens aussi de m'apercevoir que ta routine générait souvent des chaines de caractères identiques. Pour améliorer la sortie, il est préférable de faire une appel à la fonction Randomize comme ceci :
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  Randomize;
  // Exemple type CLID => FA1BA083-5B86-48F9-9DD3-CF3DA9EEC4F6
  Edit1.Text := RandomPassword(8)+'-'+RandomPassword(4)+'-'+RandomPassword(4)+'-'+RandomPassword(4)+'-'+RandomPassword(12);
end;

au lieu de réinitialiser le générateur de nombres aléatoires à chaque série de caractères.

Pour obtenir un mot de passe unique à coup sur, on peut utiliser les fonctions de créations d'identificateur unique (CLSID) comme ceci :
{ajouter SysUtils à la clause Uses}
procedure TForm1.Button1Click(Sender: TObject);
var
  Guid: TGuid;
  Password: string;
begin
  //Création d'un identificateur unique
  CreateGuid(Guid);
  //Transformation en une chaine
  Password := GuidToString(Guid);
  //retire les accolades à chaque bout
  Edit1.Text := Copy(Password, 2, Length(Password)-2);
end;

L'utilisation de ce code ne donnera jamais de code identique sur une même machine tout comme sur des milliers d'ordinateurs à travers le monde.

Le plus dur n'est pas de générer un mot de passe mais qu'il soit facile à retenir ! :o(

En application console sous Delphi et sans la gestion des couleurs (;o), voir :
http://www.delphifr.com/code.aspx?ID=21453

Autre façon de procéder, sans utiliser la base de registres :
http://www.delphifr.com/code.aspx?ID=11811