Оформил: DeeCo

uses Registry;

procedure TForm1.Button1Click(Sender: TObject);
var
  WinIni: TRegIniFile;
begin
  WinIni := TRegIniFile.Create('');
  WinIni.RootKey := HKEY_LOCAL_MACHINE;
  WinIni.WriteString('Frank', 'Borland', 'Writes Fast Code!');
  WinIni.Free;
end;