Registry Einträge werden (auf PC 4) nicht gespeichert

[Starworld1000]

Hallo alle zusammen

Ich habe vor einiger Zeit ein Programm geschrieben, das Werte in die Registry schreibt und nach Bedarf wieder ausliest.

Das Programm läuft schon seit einigen Monaten auf 3 Rechnern ohne Probleme.
Anfang der Woche habe ich nun das Programm auf einen vierten Computer installiert.
Die Werte in der Registry werden ohne Probleme ausgelesen, aber es werden keine Änderungen dieser Werte gemacht, wenn Änderungen gemacht werden müssen.

Das Problem tirtt nur an Rechner 4 auf. Bei allen anderen Rechnern gibt es keine Probleme. Das Betriebssystem ist noch WindowsXP SP2

Hier mal der Code:



// Daten aus der Registry laden

regist:=Tregistry.Create;
regist.RootKey:=HKEY_CURRENT_USER;
if regist.KeyExists('\Software\Programm\Position') then
begin
regist.OpenKey('\Software\Programm\Position',false );
PositionX:=regist.ReadInteger('PosX');
PositionY:=regist.ReadInteger('PosY');
end
else
begin
MessageDlg ('Einträge in der Registry fehlen', mtError, [mbok], 0);
end;



// Programmstatus in Registry schreiben

regist:=Tregistry.Create;
regist.RootKey:=HKEY_CURRENT_USER;
if regist.KeyExists('\Software\Programm\Settings') then
begin
regist.OpenKey('\Software\Programm\Settings',true) ;
regist.WriteInteger('Open',(Integer(1)));
regist.WriteInteger('Close',(Integer(0)));
end
else
begin
MessageDlg ('Einträge in der Registry fehlen', mtError, [mbok], 0);
end;



Kann mir jemand weiterhelfen, an was es liegen könnte ?

Beste Grüße
Starworld1000