Dann mach doch das, was verlangt ist (kein Konstantenobjekt übergeben):
Delphi-Quellcode:
var
WertX: Integer;
WertX := 1;
WriteBinaryData('Value-Name-Halt', WertX, SizeOf(dword));
Edit: Du fragst so oft, wie man eine Funktion aufrufst, das solltest du doch langsam können (und sag jetzt nicht, dass du es so gemacht hättest, sondern schreibe nächstes Mal dazu, wie du denkst, würde man das aufrufen. Ich habe immer noch den Eindruck, dir fehlen sämtliche Grundlagen).
Delphi-Quellcode:
if WriteDWORD('Key', 'Name', WertX) then
// erfolgreich eingetragen
WertX = ReadDWORD('Key', 'Name');
Edit2: In der Funktion, die du nutzt, fehlt übrigens ein
CloseKey.