Utiliser la base de registre

procedure TForm1.Button1Click(Sender:TObject);
var
reg:TRegistry;

begin
reg:=TRegistry.Create;
reg.RootKey:=hkey_local_machine;
reg.OpenKey('Softwaresiro_com',true);
reg.WriteString('Test string','Test');
reg.CloseKey;
end;