[dr. F.I.N.]

Код:

var
  i: Integer; // счетчик
  s : TStringList; // класс такой :) почитай о нем в справке или Первое что выпало по запросу в поисковике
begin
  if Form1.ControlCount = 0 then Exit; // в Form1.ControlCount хранится количество контролов на Form1. Вот и проверяем, если контролов 0, то выходим из процедуры.
  s := TStringList.Create; // создаем тот самы StringList
  for i := 0 to Form1.ControlCount - 1 do // теперь в цикле перебираем все контролы расположенные на Form1
  if Form1.Controls[i] is TMemo then // Если контрол TMemo, то обрабатываем его
  s.AddStrings(TMemo(Form1.Controls[i]).Lines); // а точнее добавляем его содержимое в конец s (который TStringList)
  s.SaveToFile('<Your filename>'); // а потом сохраняем содержимое s в файл
  s.Free; // ну и подчищаем за собой. Т.е. удаляем созданный нами StringList
end;