[Gribok]

Доброго времени суток товарищи программисты.
Помогите пожалуйста решить следующею проблему.
Суть вопроса в следующем!
Имеется мемо со следующими данными
1
2
3
4
5
вот данные записаны в строку.

Код:

var
i:integer;
begin
Memo2.Clear;
for i:=1 to StrToInt(Edit1.Text)  do
Memo2.Lines.Add(IntToStr(i));

Здесь мы создаем наш список.

теперь следующие!
необхадимо удалить скажем каждую 3 строку из мемо
в итоге получим
1
2
3
4
5
создали наш список
далее
1
2
пусто т к удалил 3стоку
4
5
далее
пусто т к удали 1 строку
2
4
5
далее
2
4
пусто т к удалил 5 строку
далее
пусто т к удалил 2 строку
4 осталось
значит если взять список из 5 строк и удалять каждую 3 строку то останется 3
как добиться такова результата??