[lmikle]

Как-то так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

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;