function TForm1.StrToByte(const Value: String): TByteArr;
var
    I: integer;
begin
    SetLength(Result, Length(Value));
    for I := 0 to Length(Value) - 1 do
        Result[I] := ord(Value[I + 1]) - 48;
end;

Private Declare PtrSafe Function Create_AddSpan Lib "Scripts.dll" (ByVal F As String, ByVal L As String, ByVal K As Variant, ByVal B As Variant, ByVal H As Variant, ByRef Q As Variant, ByRef R As Variant) As Integer

Function SetQuery(ParamArray Parameters() As Variant) As String
  Dim F As String, L As String, K As Variant, B As Variant, H As Variant, Q As Variant, R As Variant
  F = ""
  L = Join(Parameters, vbNewLine)
  K = 0
  B = Null
  H = Null
  Q = Null
  R = Null
  I = Create_AddSpan(F, L, K, B, H, Q, R)
End Function

  function Create_AddSpan(aFile: String; aList: String; aKind: OleVariant; aBars: OleVariant; aHandle: OleVariant; var aSql: OleVariant; var aRecordSet: OleVariant): Integer;
  var
    S: String;
    B: TProgressBar;
    Id: Cardinal;
    H:  THandle;
  begin
    ShowMessage(aList);    -- уже здесь крокозябрит
    Result:=1;
    A:=TAddSpan.Create(iif(Integer(aKind)=0,'[Path]'+vbLine+aList,aFile),B,H,aSql,aRecordSet);
    A.Parameters(aList);
  end;