[dr. F.I.N.]

Код:

var
  i: Integer;
  s : TStringList;
begin
  if Form1.ControlCount = 0 then Exit;
  s := TStringList.Create;
  for i := 0 to Form1.ControlCount - 1 do
  if Form1.Controls[i] is TMemo then
  s.AddStrings(TMemo(Form1.Controls[i]).Lines);
  s.SaveToFile('<Your filename>');
  s.Free;
end;

Должно работать (писал на коленке).