[guver]

Сообщение от 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 TEdit then
  s.Add(TEdit(Form1.Controls[i]).Text);
  s.SaveToFile('<Your filename>');
  s.Free;
end;

А уже все есть. Ты только посмотри внимательно ))))
А вот с мемо по твоему вопросу заморачиваться не охота. Стандартных решений вроде нет, а остальное - геморрой...

Ошибку не выдает , файл создает но в нем опять ниче не пишет (( wtf

http://clip2net.com/page/m0/5766282