[v1s2222]

А просто почитать статейки про работу с ИНИ файлами не пробовали??
Хоть так:

Код:

uses IniFiles;

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
  ini: TIniFile;
begin
  ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'opt.ini');
  for i:=0 to ComponentCount-1 do
    if(Components[i].ClassType = TEdit) then
      TEdit(Components[i]).Text := ini.ReadString('Edits', Components[i].Name, '');

  ini.Free;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  i: Integer;
  ini: TIniFile;
begin
  ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'opt.ini');
  for i:=0 to ComponentCount-1 do
    if(Components[i].ClassType = TEdit) then
      ini.WriteString('Edits', Components[i].Name, TEdit(Components[i]).Text);

  ini.Free;
end;