Trabalhando com arquivos .ini no Delphi

Esta vídeo aula tem como objetivo ensinar como se trabalhar como arquivos de inicialização (.ini) utilizando como ferramenta de desenvolvimento o Delphi.

Segue os código do evento OnShow do form:

procedure TForm1.FormShow(Sender: TObject);
var
  meuini: TIniFile;
begin
  if FileExists('C:\Users\AnderJoy\Desktop\Ini\conf.ini') then
  begin
    meuini := TIniFile.Create('C:\Users\AnderJoy\Desktop\Ini\conf.ini');

    edtNome.Text := meuini.ReadString('dados_pessoais', 'nome', '');
    edtEmail.Text := meuini.ReadString('dados_pessoais', 'email', '');
    rgItens.ItemIndex := meuini.ReadInteger('itens', 'item', -1);
    chkPermite.Checked := meuini.ReadBool('nova', 'permite', False);

    meuini.Free;
  end;
end;

Segue o código do evento OnClose do form:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  meuini: TIniFile;
begin
  if not DirectoryExists('C:\Users\AnderJoy\Desktop\Ini\') then
  begin
    if not CreateDir('C:\Users\AnderJoy\Desktop\Ini\') then
    begin
      Application.MessageBox('Não foi possivel criar o diretorio.', 'DCG',
        MB_OK + MB_ICONSTOP);
      Exit;
    end;
  end;

  meuini := TIniFile.Create('C:\Users\AnderJoy\Desktop\Ini\conf.ini');

  meuini.WriteString('dados_pessoais', 'nome', edtNome.Text);
  meuini.WriteString('dados_pessoais', 'email', edtEmail.Text);
  meuini.WriteInteger('itens', 'item', rgItens.ItemIndex);
  meuini.WriteBool('nova', 'permite', chkPermite.Checked);

  meuini.Free;
end;

Importante: Não se esqueçam de adicionar a biblioteca IniFiles no uses do form. Qualquer dúvida é só postar.