все понял как правельнее:

AssignFile(f, 'brute.txt');
ReWrite(f);
for i:=0 to Memo1.Lines.Count-1 do
for j:=0 to Memo2.Lines.Count-1 do
Writeln(f,Memo1.Lines[i]+';'+Memo2.Lines[j]);
Closefile(f);