delphi 在文本文件每行平添字符串?（非计算机专业还有这么复杂的文本操作题？）

delphi 在文本文件每行添加字符串??????????????????????（非计算机专业还有这么复杂的文本操作题？？）
要求字符串来自一个文本文件A，A中字符串有3行，第一行aaa第二行bbb，第三行ccc，第四行ddd，另一个文本文件B也有4行，第一行111第二行222，第三行333，第四行444，现要求A中的每行字符串分别添加到B文件的每行的末尾，变成：
111aaa
222aaa
333aaa
444aaa
111bbb
222bbb
333bbb
444bbb
111ccc
222ccc
333ccc
444ccc
111ddd
222ddd
333ddd
444ddd
就这些了，希望能把具体的代码贴出来，能把思路说一下也行。
[解决办法]

var
  i, k: integer;
  Fa, Fb, Fc: TStrings;
begin
  try
    fa := TStringList.Create;
    fa.LoadFromFile('a.txt');
    Fb := TStringList.Create;
    Fb.LoadFromFile('b.txt');
    Fc := TStringList.Create;
    for i := 0 to fa.Count - 1 do
      for k := 0 to Fb.Count - 1 do
        Fc.Add(Fb.Strings[k] + fa.Strings[i]);
    Fc.SaveToFile('B.txt');
  finally
    fa.Free;
    Fb.Free;
    Fc.Free;
  end;
end;

var
  i, k: integer;
  Fa, Fb, Fc: TStrings;
const
  Na = 'a.txt';
  Nb = 'b.txt';
begin
  if FileExists(Na) and FileExists(Nb) then
  try
    fa := TStringList.Create;
    fa.LoadFromFile(Na);
    Fb := TStringList.Create;
    Fb.LoadFromFile(Nb);
    Fc := TStringList.Create;
    for i := 0 to fa.Count - 1 do
      for k := 0 to Fb.Count - 1 do
        Fc.Add(Fb.Strings[k] + fa.Strings[i]);
    Fc.SaveToFile('B.txt');
    ShowMessage('^_^,操作成功！');
  finally
    FreeAndNil(Fa);
    FreeAndNil(FB);
    FreeAndNil(FC);
  end
  else
    ShowMessage('未找到相关文件');
end;