Registry ReadBinaryData Problem

[Darkface]

Leider immernoch die Selbe Fehlermeldung bei einer anderen "höheren" Adresse...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var regist: TRegistry; n:string; size:integer;
begin
  regist:=TRegistry.Create;
  try
    regist.RootKey:=HKEY_CURRENT_USER;
    regist.OpenKey('Software\Microsoft\Windows\Shell\Bags\1\Desktop',false);
    size := regist.GetDataSize('ItemPos1280x1024(1)');
    Setlength(n, size);
    regist.ReadBinaryData('ItemPos1280x1024(1)', n, size);
    Edit1.Text:=n;
    Memo1.Text:=n;
  finally
    regist.Free;
  end;
end;

Ich habe mir einmal size ausgeben lassen, es kam die Zahl 1888 heraus.

Was kann ich dagegen tun?

MfG
Darkface