[lmikle]

Как-то так:

Код:

procedure TPasswordDlg.FormCreate(Sender : TObject);
var
  S : String;
  WayToBase : String;
  ConfigFile : TIniFile;
begin
  S := ExtractFilePath(Application.ExeName)+'Way.ini';
  ConfigFile := TIniFile.Create(S);
  Try
    ADOConnection1.ConnectionString := ConfigFile.ReadString('Way','WayToBase',S);
    ADOConnection1.Connected := true;
    ADOQuery1.Connection := PasswordDlg.ADOConnection1;

  Except
    if Not ADOConnection1.Connected Then
      if OpenDialog1.Execute Then
        Begin
          WayToBase := OpenDialog1.FileName;
          ADOConnection1.ConnectionString='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='+WayToBase+';Persist Security Info=False';

          S = ADOConnection1->ConnectionString;
          ConfigFile.WriteString('Way','WayToBase',S);

          ADOConnection1.Connected := true;
        End;
   End;
end;