CD-Key Problem

[A-M-X]

Hiho!!

Habe mal gesucht und hab auch gefunden:
CD-Key generieren

nur irgendwie blick ich nich durch...

Koennt mir da einer helfen? ^^

Edit:

habs so gemacht:

Delphi-Quellcode:

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;

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 if CDKey(Copy(Edit1.Text,1,4)) = Edit1.Text then
  Caption := 'Richtig' else Caption := 'falscher Key';
end;

funtzt aber irgendwie ned so , wies klappen soll...