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