Example

            try



                CellText := TStringList.Create;



                CellText.Add('This is a sample line of text.');



                CellText.Add('Here is another line of text.');



                WallCalendar1.SetCellMessageByDate(Now, CellText);



            finally



                CellText.Free;



                end;