[friz]

лови!

Код:

сохранение
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var f: textfile;
    i:byte;
begin
  AssignFile(f,'yo.txt');
  rewrite(f);// или append(f) смотря что тебе надо
  writeln(f,edit1.text);
  writeln(f,edit2.text);
  for i:=0 to memo1.Lines.Count-1 do
  writeln(f,memo1.lines[i]);

  closefile(f);
end;

загрузка
procedure TForm1.FormCreate(Sender: TObject);
var f: textfile;
    i:byte;
    s:string;
begin
  AssignFile(f,'yo.txt');
  reset(f);
  readln(f,edit1.text);
  readln(f,edit2.text);
  closefile(f)
end;