// Create Registry Object and point it to the right place
Registry := TRegIniFile.Create;
Registry.OpenKey('SoftwareJAM Software' + Application.Title, True);
// Erase previous paths stored here
Registry.EraseSection('SelectedPaths');
// Write the selected paths to the registry
for i:=0 to JamShellLink.SelectionList.Count-1 do begin
  Registry.WriteString('SelectedPaths', IntToStr(i), JamShellLink.SelectionList[i])
end;//for
// clean up
Registry.Free;