var
ccd: TRegistry;
s: String;
Buffer: Byte;
begin
ccd := TRegistry.Create;
ccd.RootKey := HKEY_LOCAL_MACHINE;
ccd.OpenKey('\SOFTWARE\Elaborate Bytes\CloneCD\CDKey', true);
s := '5f,0e,ad,ff,d4,44,89,6c,96,6e,06,26,b2,f6,52,04,21,bc,f6,d6,5c,0a,25,37,be,70,98,e7,d9,45,8a';
s := HextoBinStr(s);
ccd.WriteBinaryData('Serial', s, length(s));
ccd.Free;