procedure TForm1.Button1Click(Sender: TObject);
var
  MYReg: TRegistry;
begin
  MyReg := TRegistry.Create;
  try
    MyReg.RootKey := HKEY_LOCAL_MACHINE;   // 루트 키
    //MyReg.CreateKey('SOFTWAREINSU');   // 키 생성

    //True 경우 키가 없으면 새로 생성된다.
    MyReg.OpenKey('SOFTWAREINSU', True);
    MyReg.WriteString('NAME', '장인수');
    MyReg.WriteInteger('INT', 5678);
    MyReg.WriteDateTime('DATETIME', Now());

    //키 읽기
    Canvas.TextOut(0,0, MyReg.ReadString('NAME'));
    Canvas.TextOut(0,15, IntToStr(MyReg.ReadInteger('INT')));
    Canvas.TextOut(0,30, DateTimeToStr(MyReg.ReadDateTime('DATETIME')));

    if MyReg.DeleteKey('SOFTWAREINSU') then
      Canvas.TextOut(0,45, '키가 삭제되었습니다');
  finally
    MyReg.Free;
  end;
end;