Используй таким образом:
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;
Надеюсь все пучком
