[icWasya]

>GenString(); - ошибка

В смысле - Memo1, Button1 - добавь в качестве домашнего упражнения.
Если курсор находится в теле реализации функции, то нажав Ctrl+Shift+C? прототип функции появится сам.