Программно занести данные в реестр

[Nexus2116]

помогите пожалуйста я бы хотел добавить в реестр некие данные в типе BINARY

у меня имеется только код такой но он в типе SZ

var
Registry: TRegistry;
begin
Registry := TRegistry.Create;
Registry.RootKey := hkey_local_machine;
Registry.OpenKey('SYSTEM\asd',true) ;
Registry.WriteString('asd','00,00,0 0,00');
Registry.CloseKey;
Registry.Free;

Помогите плизз

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор

[zumm]

var
Registry: TRegistry;
begin 
Registry := TRegistry.Create;
Registry.RootKey := hkey_local_machine;
Registry.OpenKey('SYSTEM\asd',true) ;
Registry.WriteBinaryData('asd',StrToInt('00,00,00,00'),SizeOf(StrToInt('00,00,00,00')));
Registry.CloseKey;
Registry.Free;

вроде так, давно не работал с двоичным....