AllowMultiselect + Opendialog

   for i:=0 to Od1.Files.Count-1 do
      begin
       f.LoadFromFile(OD1.Files[i]);
       f.insert(0,'-------------------------------------------------');
       f.insert(1,Edit1.Text);
       f.insert(2,Edit2.Text);
       f.insert(3,Edit3.Text);
       f.insert(4,Edit4.Text);
       f.insert(5,'-------------------------------------------------');
       Memo1.lines.add(od1.Files[i]);
       f.SaveToFile((OD1.Files[i])+'.txt');
     end;
    finally
  f.Free;

if edit.enabled
  then s.insert(...);

f.insert(0,'-------------------------------------------------');
       if edit1.Enabled then
       f.insert(1,Edit1.Text);

f.insert(5,'-------------------------------------------------');

-------------------------------------------------
3241.56  4212.60  5123.3
Москва
Санкт-Петербург
Ярославль
-------------------------------------------------
2221.20  3412.2  3134.4
2232.42  3421.2  3429.40

if edit.enabled  // если Edit активен,
  then s.insert(...); // то выполнить то, что после then,
  // иначе – ничего не делать.