Kann Registry-Werte nicht auslesen!

[max666]

Hallo!

Jetzt habe ich dort folgendes stehen:

Delphi-Quellcode:

function tform1.getpath(i: integer): string;
var regist: TRegistry;
    path: string;
    janein: Boolean;
begin
path:='';
//regist:=TRegistry.Create;
regist := TRegistry.Create(KEY_READ);
regist.RootKey:=HKEY_CURRENT_USER;
janein:=regist.OpenKeyReadOnly('Software\meinprog');
if janein=true then showmessage('ja') else showmessage('Nein');
if i=1 then path:=regist.ReadString('work-dir') + 'start.ini';
if i=2 then path:=regist.ReadString('work-dir');
if i=3 then path:=regist.ReadString('work-dir') + 'button_1.ini';
if i=4 then path:=regist.ReadString('work-dir') + 'button_2.ini';
regist.CloseKey;
regist.Free;
result:=path;
end;

Es wird mir auch gesagt, dass der Schlüssel existiert. Nur der Wert "work-dir" wird nicht gelesen.

Gruß
MAx666