Clear the contents of Documents menu 

//
// Clear contents of Documents menu
//
procedure TForm1.Button2Click(Sender: TObject);
var
 Result : Integer;
begin
  Result := Application.MessageBox
            ('Do you want to '+
              #13#10+'clear Documents folder?',
             'Warning!', MB_ICONSTOP OR MB_OKCANCEL);
  Case Result of
   IDOK     : SHAddToRecentDocs(SHARD_PATH, Nil);
   IDCANCEL : ;
  End;
end;