so hier mal mein code der leider noch nicht funzt =(

Code:
uses Registry;

procedure TForm1.FormCreate(Sender: TObject);
var regist: TRegistry;
begin
  regist := TRegistry.Create;
  try
    regist.RootKey:=HKEY_LOCAL_MACHINE;
    regist.OpenKey(SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths', true);
    Form1.Left := regist.ReadInteger('Left');
    Form1.Top := regist.ReadInteger('Top');
  finally
    regist.free;
  end;
end;
hab den code einfach dann als procedure in eine listebox gesetzt doch leider wurde nichts aufgelistet =(
Was mach ich falsch??

Eviator