Удаление строк из Memo

[Leksda]

помогите плиз
есть поле memo, содержащее строки

1 фамилия
2 имя
3 отчество
4 строка4
5 строка
6 строка
7 строка
8 строка
9 строка
....

все строки кроме 4-ой могут повторяться, задача найти строку 4, и удалить строки выше неё на 1 строку и ниже неё на 3 строки

for i:= 0 to memo1.lines.count - 1 do 
 begin
    s:=memo1.Lines[i]; 
    if Pos('строка4', s)<>0 then
      begin
        t:= Memo1.Lines.IndexOf(s);
        for a := t-1 to t+3 do
           memo1.Lines.Delete(a);
       end;
 end;

где я ошибся?

[Stilet]

for i:= 0 to memo1.lines.count - 1 do 
 begin
    if memo1.lines[i]<>'строка4' then
           memo1.Lines.Delete(a);
 end;

[Leksda]

2 Stilet
удаляет только нечетные строки! а мне нужно что бы удалялась с 3 по 7 строку...
ожидаемый результат
1 фамилия
2 имя
8 строка
9 строка....

[Stilet]

удаляет только нечетные строки!

Ну тогда так:

 i:= 0; while (i<to memo1.lines.count - 1)and(i in [3..7]) do 
 begin
    if memo1.lines[i]<>'строка4' then
           memo1.Lines.Delete(i)
  else  inc(i);
 end;

[Leksda]

удаляет с 4 строки до конца!

[mihali4]

for i:= 1 to 5 do 
 memo1.Lines.Delete(3);

[Leksda]

пасибо получилось