[myth]

Используй таким образом:

var
N : Integer;
s : string;
Buf : array[0..x] of byte;
reg : tregistry;

begin
// че нибудь делаем

reg.WriteBinaryData(s , buf, n); //сохраняем в реестр

// где:
// s - имя параметра(куда пишем)
// buf - массив данных
// n - количество байтов для записи

// че нибудь делаем
end;

Пример

var
buf : array [1..5] of byte;
i :integer;
begin

for i:=0 to 4 do buf[i]:=i*50;
s:='nada';
reg.WriteBinaryData(s, buf, 5);

end;

Надеюсь все пучком