Принудительный перенос текста в строке по условию - Delphi

[S_007]

Нагуглил много примеров на эту тему, но так как мне надо не нашел...
Есть строка, в ней через запятую и пробел набраны слова, слова могут быть всякие и разной длины

stroka := 'Понедельник, Вторник, Среда, Четверг, Пятница, Суббота, Воскресенье';

известно - в Мемо по ширине помещается 50 символов
этим кодом проверяю сколько символов в строке

a := Length(stroka);

Вопрос: Какой функцией можно справа налево найти первый пробел и вставить туда #13#10 для принудительного переноса, прописать в этом условии?

if a > 50 then ....

[newerow1989]

For i:=50 downto 1 do
   If stroka[i]=' ' then
   begin
      //вставка #13#10
      Insert(#13#10,stroka,i);//эта строчка примерная
      Break;
   end;

[Аватар]

в Мемо по ширине помещается 50 символов

Шрифт моноширинный?

Какой функцией можно справа налево найти первый пробел и вставить туда #13#10

Ни какой. Вернее композицией типа ReverseString и Pos можно, но ни чего это не даст. Цикл от конца с поиском пробела и анализом оставшейся длины

[S_007]

Спасибо за ответы! Пожалуй остановлюсь на примере newerow1989 Спасибо огромное!
Аватар, и Вам огромное спасибо! Вы как всегда правильно и вовремя все подмечаете... Я совершенно не учел что шрифты есть пропорциональные и моноширинные...
Шрифт буду использовать стандартный Arial. И мне нужно получается проверять не количество символов а количество пикселей, Счас попробую поискать где-то натыкался на такое

[newerow1989]

Пожалуйста!

[min@y™]

может, нужен тупой WordWrap?

[S_007]

WordWrap, к сожалению не подходит, я немного не дописал суть, ну к примеру встретится в строке - Петр Николаевич, WordWrap сработает и например оставит Петр на первой строке, а Николаевич перенесет - некрасиво и по задумке не подходит.... Да я немного неправильно в первом посте написал, придется отслеживать не по пробелу, а запятая пробел ', '
Замерять пиксели тоже иметь дело с канвой не хочется...
Может как-то можно с помощью функции Length вычислять среднее количество символов или что-то в этом роде?

[min@y™]

с помощью функции Length можно получить только абсолютное количество символов. и всё.

что за монстра ты рожаешь?

[S_007]

Не, совсем не монстра, логика такая, пользователь на форме выбирает нужные словосочетания, которые потом нужно напечатать, в Rave Report в поле Мемо отправляю набранную из этих словосочетаний через запятую и пробел строку, Мемо и сама может переносить слова если не влазят по ширине, по ближайшему правому пробелу в строке, можно было бы оставить и так, но хотелось добиться контроля, чтоб словосочетания переносились полностью на следующую строку, так бы было бы правильней, вот только в этом собственно вся и загвоздка...