procedure GetProfilerVers : string;
  var
    paths, str : string;
    flag : boolean;
begin
  flag := false;
  paths := GetEnvironmentVariable(PChar('Path'));
  // перебираем все пути из Enviroment Paths, ищем, в каком есть profiler.exe
  while (Pos(';', paths) <> 0) and (not flag) do
  begin
    if Pos(';', paths) = 0 then str := paths
                           else str := Copy(paths, 1, Pos(';', paths)-1);
    Delete(paths, 1, Pos(';', paths));
    if Pos(';', paths) = 0 then str := paths
                           else str := Copy(paths, 1, Pos(';', paths)-1);
    if str[length(str)] = '\' then
      delete(str, length(str), 1);
    flag := FileExists(str + '\Profiler.exe');
  end;
  if not flag then
  begin
    str := paths;
    flag := FileExists(str + '\Profiler.exe');
  end;

  if flag then  //парсим путь, который нашли
  begin
    Delete(str, 1, Pos('Microsoft SQL Server', str)+Length('Microsoft SQL Server'));
    Delete(str, Pos('\', str), Length(str)-Pos('\', str)+1);
    result := str;
  end
  else
    result := '';
end;