function DirName_from_List_EnvVars(List_EnvVars:TStrings):string; //Получить полное имя папки для библиотечных файлов begin Result:=''; if Assigned(List_EnvVars) then begin if List_EnvVars.Count>0 then begin Result:=trim(List_EnvVars.Values['App_Dir']); Result:=Result+trim(List_EnvVars.Values['Scr_Dir']); Result:=Result+trim(List_EnvVars.Values['Lib_Dir']); end; end; end;