Registry auslesen unsicher

[HomerGER]

Hi Christian
ich wäre ja froh wenn ich so weit wäre
ich hab hier mal angefangen

Delphi-Quellcode:

Function Reg_Lesen_RYU(input_r : reg1_r) : reg_wert_r;
var
key_hk : HKEY;
begin
    try
        if (RegOpenKeyEx(input_r.s1, PChar(input_r.s2), 0, KEY_READ, key_hk) = ERROR_SUCCESS) then
        begin
            Result.s1 := 'offen';
            Result.s2 := '';
        end
        else
        begin
            Result.s1 := 'zu';
            Result.s2 := '';
        end;

    finally
    RegCloseKey(key_hk);
    end;
end;

er zeigt mir von 65 Werten 6 nur 'offen' an obwohl die Key vorhanden sind
ich lese nochnicht mal werte
oder hab ich hier was vergessen ?