type
  TfsExeptStringVariable = class(TfsStringVariable)
  private
    FErrors: TStrings;
  protected
    procedure SetValue(const Value: Variant); override;
  public
    procedure AfterConstruction; override;
    destructor Destroy; override;
    property Errors: TStrings read FErrors;
  end;

procedure TfsExeptStringVariable.AfterConstruction;
begin
  inherited;
  FErrors := TStringList.Create;
end;

destructor TfsExeptStringVariable.Destroy;
begin
  FErrors.Free;
  inherited;
end;

procedure TfsExeptStringVariable.SetValue(const Value: Variant);
begin
  inherited;
  FErrors.Add(Value);
end;

procedure RunScript;
var
  cvar: TfsCustomVariable;
begin

  Script.AddRTTI; // код должен идти после AddRTTI, если используется fsGlobalUnit то использовать его
  cvar := Script.Find('ExceptionMessage');
  if Assigned(cvar) then
  begin
    Script.Remove(cvar);
    cvar.Free;
    cvar := TfsExeptStringVariable.Create('ExceptionMessage', fvtString, 'String');
    Script.Add('ExceptionMessage', cvar);
    cvar.AddedBy := TObject(1); // rtti item flag
  end;

  Script.Run;

  cvar := Script.Find('ExceptionMessage');
  if cvar is TfsExeptStringVariable then
  begin
    TfsExeptStringVariable(cvar).Errors.Count; // количество ошибок
    TfsExeptStringVariable(cvar).Errors.Text; //список
    TfsExeptStringVariable(cvar).Errors.Clear;// очистить после выполнения
  end;
end;