Массив строк в Memo, динамический массив

var
.....
  arr: array of string;
.....
 
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
setlength(arr, memo1.Lines.Count-1);
  for i:=0 to memo1.Lines.Count-1 do begin
    arr[i]:=memo1.Lines[i];
  end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
  for i:=0 to length(arr) do begin
    if i mod 2 = 0 then
       memo2.Lines.Add(arr[i]);
  end;
  for i:=0 to length(arr) do begin
    if i mod 2 = 1 then
       memo2.Lines.Add(arr[i]);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
  for i:=0 to length(arr) do begin
    if i mod 2 = 1 then
       memo2.Lines.Add(arr[i]);
  end;
  for i:=length(arr) downto 0 do begin
    if i mod 2 = 0 then
       memo2.Lines.Add(arr[i]);
  end;
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
var
i,j:integer;
begin
for i:=0 to memo1.Lines.Count-1 do
  if i mod 2<>0  then
    memo2.Lines.Add(memo1.Lines[i]);
 
for j:=memo1.Lines.Count downto 0 do
  if j mod 2=0  then
    memo2.Lines.Add(memo1.Lines[j]);
 
end;