Delphi-PRAXiS - Delphi Programm für Dateiformat herausfinden

Hi,

ich möchte herausfinden, auf was für ein Programm ein Dateiformat zugewiesen ist.
Das wollte ich eigentlich so lösen, aber ich sehe meinen Fehler in der markierten Zeile nicht. Habt ihr eine Idee ? Ich weiß...Registry ist nicht gerade meine Stärke....

Delphi-Quellcode:

			function GetExtOpen(Extension, ExtDescription : String) : String;

var Reg : TRegistry;

begin

  Result := '';

  if Extension <> '' then

  begin

    if Extension[1] <> '.' then

      Extension := '.' + Extension;

    Reg := TRegistry.Create;

    try

      Reg.RootKey := HKEY_CLASSES_ROOT;

      if Reg.OpenKey(Extension, True) then

        if Reg.OpenKey('\' + ExtDescription, True) then

          if Reg.OpenKey('\' + ExtDescription + '\Shell\Open\Command', True) then

-->         Result := Reg.ReadString('Command'); <--

    finally

      Reg.Free;

    end;

  end;

end;