Conexão dinâmica

Boa dia crie uma conexão dinâmica p/ meu aplicativo
funciona assim:
criei um arquivo texto chamado conexao.ini
um formulário para digitarmos o endereço do banco e salvando no arquivo texto conexao.ini...mais o problema é o seguinte:
toda vez que executo o meu aplicativo ele não está lendo o arquivo texto conexao.ini.. e tenho que configura o caminho.VEJA O CÓDIGO ABAIXO:

procedure TFPrincipal.FormShow(Sender: TObject);
begin
DM.Conexao.Connected:=False;
StrConexao:=DM.Conexao.Params.Text;
DM.Conexao.Params.Clear;

Try
DM.Conexao.Params.LoadFromFile('.\conexao.ini');
DM.Conexao.Connected:=True;
ConexaoFeita:=True;

Except
FConfiguraConexao.ShowModal;

end;


o que estou fazendo de errado?
toda vez ele abre o FConfiguraConexao.ShowModal;
e tenho que confirmar o caminho do banco.