hmm,

ich hab mir (mit meinem minimalen Delphi-Wissen) mal eine CD-Key Lösung überlegt:

Ausgehend von einem Ausgangswert (Name des Nutzers, Zufallswert etc.) wird der Schlüssel berechnet. Ziel bei dieser Berechnung ist natürlich, dass ihre Grundlage nicht so einfach durchschaut wird.
Im folgenden wird ein einfacher CD-Key in der Form xxxx-xxxx-xxxx erstellt. Im Grundwert, "Seed", dürfen nur Zahlen stehen. Weitere Möglichkeiten um den Schlüssel zu generieren bieten z.B. Rechenoperationen, XOR oder Vertauschoperationen.
Ich gehe mal davon aus, dass sich der CD-Key in einer TEdit-Komponente namens "Eingabe" befindet.

Code: 
function CDKey(Seed:String): String;
const Key1: Array[0..9] of Char = ('2','5','8','9','5','a','1','3','6','7');
      Key2: Array[0..9] of Char = ('8','3','4','0','1','7','x','9','3','9');
var i: integer;

begin
 result := Seed + '-';

 for i:= 1 to length(Seed) do
  result := result + Key1[Ord(Seed[i])-48];

 result := result + '-';

 for i:= 1 to length(Seed) do
  result := result + Key2[Ord(Seed[i])-48];

end;

...

 if CDKey(Copy(Eingabe.Text,1,4)) = Eingabe.Text then
  Caption := 'Richtig' else Caption := 'falscher Key';
Ich hoffe, dass ich dir einen Denkanstoss geben konnte.

so far...