Автоматическое заполнение Memo

В memo расположены строки такого вида:

Задание на сегодня
Номер задания
Статус
Ответы

Если длина строки меньше 18 то при нажатии на кнопку - автоматически дополнились строки до 18 символов знаком "-".

То есть каждая строка длиной 18 символов, если в ней нет 18 символов то добавить знак "-"):

На выходе получится должно так:

Задание на сегодня
Номер задания-----
Статус------------
Ответы------------

Задание простое но справится не могу.