Добавить несколько записей к одной записа

[megostudent]

У меня есть поле memo1 в нем 3 строки:
строка1-
строка2-
строка3-
как каждой из этих строк добавить еще по 3 значения:
1- aaa
2- bbb
3- ccc
чтобы в итоге в memo2 появилось 9 строк:
строка1-ааа
строка1-bbb
строка1-ссс
строка2-ааа
...
строка3-ссс
???

[DIMASIKXXX32]

procedure TForm1.Button1Click(Sender: TObject);
  var
    i,j,n:Integer;
    mas:array [0..2] of string;
  begin
    n:=0;
    for i := 0 to 2 do
      begin
        mas[0]:=Memo1.Lines.Strings[n]+'aaa';
        mas[1]:=Memo1.Lines.Strings[n]+'bbb';
        mas[2]:=Memo1.Lines.Strings[n]+'ccc';
        Memo1.Lines.Delete(n);
        for j := 0 to 2 do
          begin
            Memo1.Lines.Insert(n,mas[j]);
            Inc(n);
          end;
      end;
  end;

//Попробуй так, вроде работает. особо не заморачивался возможно есть другие варианты. так как очень громоздко получилось

[Serge_Bliznykov]

//Попробуй так, вроде работает

удалил свой начальй пост.
я ошибся - потому как невнимательно прочитал исходное задание. извините.

после осознания того, что нужно автору топика, рискну предложить более-менее универсальное решение
(будет работать при любом количестве строк в Мемо, да и второй список (массив mas )легко модифицировать, дополнять, а можно и даже вынести в дополнительное мемо - тогда вообще всё универсально будет!)

procedure TForm2.Button1Click(Sender: TObject);
const
  mas:array [0..2] of string = (' aaa',' bebebe',' ccc');
var
  i,j : Integer;
  ts : TStringList;
begin
  ts := TStringList.Create;
  ts.Text := Memo1.Lines.Text;

  Memo1.Lines.Clear;
  for i := 0 to ts.Count - 1 do
    for j := Low(Mas) to High(mas) do
        Memo1.Lines.Append( ts.Strings[i] + mas[j]);
  FreeAndNil(ts)
end;