uses
 Registry;

 function GetDirectory: string;
 var
 reg : TRegistry;
 begin
 reg := TRegistry.Create;
 try
 reg.RootKey := HKEY_LOCAL_MACHINE;
 reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\Cache\Special Paths\Cookies',
 False);
 Result := reg.ReadString('Directory');
 finally
 reg.Free;
 end;
 end;


 procedure TForm1.Button1Click(Sender : TObject);
 var
 s : string;
 begin
 S := GetDirectory;
 ShowMessage(GetDirectory);
 end;