Hallo,
evtl. hilft dir
dieser Code, wobei mir "WriteBinaryData" irgendwie komisch vorkommt.
Und nutze zukünftig Ressourcenschutzblöcke (try - finally), damit auch im Fehlerfall der Speicher freigegeben wird:
Delphi-Quellcode:
Reg:=TRegistry.Create;
try
// ...
finally
Reg.Free; // oder FreeAndNil(Reg);
end;