Записывание в массив нужной строки

for i:=0 to memo1.Lines.Count-1 do
if i mod 4=0 then // Для второго случая  (i mod 2=0) and (i mod 4<>0)
begin
inc(k);
f[i]:=Memo1.Lines[i]       
end;
for i:=1 to k do
Memo1.Lines.Add(f[i]);

  f[i] := Memo1.Lines[i]

  f[k] := Memo1.Lines[i]

  k := 0;
  for I := 0 to Memo1.Lines.Count - 1 do
    if I mod 4 = 0 then // Для второго случая  (i mod 2=0) and (i mod 4<>0)
    begin
      f[k] := Memo1.Lines[I];
      inc(k);
    end;
 
  for I := 0 to k  - 1 do
    Memo1.Lines.Add(f[I]);

procedure TForm1.Button3Click(Sender: TObject);
begin
  nick:=edit1.text;
  WebBrowser1.Navigate('http://worldoftanks.ru/community/accounts/named/'+nick+'/');
end;
 
procedure TForm1.Button4Click(Sender: TObject);
var Doc, El: Variant;
    i,k: Integer;
    nick:string;
    f:array [1..1000] of string;
begin
memo1.clear;
  Doc := WebBrowser1.OleObject.Document.GetElementsByTagName('td'); // вот зацепляемся за тег
  for i := 0 to Doc.Length - 1 do // ищем все что связано с этим тегом
    begin
      El := Doc.Item(i); // получаем элементы этого тега
       // и вот тут вот сравниваем за вышесказанный id
                                                      // если в таком теге и с таким id что-то найдено
        Memo1.Lines.Add(El.InnerText) // то вывести это в мемо как текст, а не как код html
                                      // за это отвечает InnerText, если нужно было бы кодом - то можно было бы написать InnerHTML
    end;
    k:=0;
for i:=0 to Memo1.Lines.Count - 1 do //запускаем цикл перебора (вывалимся Exit ниже из него как только найдём <2>
 begin
     Memo1.Lines.Delete(i); // удаляем найденное
     while (memo1.Lines[i]<>'I  ') and(memo1.Lines[i]<>'II  ') and (memo1.Lines[i]<>'III  ') and(memo1.Lines[i]<>'IV  ') and(memo1.Lines[i]<>'V  ') and(memo1.Lines[i]<>'VI  ') and(memo1.Lines[i]<>'VII  ') and(memo1.Lines[i]<>'VIII  ') and(memo1.Lines[i]<>'IX  ') and(memo1.Lines[i]<>'X  ') do  memo1.Lines.Delete(i); exit; // пока ищем <3>  удаляем строчки(тем самым в мемке последние строки будут подниматься) на место удалённой попадать будет новая...
         end;
 //   for i:=0 to 110 do
  //  Memo1.Lines.Delete(i);
 
 
end;