procedure MakeFileName(Xml: Variant);
begin
  try
    fileStream := TFileStream.Create(FModuleFileName, fmOpenRead);
  except
    raise('Ошибка открытия файла: ' + FModuleFileName);
  end;
  fsScript := TFsScript.create(nil);
  fsScript.Parent := fsGlobalUnit;
  try
    if not fsScript.SetILCode(FileStream) then
      raise(fsScript.ErrorMsg);
    if not fsScript.Find(FFunctionFileName) then
      raise('В модуле: ' + FModuleFileName + ' не найдена функция: ' + FFunctionFileName);
    try
      FileOut := DirOut + fsScript.CallFunction(
        ChangeFileExt(ExtractFileName(FModuleFileName), ''),
        FFunctionFileName, [Xml, Ufebs, FEDAuthor, FEDDate]);
    except
      raise('Ошибка при исполнении функции: ' + FFunctionFileName +
        ' в модуле: ' + FModuleFileName + ' - ' +
        LastException.Message);
    end;
  finally
    fileStream.Free;
    fsScript.Free;
  end;
end; {End MakeFileName}

begin
end.