[Страдалецъ]

Видимо вы хотели такое:

Код:

Var i,j: Integer;
begin
 for i := 0 to Memo1.Lines.Count - 1
 do if Pos('<3>', Memo1.Lines[i]) <> 0
    then for j := i - 1 downto 0
         do if Pos('<2>', Memo1.Lines[j]) <> 0
            then Memo1.Lines.Delete(j);