Как поместить CR / LF в ячейку TStringgrid?

Я хочу иметь одну фиксированную строку в качестве заголовка, но тексты довольно длинные, поэтому я бы хотел увеличить высоту строки и вставить CR / LF в текст ячейки.

Поиск в Google показывает это как решение (и это первое, о чем я подумал, прежде чем искать в Google), но он не работает.

[Bounty] «Плохо. Я на самом деле наградил этот ответ два года назад, не проверяя, и теперь обнаружил, что ответ не сработал. Приветствую всех, кто был введен в заблуждение. Это FABOWAQ (часто задаваемый, часто неправильно отвеченный вопрос ). GINYF ".

Я предполагаю, что мы хотим использовать OnDrawCell, но представьте себе, что нам также придется увеличить высоту строки сетки строк, содержащей ячейку.

Я дам ответ для любого кода или компонент FOSS VCL.

[Обновление] должно работать с Delphi XE2 Starter edition