Как реализовать такую функцию ?

[kakawkin]

В Memo1 находятится:
o
ol
ola
olal
olala

В Memo2 находятся:
1
12
123
1234
12345

И чтоб при нажатии на кнопку она все записала всё в 1 файл в виде:
o;1
o;12
o;123
....
olal;1
olal;12
olal;123

и т.д.

Помогите реализовать такую вот функцию

[Пепел Феникса]

чтото типа такого?

procedure StrCircle(S1,S2:TStrings;Res:TStrings);
var i,j:integer;
begin
 for i:=0 to S1.Count-1 do for j:=0 to S2.Count-1 do Res.Add(S1[i]+';'+S2[j]);
end;

применять например так

StrCircle(Memo1.Lines,Memo2.Lines,Memo3.Lines);

первый параметр это так сказать мемо1 из примера.
второй аналогично(мемо2 с примера)
третий это куда поместим результат.
все параметры вида TStrings