[NIch]

Я бы создал запись вида

Код:

 TData= record;
  Edit1: String[50];//Для String обязятелен размер в символах
  Edit2: String[50];
  //И так далее
 end;

Затем эти записи сохранял в файл

Код:

var
 f: File of TData;
 d: TData;
begin
 //Заполнение записи
 d.Edit1 := Edit1.Text;
 d.Edit2 := Edit2.Text;
 //Запись записи в файл ))) тафталогия получилась
 AssignFile(f, D:\Data.dat);
{$I-}
 try
  ReSet(f);//Пытаемся открыть существующий
{$I+}
  if IOResult <> 0 then//Если его нет
   ReWrite(f);//Создаем новый
 Seek(f, FileSize(f));//Устанавливаем запись в конец файла
 Write(f, d);//Записываем запись
 finally
  Close(f);//Закрываем файл
 end;
end;

Вот один из вариантов...