Как создавать динамические экземпляры класса

Я хочу иметь возможность создавать экземпляры класса без необходимости объявлять их как объекты. Простой пример. У меня есть программа, которая регистрирует собак для выставок. Каждый раз, когда пользователь нажимает кнопку «Добавить», он должен создавать новый экземпляр класса TDog. Как мне это сделать?

Моя попытка статически:

//clsDog_u
type
 TDog = class(TObject)
 private
  fName : string;
 public
  constructor Create(Name);
  function Get_Name():string;
end;

implementation
//I think you guys knows what goes here ;)

//------------Main Form---------------
unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, clsDog;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    objDog: tDog;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  Name: string;
begin
  name := InputBox('', 'please enter in name:', 'Doggo1');
  objDog := tDog.Create(name);
  ShowMessage(objDog.Get_Name + ' has been added to the dog show.');

end;

end.