Segue abaixo o cóigo:
procedure TfrmSelection.FormActivate(Sender: TObject);
var
ArqIni: TIniFile;
begin
ArqIni := ArqIni.Create('C:\sga\saga.ini');
try
ZConnection1.Connected := false;
ZConnection1.HostName := ArqIni.ReadString('BASEDADOS', 'PathSec', '');
ZConnection1.Database := ArqIni.ReadString('BASEDADOS','Base', '');
ZConnection1.Password := ArqIni.ReadString('BASEDADOS','Chave', '');
except
on E:Exception do MessageDlg('Erro ao conectar!'#13'Erro: '+ e.Message, mtError, [mbOK], 0);
end;
end;
Porém, acredito que este seja o código que esta dando erro de Access Violation.
Minha pergunta é: Como eu faria para melhorar o código ao ponto de recriar a pasta, o arquivo e o conteúdo do mesmo em caso de exclusão do arquivo .INI?