[[poliburro]]

Esta rutina hace lo que necesitas mi buen amigo

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
 Const
   LCSPATHUDLCONFIG = 'c:\Tem-des\edgram\';
 Var
   LsUDlConfig: WideString; //Almacena la cadena de conexion
   LStlDTLCont: TStringList; //Almacena el contenido del DataLink
begin
  Try
     LStlDTLCont := TStringList.Create;
     //Cargo la configuración almacenada
     If FileExists(LCSPATHUDLCONFIG + 'Test.udl') Then
       LStlDTLCont.LoadFromFile(LCSPATHUDLCONFIG + 'Test.udl');
     //llamo a la ventana de configuración de la cadena de conexión
     LsUDlConfig := PromptDataSource(Self.Handle,LStlDTLCont.Text);
     //Asigno la nueva configuración y grabo los cambios
    If Length(Trim(LsUDlConfig)) > 0 Then
      LStlDTLCont.Text := LsUDlConfig;
    LStlDTLCont.SaveToFile(LCSPATHUDLCONFIG + 'Test.udl');
  Finally
    LStlDTLCont.free;
  End;
end;