String lässt sich nicht lesen aus Registry

[delphin06]

Falls es noch jemanden interessiert, da der Zugriff nicht möglich war habe ich den Schlüssel einfach in mein Programmverzeichnis exportiert:

Delphi-Quellcode:

procedure Tform1.exportkey;
var applicationroot:String;
begin
  applicationroot:=ExtractFilePath(Application.Exename);
  ShellExecute(Form1.Handle
             ,'open'
             ,'regedit.exe'
             ,Pchar('/e '+applicationroot+'device.REG "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\IDE\DiskST9120821AS_____________________________3.06____\5&302caf91&0&0.0.0"')
             ,''
             ,SW_SHOWNORMAL);
end;

jetzt brauch ich einfach nur den string durchsuchen