[Delphi] Сортировка и удаление строк

Здравствуйте, кому не сложно помогите:

Задача такая:

в Edit.Text я задаю например число 5 нажимаю на кнопку "Отсортировать" и то что меньше 5 из Memo должно удаляться

Пример:

--->Это все удаляем

-0

-1

-2

-3

-4

0

1

2

3

4

--------------------------<

5

6

7

8

9

10