Mal wieder probleme mit der registry

[glkgereon]

hi
also ich will per TRegistry werte aus der registry auslesen

doch irgendwie sind meine variablen leer, bzw der text im edit ist vergleichsweise leer (das os zieh ich mir vorher schon anders...)

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
reg: TRegistry;
begin
reg:=TRegistry.Create;
reg.OpenKeyReadOnly('HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion');
osname:=reg.ReadString('ProductName');
version:=reg.ReadString('CurrentVersion');
user:=reg.ReadString('RegisteredOwner');
org:=reg.ReadString('RegisteredOrganization');
Servicepack:=reg.ReadString('CSDVersion');
Edit1.Text:='OS: '+os+' - '+osname+' '+version+' +++ '+user+' - '+org+' +++ '+servicepack+' +++ ';
end;

is da ein denkfehler drin, oder falsch geproggt, oder warum funzt das nicht?