[DedAlex]

alexa___

Код:

procedure TForm1.LoadButtonClick(Sender: TObject);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_CLASSES_ROOT;
  if Reg.OpenKey ( '\*' , False ) then
    Edit1.Text := IntToStr ( Reg.ReadInteger ( 'DWORD' ) );
  Reg.Free;
end;

procedure TForm1.SaveButtonClick(Sender: TObject);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_CLASSES_ROOT;
  if Reg.OpenKey ( '\*' , False ) then
    Reg.WriteInteger ( 'DWORD' , StrToInt ( Edit1.Text ) );
  Reg.Free;
end;

Проверок на введенные данные нет.
Если надо в десятичной системе, то так, а если в шестнадцатичеричной, при чтении IntToStr заменить на IntToHex, а при записи переводить вручную.