Сокращение строк, ну что-то в этом роде...

[sxcine]

Добрый день..
Имеется текст, вида:

Нocовая чacть верхней пaлyбы кoрабля, пepeдняя часть шлюпки. (3 букв) *** 
=бaк (bak)
Boинскoe звaние? (9 букв) ********* 
=пoлковник (polkovnik)

Надо программно изменить его на

Нocовая чacть верхней пaлyбы кoрабля, пepeдняя часть шлюпки. (3 букв) *** =бaк (bak)
Boинскoe звaние? (9 букв) ********* =пoлковник (polkovnik)

Т.е. каждую вторую строку перенести на предыдущую (ответ к вопросу, после знака равно)..
Пожалуйста, помогите

[AlDelta]

procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
  i:=0;
  while i<Memo1.Lines.Count do
    begin
      Memo2.Lines.Append(Memo1.Lines[i]+Memo1.Lines[i+1]);
      i:=i+2;
    end;
end;

[ArtGrek]

procedure TForm1.Button1Click(Sender: TObject);
var
  a: integer;
begin
  a := 0;
  repeat
    Memo2.Lines.Add(Memo1.Lines[a] + Memo1.Lines[a + 1]);
    inc(a,2);
  until a >= Memo1.Lines.Count;
end;

end.

[MyLastHit]

Memo1.Lines[a + 0]

[ArtGrek]

Сообщение от MyLastHit

Memo1.Lines[a + 0]

упс), вроди как мысли в слух