Registry ReadBinaryData Problem

[Darkface]

Hallo Liebe DP'ler ,
Ich habe leider folgendes Problem, da steckt wohl im Code der Wurm drin :

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)');
    regist.ReadBinaryData('ItemPos1280x1024(1)', n, size); //Hier wohl der Fehler
    Edit1.Text:=n;
    Memo1.Text:=n;
  finally
    regist.Free;
  end;
end;

Dieser Code sollte eigentlich einfach nur einen Binary Registry Wert auslesen und anzeigen aber PusteKuchen, er zeigt mir leider keinen Debugger Fehler an sondern einen Programm Fehler mit einer Access Violation an. Erkennt wer meinen Fehler?