Полное удаление строки

[Albenous]

Проблема: в memo надо удалить некоторое количество строк. Сделал присваиванием нужной строке последующей (и так до конца memo) но в конце остаются пробелы - т.е. строки, абсолютно пустые, но рассматриваются memo как строки. Другими словами текст нашей строки удаляется, а все последующие сдвигаются вверх. НО! их прежнее место считается строкой. Как от них избавиться?

 
for i:=memo1.lines.count-1 downto 0 do
   begin
    if (copy(memo1.lines[i],1,4))='#3#g' then //условие.
     begin
        for i1:= i to memo1.lines.count-1 do
        memo1.lines[i1]:=memo1.lines[i1+1];
     end;
   end;

[zetrix]

Прикольно, но зачем такие сложности?

memo1.Lines.Delete(i); - удаляет нужную строку в мемо, и сдвигает последующие строки.
Конечно же, надо учитывать, что нумерация строк с нуля... - ну это так, лишнее напоминание.

[Albenous]

Спасибо, Zetrix