How to wordwrap text that need to be appear in ToolTip
Another way, is to create a regexp that wraps automatically.
WrappedMessage := RegExReplace(LongMessage,"(.{50}\s)","$1`n")
link