Conexión con adoconnection

[Fat]

Utilice un memo, lo salvo lo gualdo y despues cuando la aplicacion abre lo llamo y ese valor se lo paso al adoconn, si la base la mueven el ado me da que no encuentra la base pero me abre la aplicacion y busco el nuevo camino y vuelvo a hacerlo de nuevo.
Algo asi:

Código Delphi [-]
begin
procedure TForm23.Button1Click(Sender: TObject); 
if opendialog1.Execute then
conn:= OpenDialog1.Filename;
memo1.Lines.Text:= conn;
end;
procedure TForm23.Button2Click(Sender: TObject);
begin
memo1.lines.savetofile('C:\Archivos de programa\H.Panorama\Mora\Database\Data');
end;
procedure TForm23.Button3Click(Sender: TObject);
begin
memo1.lines.loadfromfile('C:\Archivos de programa\H.Panorama\Mora\Database\Data');
a:= memo1.lines.Text;
datamodule3.adoconnection1.connectionstring:='Provider=Microsoft.Jet.OLEDB.4.0'+
 ';Data Source=' + a + '..' +
 ';Jet OLEDBatabase Password="new23pan";Persist Security Info=False';
 datamodule3.adoconnection1.Connected:= false;
    datamodule3.adoconnection1.Connected:= true;
end;

a y conn son variables
Gracias a vtdeleon por todas sus ideas que me ayudaron mucho