rastreo de codigo.

[Yun-i]

hola foristas una pregunta podrian aydarme a ratreas este codigo?

Código Delphi [-]
procedure TdmRepDatos.ADOBDBeforeConnect(Sender: TObject);
var Coneccion: WideString; Programa: String;
begin
  Programa := ChangeFileExt(ExtractFileName(Application.ExeName),'');
  if not Assigned(WinReg) then winReg := TRegistry.Create;
  WinReg.RootKey := HKEY_LOCAL_MACHINE;
  if not WinReg.OpenKey('\Software\GrupoVRO\'+Programa, false) then
    ShowMessage('No existe información de la Empresa.  Llame al Administrador del Sistema para la Configuración.')
  else begin
    Coneccion := 'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog='+WinReg.ReadString('BaseDatos')+';Data Source='+WinReg.ReadString('Servidor');
    ADOBD.ConnectionString := Coneccion;
  end;
end;

desde ya muchas gracias