，循环读取两memo的内容！

求助，循环读取两memo的内容！！！
现有两MEMO，内容如下：

memo1    memo2
  A        1
  B        2
  C        3
  D        4

现想读取如下的内容
  A和1
  A和2
  A和3
  A和4
  B和1
依此类推，需要循环读取，因为上面是例子，所以内容会少些，但是memo的内容量很大的话必须得用编辑来解决了，麻烦各位帮一下忙！
[解决办法]
如果两个memo的行数都不能确定，就要做点判断

var
  i, count: Integer;
  s1, s2: string;
  sLi: TStringList;
begin
  count := 0;
  if memo1.Lines.Count > memo2.Lines.Count then
    count := memo1.Lines.Count
  else
    count := memo2.Lines.Count;
  if count = 0 then
    Exit;

  sli := TStringList.Create;

  for i := 0 to count - 1 do
  begin
    if i <= memo1.Lines.Count - 1 then
    begin
      s1 := memo1.Lines.Strings[i];
    end;

    if i <= memo2.Lines.Count - 1 then
    begin
      s2 := memo2.Lines.Strings[i];
    end;
    sli.Add(s1 + s2);
    s1 := '';
    s2 := '';
  end;

  ShowMessage(sLi.Text);
  sLi.Free;
end;