if Assigned(Worksheet.Next) then
   MessageDlg('The next worksheet name is "' + Worksheet.Next.Name + '"',
           mtInformation, [mbOk], 0);