"Обёртка" массива для потока

[Shouldercannon]

Если переменную с каким-нибудь контролом можно обернуть для тела потока так

unit frm_Main;

interface

uses
  ...

type
  TFormMain = class(TForm)
    ...
    Button1: TButton;
  private
    { Private declarations }
    ...
  public
    { Public declarations }
    NotResponding: String;
  end;

type
  TMy_Thread = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
    procedure SyncProc;
  public
    GoButton: TButton;
    property NotResponding: String read FNotResponding;
  end;

  My_Thread := TMy_Thread.Create(True);
  My_Thread.GoButtonn := Button1; // Наша кнопка
  My_Thread.FNotResponding := NotResponding; // Переменная типа String
  My_Thread.FreeOnTerminate := True;
  My_Thread.Resume;

то как это сделать с массивом?

type
  TMyArray = Record
    FName: String;
    URL: String;
  end;

var
  FormMain: TFormMain;
  MyArray: Array of TMyArray;

[Pavia]

Это не обёртка, для приличия надо сокрытие применить.
Динамический массив это тоже указатель, работа не отличается от работы со строкой.

type
  TMyElement = Record
    FName: String;
    URL: String;
  end;
TMyArray=Array of TMyElement;
var
  FormMain: TFormMain;
  MyArray: TMyArray;


type
  TMy_Thread = class(TThread)
  private
    { Private declarations }
    fMyArray:TMyArray;
  protected
    procedure Execute; override;
    procedure SyncProc;
    procedure SetMyArray(const Value:TMyArray);
  public
    GoButton: TButton;
    property NotResponding: String read FNotResponding;
    propery  MyArray:TMyArray read fMyArray write SetMyArray;
  
procedure TMy_Thread.SetMyArray(const value:TMyArray);
begin
fMyArray:=Value;  // В данном коде присваивается ссылка, счётчик увеличивается.
end;

My_Thread.MyArray:=MyArray; // Присваиваем глобальный массив классу-потока.